ol.commentlist { list-style:none; margin:0; padding:0; }  
ol.commentlist li { border:1px solid #d5d5d5; border-radius:5px; -moz-border-radius:5px; -webkit-border-radius:5px; margin:0 0 10px; padding:5px 7px 5px 64px; position:relative; }  
ol.commentlist li.pingback comment-author { padding:0 170px 0 0; }  
ol.commentlist li div.vcard cite.fn { font-style:normal; }  
ol.commentlist li div.vcard cite.fn a.url { color:#cc0000; text-decoration:none; }  
ol.commentlist li div.vcard cite.fn a.url:hover { color:#000; }  
ol.commentlist li div.vcard img.avatar { background: #fff; border:1px solid #aaa; padding: 5px; left:-55px; position:absolute; top:7px; }  
ol.commentlist li div.comment-meta { font-weight:bold; font-size: 10px; line-height: 16px; font-family: helvetica,arial,sans-serif; position:absolute; right:40px; text-align:right; top:5px; }  
ol.commentlist li div.comment-meta a { color:#205B87; text-decoration:none; }  
ol.commentlist li p { font-weight:normal;  margin:5px 0 12px; }  
ol.commentlist li ul { font-weight:normal;  list-style:square; margin:0 0 12px; padding:0; }  
ol.commentlist li div.reply { background:#999; border:1px solid #666; border-radius:2px; -moz-border-radius:2px; -webkit-border-radius:2px; color:#fff; padding:6px 5px 4px;  text-align:center; width:36px; }  
ol.commentlist li div.reply:hover { background:#cc0000; border:1px solid #cc0000; }  
ol.commentlist li div.reply a { color:#fff; text-decoration:none; text-transform:uppercase; }  
ol.commentlist li ul.children { list-style:none; margin:12px 0 0; text-indent:0; }  
ol.commentlist li ul.children li.depth-2 { margin:0 0 3px; }  
ol.commentlist li ul.children li.depth-3 { margin:0 0 3px; }  
ol.commentlist li ul.children li.depth-4 { margin:0 0 3px; }  
ol.commentlist li ul.children li.depth-5 { margin:0 0 3px; }  
ol.commentlist ul.children li.odd { background:#fff; }  
ol.commentlist ul.children li.even { background:#f6f6f6; }  
ol.commentlist li.pingback div.vcard { padding:0 170px 0 0; }

To open the file for reading (where openf = full path of the file you want to open):

Open openf For Input As 1

and to open the file for writing to (where savef = full path of the file you want to save to):

Open savef For Output As 2

Once you have the files open you can use a loop to read each line of the file you have opened and write to the output file.  The example shown here reads a comma delimited file, and stores each field in an array called linedata.  The first field of this array is the changed to read “hello” befre being written to the output file

Do Until EOF(1)
    Line Input #1, newline
    linedata = Split(newline, “,”)
    linedata(0) = “hello”        
    Print #2, Join(linedata, “,”)
    End If
Loop

 Once finished, don’t forget to close the files you have opened:

Close #1
Close #2

Firstly you will need to create a file dialog to store the file you are opening, and then use a second to save the file you are outputting.  This can be done by using the activeX file dialog control, but this can casue issues if you want to share this program with other users.  A better approach is to use the microsoft DLL: comdlg32.dll

Start by creating the function, along with a custom type to hold the parameters:

Public Declare Function GetOpenFileName Lib “comdlg32.dll” Alias _
    “GetOpenFileNameA” (pOpenFileName As OPENFILENAME) As Long
   
Public Const OFN_ALLOWMULTISELECT As Long = &H200
Public Const OFN_EXPLORER As Long = &H80000
Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
    pvReserved        As Long
    dwReserved        As Long
    FlagsEx           As Long
End Type

I then created 2 further functions in order to populate the open dialog settings, and to manipulate the string if multiple files are selected:

Private Function getfiles() As Collection

    Dim OpenFile As OPENFILENAME
    Dim lReturn As Long
    Dim sFilter As String
    Dim buff As String
    Dim coll1 As New Collection
   
   
    OpenFile.lStructSize = Len(OpenFile)
    OpenFile.hwndOwner = 0
    sFilter = “Html Files (*.html)” & Chr(0) & “*.HTML” & Chr(0)
    OpenFile.lpstrFilter = sFilter
    OpenFile.nFilterIndex = 1
    OpenFile.lpstrFile = String(257, 0)
    OpenFile.nMaxFile = Len(OpenFile.lpstrFile) – 1
    OpenFile.lpstrFileTitle = OpenFile.lpstrFile
    OpenFile.nMaxFileTitle = OpenFile.nMaxFile
    OpenFile.lpstrInitialDir = “C:\”
    OpenFile.lpstrTitle = “Select HTML file(s) from digital flow (CTRL to multiselect)”
    OpenFile.flags = OFN_ALLOWMULTISELECT Or OFN_EXPLORER
    OpenFile.FlagsEx = 0
    lReturn = GetOpenFileName(OpenFile)
        If lReturn = 0 Then
            MsgBox “A file was not selected!”, vbInformation, _
              “Select a file using the Common Dialog DLL”
         Else
            ‘Ammended for multiselect
            ‘
            ‘getfiles = Trim(Left(OpenFile.lpstrFile, InStr(1, OpenFile.lpstrFile, vbNullChar) – 1))
           
             buff = Trim$(Left$(OpenFile.lpstrFile, Len(OpenFile.lpstrFile) – 2))
            
                Do While Len(buff) > 3 And Left(buff, 1) <> vbNullChar
     
                    coll1.Add item:=StripDelimitedItem(buff, vbNullChar)
                   
                Loop
               
        End If
Set getfiles = coll1
End Function

Private Function StripDelimitedItem(startStrg As String, _
                                    delimiter As String) As String

  ‘take a string separated by nulls,
  ‘split off 1 item, and shorten the string
  ‘so the next item is ready for removal.
   Dim pos As Long
   Dim item As String
  
   pos = InStr(1, startStrg, delimiter)
  
   If pos Then

      StripDelimitedItem = Mid$(startStrg, 1, pos – 1)
      startStrg = Mid$(startStrg, pos + 1, Len(startStrg))
   
   End If

End Function

 The final step is to call the get files function.  You will also note the select case to capture the number of the files selected:

Dim myfiles As New Collection

Set myfiles = getfiles()
Select Case myfiles.Count
Case Is < 1
    Exit Sub
Case Is = 1
    ofile = myfiles(1)
    Open ofile for input as #1
Case Is > 1
    For Each myfile In myfiles
        If myfile = myfiles(1) Then
            fdir = myfile
        Else
            If myfile <> “” Then
                ofile = fdir & “\” & myfile
                ”Call a command to open a file and proess 
            Else
                Exit For
            End If
        End If
    Next myfile
End Select

Then I looked at the headings:

h1

h2

h3

h4

h5

I then decided to try and change h6 in the stylesheet to put some things in a box:

h6 { border-style: dashed; border-width: 3px; border-left-width: 10px; border-right-width: 10px; border-color: red; }

Here is some stuff in a border. By referring to h2 and using border-style: dashed

Not having being taught html or stylesheets I need a useful reference for all the things I could add.  The website html dog, had an easy to use reference which I could use to add things to/from my stylesheet.I then looked at how to do this with changing the style in the html:

Here was a sample. By adding <p style=border-style: dashed; border-width: 3px 10px;>and then my text beofre closing with</p>

The first challenge I have been set is to insert blank lines in my post.

In the visual editor having pressed “enter” 3 times I was hopful word press would convert this into the right HTML.  But as you can see this did not work!  Next step was to look at the html:

I started by typing in a line break “</br>”.  At first this worked in the HTML view (after saving as draft), but as soon as I went back to the visual view and saved I was once again thwarted.

A quick search on google revealed the code I might be after: “<br clear=”all”>” but this also failed. I wanted to understand this a litttle bit more.  Some other searches on Google suggested an issue in the stylesheets and others to the editor (TinyMCE).  Finally I found a wordpress plugin: TinyMCE Advanced.  This allows the user to control the editor in a much more flexible way.  Looking at what this offers, I would recommend this plugin to the regular wordpress blogger.