<< This made me laugh | HTPC JavaScript Project >>

VB-Script Text Processor

Wednesday, 16 April 2008 03:11 by Frimbob

Project Reasons

As part of my current work at Australasian Investment Review, I need to post articles sent to me by the editor onto their web-site. Their CMS is not what I would qualify as words best. Like many web-posters we are forced to use inline styles. Simply Setting a few global style parameters in an opening div tag can waste, many minutes per article. Their CMS does allow images to be pasted directly in the story however the graphs are sent separately to the story. there need to be a way to group images per story and the ability to transform text into basic html with some opening style parameters. This script processor is the result and it my favourite program and a raising success.

Project Aim

Remove all formatting characters that MS-word products that confuse the CMS Java Applet, Notepad us perfect program for the job
Ensure consistent results in text, (remove MS_word formatting characters)
Global Style Parameters
Use Active-X objects to manipulate files
Using HTA with scripting language (VB-Script)
Display List of Images based on their Date-Created
Using this master list group images to a particular article
Image Preview that can by right Clicked > copy to clipboard.
Process Text (Insert extra line break)
Convert some pre-defined text-sequences into html e.g '......' into <hr>.

Results

What is a HTA: HTAs pack all the power of Internet Explorer—its object model, performance, rendering power and protocol support—without enforcing the strict security model and user interface of the browser. They are basically a sandbox version of Internet Explorer they make very useful script font-ends with the ability to use HTML to render the controls.

I was able to meet all my requirements, this project took me around a month to write in November-December 2007. I will cover a class over-view in this review at 1327 lines of code not including the HTML it just shorter this way.

Classes

Class Name	Description
Class TextFile	Represents a single TextFile
Class FileList	Wrapps Dictionary object to store Text-File object
Class CreateOpenTextFile	Contains the code that Uses WSH active X object to open and create text files
Class RegexFilters	Contains a number of Test methods used in the HTML conversion process.
Class ProcessTextFiles	Contains all the logic to transform a text file into html.
Class ImageFiles	Represents a single image File
Class ImageOutput	Wrapper for a dictionary object of Image Files
Global Declarations	No constructor is supported must use global variables instead to initialise the above classes
Event Handlers	UI Code for the font end

WSH objects used

Namespace	Use
Scripting.FileSystemObject	return File System Information
Wscript.Shell	Open Notepad
Scripting.Dictionary	Dictionary Collection

Language Tricks

While VB-Script does support basic class encapsulation with properties and methods, it does not support any class inheritance. Another major shortcoming is functions are not allowed to return an object only a value type. However there is a lonely document but usable way to force object returns from functions.

VB-script is a garbage-collection language so orphaned objects will be re-claimed after the garbage collection cycle and since we can pass object references as function parameters we are able to use scope to our advantage. In our calling function we can create a new instance of the class , empty of data, this empty object can be then passed to a function, the function is able then to set the object's reference to that of another object of same type. As this object is in scope and NOT disposed by either function will have an object with a reference to and existing object returned. Effectively we have returned an object from a function not using the (return) statement but scope.

General Code

Option Explicit

'------------------------------------------------------------------------------'

'Indiviudal File object'

Class TextFile

  

  'declare Constances'

  Private strExtension

  Private strBaseName

  

  'Class Initilize'

  Private Sub Class_Initialize

    strExtension = ".txt"  

    strBaseName = "Article"

  End Sub

 

  'Class Terminate'

  'Private Sub Class_Terminate

    

  'End Sub

  'Declare the Instance Varibales'

  Private strFileName

  Private intNumber

  Private strRead

  Private strFinal

  

   

  'Public Property Let (Write- Statements)'

  Public Property Let FileName(strName)

    If IsNumeric(strName) = false Then

      Err.Raise 91, "TextFile", "The FileName is invalid"

    End if

    'set the values'

    strFileName = CStr(strBaseName & strName & strExtension)   

  End Property 

  

  Public Property Let  FileNumber(intNum) 

    If IsNumeric(intNum) = False Then

      Err.Raise 91, "TextFile", "The FileNumber is invalid"

    End if 

    'set the property Value'

    intNumber = intNum

  End Property

  

  Public Property Let Read(str)

    strRead = str

  End Property

  

  Public Property Let Final(str)

    strFinal = str

  End Property

    

  'public Property Get (Read-Statements)'

  Public Property Get FileName 

    FileName = strFileName 

  End Property

  Public Property Get FileNumber

    FileNumber = intNumber 

  End Property

  

  Public Property Get Extension 

    Extension = strExtension

  End Property

  

  Public Property Get BaseName 

    BaseName = strBaseName

  End Property

  

  Public Property Get Read

    Read = strRead 

  End Property

  

  Public Property Get Final

    Final = strFinal 

  End Property

  

  'methods'

  Public Sub DisplayEntry

  MsgBox " File List Entry:" & vbNewLine &_

         "Extension:" & strExtension & _

         "BaseName:" & strBaseName & _

         "FileName:" & strFileName & _

         "Number:" & intNumber 

  End Sub

End Class

'------------------------------------------------------------------------------'

'------------------------------------------------------------------------------'

'storage object for TextFile objects'

Class FileList

    

    'Inistance Varaibles'

    Private objDict

    

    'class Initilize'

    Private Sub Class_Initialize

       Set objDict = CreateObject("Scripting.Dictionary")

    End Sub

    

    'class Terminate'

    Private Sub Class_Terminate

        Set objDict = Nothing

    End Sub

  

    'wrapper for dictionary count'

    Public Property Get ListCount

        ListCount = objDict.Count

    End Property

    

    'Wrapper for dictionary exists'

    Public Function EntryExists(strFileName)

      EntryExists = objDict.Exists(strFileName)

    End Function 

  

    'Methods'

    'Wrapper for the dictionary add method'

    Public Sub AddEntry(objTextfile)

      If TypeName(objTextfile) = "TextFile" Or TypeName(objTextfile) = "ImageFiles"  Then 'test if the object is the one expected'

          objDict.Add objTextfile.FileName , objTextfile 'adds the file name as key and the object as the array value So have an array of objects' 

      Else

          Err.Raise 3200, "FileList", "Only TextFile objects can be stored"

      End if

     'use the file name as the key'

     

    End Sub

    

    'Wrapper for RemoveAll entry'

    Public Sub ClearAll

      objDict.RemoveAll 'clears the dictionary' 

    End Sub 

    

    Public Function DisplayEntry(thefile,strFileName)

      If  objDict.Exists(strFileName) Then

          Set thefile = objDict.Item(strFileName)

          'DisplayEntry=Cstr(objTFile.FileName) ' returns the file name as a string'

      Else

         Err.Raise 32002, "FileList" , "The filename " & strFileName &"not in the list"

      End if

    End Function

    

    'Matches index number to a key pair and returns the object'

    Public Function MatchIndex(thefile,keynumber)

      Dim arykey 

      Dim i

      arykey = objDict.Keys 'array with the keys'

     'return the key at particular value'

       For i = 0 to objDict.count -1 

         If i = keynumber Then

           'return the key which is the file name

          Set theFile =  objDict.Item(arykey(i))

          'Set MatchIndex =  theFile 

         'Else ' not in index' 

           'MatchIndex = null 'return a null object'

         End if

       Next

    End Function

End Class

'------------------------------------------------------------------------------'

'------------------------------------------------------------------------------'

' Methods to Open,Create,Delete,and Iterate through Physical Files'

Class CreateOpenTextFile

   'Class Initilize'

   Private Sub Class_Initialize

     Set objFSO       = CreateObject("Scripting.FileSystemObject")

     Set wshSHELL     = CreateObject("Wscript.Shell")

   End Sub

 

   'Class Terminate'

   Private Sub Class_Terminate

     Set objFSO = Nothing

     Set wshSHELL = Nothing

     Set objFileList = Nothing

   End Sub

 

   'Class Varaibles'

   'Private FileSystemObject'

   Private objFSO

   Private wshSHELL

   Private objFileList

   Private strActiveFile

   Private strCurrentFileIndex

   

   

   'Write statements   

   Public Property Set FileLists(obj) 

      Set objFileList  = obj 

   End Property

   

   'read statement'     

'    Public Property Get FileList  

'       FileList = objFileList

'    End Property

   

   Public Property Get CurrentFileIndex 

      CurrentFileIndex = strCurrentFileIndex

   End Property

   

   Public Property Get ActiveFileName

      ActiveFileName = strActiveFile 

   End Property

   

   'returns an object from the file list' 

  Public Property Get ReturnObject(ByVal number) 

   Dim thefile 

   Set thefile = New TextFile 

   Call objFileList.MatchIndex(thefile,number)

   ReturnObject = Cstr(thefile.FileName) 

  End Property

  

  'read statement'

  Public Property Get ReturnTheObject(thefile,number) 

    Call objFileList.MatchIndex(thefile,number)

  End Property

   

   

   'Define Public Methods'

   Function CreateFiles(number) 

     'data Type Test'

     If Not IsNumeric(number) Then

       Msgbox("Invalid Number of Files")

     Else

        'constants'

        Const ForReading = 1

           Const ForWriting = 2

         

        'varaibles'

        Dim Filepointer  'file Pointer'  

        Dim intNumFiles  'Loop Counter'

        Dim intCounter   'loop counter'

        Dim blnSucessful 'return value'

        Dim objTextFile

        

        'set varaible Values'

        intNumFiles = number

        blnSucessful = False

       

         'create the Files'

         For intCounter = 1 to intNumFiles

                'Create the file object'

           Set objTextFile = New TextFile 'declared the class'

           objTextFile.FileName = intCounter ' only part needed'

           objTextFile.FileNumber = intCounter ' index in the For loop'

           

           'create the file' 

           Set Filepointer = objFSO.OpenTextFile(objTextFile.FileName, ForWriting, True)

                Filepointer.Close()

              Set Filepointer = Nothing

            'Check if operation completed successfully

                

            If objFSO.FileExists (objTextFile.FileName) Then 

                     blnSucessful = True

                    'store the file info into objFileList'

              objFileList.AddEntry(objTextFile) 

              

            Else

              blnSucessful = False

              Set objTextFile = Nothing 'remove till next instance'

              Exit for ' stop if a file not sucessfuly created'

            End If  

            

            strCurrentFileIndex = intCounter

            strActiveFile  =Cstr(objTextFile.BaseName &  strCurrentFileIndex & objTextFile.Extension)

            Set objTextFile = Nothing 'remove till next instance'

          Next

      End if

   CreateFiles = blnSucessful

   End Function

   'Open a Text File'

   Public Sub Open

      'test is file exists

          If objFSO.FileExists(strActiveFile) Then

              'open file in text editor

              wshSHELL.Run strActiveFile

          Else

              'report error

              MsgBox ("Error File NOT found Please start Process again")

          End If

   End Sub

 

  'next file'

  Public Function NextFile 

    'create new TextFile object to reternve the 2 class values of BaseName and Extension'

    Dim objTextFile

    Set objTextFile = New TextFile 'declared the class'

    

    If objFSO.FileExists(objTextFile.BaseName &  (strCurrentFileIndex+1) & objTextFile.Extension) Then

       strActiveFile =Cstr(objTextFile.BaseName &  (strCurrentFileIndex+1) & objTextFile.Extension)

       'add one increment the counter'

       strCurrentFileIndex =(strCurrentFileIndex +1) 'increment the value'

      NextFile = True

    Else

      NextFile = False

      

    End if

    'delete the object for next occurance' 

    Set objTextFile = Nothing

  End Function

  

  

  Public Function PrevFile

  'create new TextFile object to reternve the 2 class values of BaseName and Extension'

    Dim objTextFile

    Set objTextFile = New TextFile 'declared the class'

    

    If objFSO.FileExists(objTextFile.BaseName &  (strCurrentFileIndex-1) & objTextFile.Extension) Then

       strActiveFile =Cstr(objTextFile.BaseName &  (strCurrentFileIndex-1) & objTextFile.Extension)

       'add one increment the counter'

       strCurrentFileIndex =(strCurrentFileIndex -1) 'increment the value'

      PrevFile = True

    Else

      PrevFile = False

      

    End if

    'delete the object for next occurance' 

    Set objTextFile = Nothing

    

  End Function

  

  'Function to clear the disctionary and delete the files'

  Public Function DeleteTheFiles 

   Dim intCount

   Dim intCounter

   'test the index number'

     If (objFileList.ListCount > 0)  Then

        intCounter =  (objFileList.ListCount-1) 

           For intCount = 0 to intCounter 

              Dim thefile 

              Set thefile = New TextFile 

            Call objFileList.MatchIndex(thefile,intCount) 'get the physical object'

              objFSO.DeleteFile(thefile.FileName)            'Delete the physical Files'

              Set thefile = Nothing                          'Reset for next instance'

          Next 

        DeleteTheFiles = True   

     Else

        DeleteTheFiles = False

     End if

   

   'clear the dict'

    objFileList.ClearAll

  

  End Function

     

 End Class

'------------------------------------------------------------------------------'

'------------------------------------------------------------------------------'

'Object to contain Regex Patterns used in the program'

Class RegexFilters

    

    'Class Global Variables'

    Private objRegExp  

    Private Pattern1

    Private Pattern2

    Private Pattern3

    Private Pattern4

     

    'Class Initilize'

    Private Sub Class_Initialize

        Set objRegExp         = New RegExp      

        objRegExp.IgnoreCase  = True 

        objRegExp.Global      = True 

        Pattern1              = "[…|*|.|a-z|0-9]"

        Pattern2              = "\b(\w+?)\b" 

        Pattern3              = "^(\.+|\*+)$"

        Pattern4              ="^.+\.((gif)|(GIF)|(jpg)|(JPG)|(jpeg)|(JPEG)|(png)|(PNG))$"

    End Sub

  

    'Class Terminate'

    Private Sub Class_Terminate

        Set objRegExp         = Nothing

    End Sub

    'Read Statements'

    Public Property Get PatternOne 

      PatternOne    = Pattern1

    End Property

    

    Public Property Get PatternTwo

      PatternTwo    = Pattern2

    End Property

    

    Public Property Get PatternThree

      PatternThree  = Pattern3

    End Property

    

    Public Property Get PatternFour

      PatternThree  = Pattern4

    End Property

    

    'Public Methods'

    Public Function TestEmptyLine(strLine) 

      objRegExp.Pattern = Pattern1

      If (objRegExp.Test(strLine)) Then

         TestEmptyLine    = True

      Else

        TestEmptyLine     = False  

      End if

     End Function 

    

    Public Function TestLineBreak(strLine)

      objRegExp.Pattern = Pattern3

      If ((objRegExp.Test(strLine))) Then

          TestLineBreak    = True

      Else

          TestLineBreak    = False

      End if

    End Function

   

    Public Function TestFileType(strFileName)

      objRegExp.Pattern = Pattern4

      If ((objRegExp.Test(strFileName))) Then

          TestFileType    = True

      Else

          TestFileType    = False

      End if

    End Function

    

    Public Function AddressOK(strFilePath)

    Dim StrReplace

        

    'replace blackslashes with foward slashes'

    StrReplace = Replace(strFilePath,"\","/")

    

    'replace spaces with a % sign'

    StrReplace = Replace(StrReplace," ","%")

    

    AddressOK = strReplace

    

    End Function

   

End Class

'------------------------------------------------------------------------------'

  

'------------------------------------------------------------------------------'

 'Object that will contain processing logic and the Text-Stream controls

 

 Class ProcessTextFiles

    

    'Global Variables

    Private objRegexFilters 

    'Declare the Instance Varibales'

    Private Paragraph

    Private Paragraph_Close

    Private Div

    Private Div_Close

    Private Img

    Private Img_Path 

    Private Img_Open

    Private Img_Close

    Private LineBreak

    Private HRule

    Private objFSO 

    Private ForReading

      Private ForWriting

      Private objRegex

      Private objTextFileInterface

      Private objImageFileInterface

      Private objImageOutputClass

      Private blnModeSelect

          

    'Class Initilize'

    Private Sub Class_Initialize

      Set objFSO           = CreateObject("Scripting.FileSystemObject")

       HRule               = "<hr style="" height: 1px; width: 80%; border: none; background-color: #527393; color: #527393;"" /><br />"

       Paragraph           ="<p>"

       Paragraph_Close     ="</p>"

       Div                 ="<div style=""font-size:14px"">"

       Div_Close           ="</div>"

       Img_Open            ="<img alt=""Image"" src=""file:///"

       Img_Close           = """/>"

       LineBreak           ="<hr style="" height: 1px; width: 80%; border: none; background-color: #527393; color: #527393;"" /><br />"

       ForReading          = 1

       ForWriting          = 2

       blnModeSelect          = False

      End Sub

 

    'Class Terminate'

    Private Sub Class_Terminate

       Set objRegexFilters = Nothing

       Set TextFileInterface = Nothing

       Set objImageOutputClass = Nothing

       Set objImageFileInterface = Nothing

    End Sub

 

 'Write Statements'

   Public Property Set TextFileInterface(obj) 

      Set objTextFileInterface  = obj 

   End Property

  

   'Write Statements'

   Public Property Set RegexFilters(obj) 

      Set objRegexFilters  = obj 

   End Property

   

   Public Property Let ModeSelect(ByVal bln)

      blnModeSelect =bln

   End Property

   

   'Write Statements'

   Public Property Set ImageFileInterface(obj) 

      Set objImageFileInterface  = obj 

   End Property

   

   Public Property Set ImageOutputClass(obj)

      Set objImageOutputClass = obj

   End Property

 

 'Processing function will be the control loop and call other private individual functions

 Public Function ProcessFiles(ByVal intNumb)

  Dim intCount 

  'loop through each file'

  For intCount = 0 to (intNumb-1) 'ListCount value gives e.g 5 files, but index starts at 0 so only need length value of 0-4 = 5 files'

    Call ReadFile(intCount) 'filenumber starts at 0'

      If (blnModeSelect = True) Then

        Call ProcessFile(intCount)

      Else 

        Call ProcessFileNormal(intCount)

      End if

    Call WriteFile(intCount)

  Next

 End Function

 

 Public Function ProcessFileNormal(intFileIndex)

   Dim objTextFile, aryNewString(), retString

   

   'get the current object'

    Set objTextFile = New  TextFile 

    Call objTextFileInterface.ReturnTheObject(objTextFile,intFileIndex)

   

    'process code here'

   If (Ubound(objTextFile.Read) > 0) Then

      'get the current value'

      retString = objTextFile.Read 'get the values'

      'past into final'

      objTextFile.Final = retString 

      ProcessFileNormal = True

   Else 

    ProcessFileNormal = False

   End if

   

   'close the objects'

    Set objTextFile = Nothing

 End Function

  

 Public Function ProcessFile(intFileIndex)

  Dim theFile,intI,retstring, objTextFile, i, aryNewString() ,intMax

  Dim intImageFileCount, intLoop, aryImagefilePath(),strCurrentTextFileName, strElement  

  

  'get the current object'

  Set objTextFile = New  TextFile 

  Call objTextFileInterface.ReturnTheObject(objTextFile,intFileIndex)

  

  'file:///C:/Users/Lewis/Documents/Air/071030_BLD%20301007.gif

  'get the listcount from the image object'

  '' intImageFileCount = objImageFileInterface.ListCount

   'set the aryImagefilePath() file Size'

   'ReDim aryImagefilePath(intImageFileCount-1) '0...count

  

  'get current file name of the current textfile

   'strCurrentTextFileName =objTextFile.filename

  

  'loop through each image'

'   For intLoop = 0 to intImageFileCount-1

'       Dim strImageFilePath

'       'call method that will return the file path of each image'

'       strImageFilePath =objImageOutputClass.ReturnPathIfRelationExists(strCurrentTextFileName,intLoop)

'       If (strImageFilePath <> empty) Then

'         'filter the path'

'         strImageFilePath = objRegexFilters.AddressOK(strImageFilePath)

'         'set the path into the array'

'         aryImagefilePath(intLoop) = strImageFilePath

'       'msgbox(aryImagefilePath(intLoop))

'       End if 

'   Next

  

  If (Ubound(objTextFile.Read) > 0) Then

      'process the file'

      intI=0 'set the innerloop counter'

      retstring = objTextFile.Read 'get the values'

      ReDim aryNewString(0) 

      intMax = False 

            

      While intMax = False

     

        If (i = 0) Then 'first line'

          ReDim Preserve aryNewString(i) 

          aryNewString(i) = Div

            'insert images here'

            i=(i+1) 'increment for the images'

            

            'loop to print images'

'             For Each strElement in aryImagefilePath 

'               If (strElement <> Empty) Then

'                 ReDim Preserve aryNewString(i)

'                 aryNewString(i) = Paragraph & Img_Open & strElement & Img_Close & Paragraph_Close

'                 i=(i+1)

'               End if

'             Next

            

        Elseif (intI = (Ubound(retstring))) Then 'last line'

          ReDim Preserve aryNewString(i)

          aryNewString(i) = Div_Close

          intMax= True 'last operation finish the loop'

        Else 'normal line'

          

          If  (objRegexFilters.TestLineBreak(retstring(intI))) Then   'line break' 

            ReDim Preserve aryNewString(i)

            aryNewString(i) =  HRule

            intI =intI +1

          Else

            ReDim Preserve aryNewString(i)

            aryNewString(i) = Paragraph & retstring(intI) & Paragraph_Close 

            intI =intI +1

          End if

          

        End if

        

        i= i +1 'increment the count'

     

      WEnd 

     

     'return sucess'

      ProcessFile =true 

     'write result to the object'

      objTextFile.Final = aryNewString  

  Else

      'file is empty'

      ProcessFile =False

  End if

  'close the objects'

  Set objTextFile = Nothing

  End Function

 

  Private Function WriteFile(intFileNumber)

    Dim objTextFile, retstring,intCount,thefile

    

    'get the current object'

    Set objTextFile = New Textfile

    Call objTextFileInterface.ReturnTheObject(objTextFile,intFileNumber)

    

    If (Ubound(objTextFile.Read) > 0) Then 'test if file is Not Empty'

    

      'Set the Fso object to open the file'

      Set theFile = objFso.OpenTextFile(objTextFile.FileName, ForWriting, False)

      'get the object to write'

      retstring = objTextFile.Final

      intCount = 0

      For intCount =0 To Ubound(retstring)

        theFile.WriteLine(retstring(intCount))

        theFile.WriteBlankLines(1)

      Next

      'Reset the objects

      'objTextFile = Nothing

  

    End if

  

  End Function

 

 'this function will read the textfile internal Method

  Private Function ReadFile(intFileNumber) 

    Dim theFile,intI,retstring(), objTextFile

    

    'get the current object'

    Set objTextFile = New  TextFile 

    Call objTextFileInterface.ReturnTheObject(objTextFile,intFileNumber)

    'set the fso object to the textfile'

    Set theFile = objFso.OpenTextFile(objTextFile.FileName, ForReading, False)

    'read the file' 

    intI=0 'set the innerloop counter'

    ReDim retstring(0) 

    Do While thefile.AtEndOfStream = False  'only execute if file not empty'

     'read the file into an array

     retstring(intI) = theFile.ReadLine() 'line stored in current intI value, if previous not incremented will replace empty line.

                    If objRegexFilters.TestEmptyLine(retstring(intI)) Then 'regular expression applied

                     intI=intI+1 ' incremented to move next line

                           ReDim Preserve retstring(intI) 

                    Else 'empty line value will not increment

                  End IF 

    Loop

         

     theFile.close()'close the file'

     objTextFile.Read  = retstring 'set retstring to the object'

     'Reset the Variables'

     Set theFile = Nothing

     Set objTextFile = Nothing

   End Function

    

 

 End Class

'------------------------------------------------------------------------------'

 'Defines the Image Files

Class ImageFiles

  

  'Class Global Variables

   Private strAssocTextFile

  

   'Class Initilize'

   Private Sub Class_Initialize

      strAssocTextFile = empty

   End Sub

 

'    'Class Terminate'

'    Private Sub Class_Terminate

'        

'    End Sub

  'Declare the Instance Varibales'

   Private strFileName

   Private strFilePath  

      

  'Read Statements'

  Public Property Get FileName

    FileName = strFileName  

  End Property

  

  Public Property Get FilePath

    FilePath = strFilePath

  End Property

  

  Public Property Get AssocTextFile

    AssocTextFile = strAssocTextFile

  End Property

  

  'Write Statements'

   Public Property Let FileName(strFile) 

     strFileName = strFile  

   End Property

  

   Public Property Let FilePath(str)

     strFilePath = str  

   End Property   

     

'   Public Property Set RelatedTextFiles(obj)

'     If TypeName(obj) <> "TextFile" Then

'        Msgbox ("invalid Object Type")

'     Else ' is correct object'

'       Set objTextFiles = obj

'     End if

'   End Property

  

  Property Let AssocTextFile(str)

    strAssocTextFile = str

  End Property

  

End Class

'------------------------------------------------------------------------------'

'build add data and control output to event handlers '

Class ImageOutput

  'Class Instance Constants'

  Private objFSO

  Private intDays 

  Private strDirectory 

  'Varaibles'

  Private objImageFileList 

    

  'class Initiate'

  Private Sub Class_Initialize

      Set objFSO       = CreateObject("Scripting.FileSystemObject")

      intDays          = -1

      strDirectory     = "C:\Users\Lewis\Documents\Air\"

  End Sub

  'class Terminate'

  Private Sub Class_Terminate

      Set objFSO    = Nothing

  End Sub 

  

    'Read Statements'

  Public Property Get PrintDays

   Days = intDays 

  End Property

    

     

  'returns an object from the file list' 

  Public Property Get ReturnPath(ByVal strFname) 

   Dim objImage 

   Set objImage = New ImageFiles 

   Call objImageFileList.DisplayEntry(objImage,strFname)

   ReturnPath = Cstr(objImage.FilePath) 

  End Property

  

  'Write Statements'

   Public Property Set ImageLists(obj) 

      Set objImageFileList  = obj 

   End Property

  

  Public Function Days(number)

    intDays = -number

  End Function

           

  'Methods'

  'used to intilize the datastructure'

  Public Function PopulateDictionary()

    Dim objFolder

    Dim objFilesCollection,intFiles

    Dim objImageFiles

    Dim dteToday

    Dim RegexTest

    Dim temp

        

    'regex test'

    Set RegexTest = New RegexFilters

    

    temp = intDays

    'Set the date properties'

    dteToday = DateAdd("d",temp,Date)

     

     'clear the list if any items in there'

     If (objImageFileList.ListCount >= 0) Then

      Call objImageFileList.ClearAll()

     End if

        

    'populate the objects'

    If (objFSO.FolderExists(strDirectory)) Then

      Set objFolder= objFSO.GetFolder(strDirectory)

      Set objFilesCollection = objFolder.Files

      For Each intFiles in objFilesCollection 

           If (intFiles.DateCreated >= dteToday)  Then

              If (RegexTest.TestFileType(intFiles.Name)) Then

                'created the file object'

                Set objImageFiles = New ImageFiles

                

                'add properties to objImageFiles'

                objImageFiles.FileName = intFiles.Name

                objImageFiles.FilePath = strDirectory & intFiles.Name           

                'add the entry to data-structure'

                objImageFileList.AddEntry(objImageFiles)

                Set objImageFiles = Nothing 'reset for next instance'

              End if

         End if

      Next

      PopulateDictionary = True

    Else

      PopulateDictionary = False

    End if

  End Function

  

  'return an array of all image objects'

  Public Function ReturnArray()

    'varaibles'

    Dim aryImageFiles(), intCount, i

     i=0 'set the inner loop counter default'

       

    'populate the array'

    For intCount =0 to objImageFileList.ListCount 

      'Create and ImageFiles object'

      Dim objImage

      Set objImage = New ImageFiles

      'call the function to Set it'     

      Call objImageFileList.MatchIndex(objImage,intCount) 'reterive the object'

      

      'Test if assocatiions are not null'

      If (IsEmpty(objImage.AssocTextFile))  Then 

        'resize the array'

        ReDim Preserve aryImageFiles(i) 're-size the array' 

        aryImageFiles(i) = objImage.FileName 'set the array vale as the image file name'

        i=  (i+1)

      End if 

      

      'reset the object'

      Set objImage = Nothing

    Next

  

    'return statement'

    ReturnArray = aryImageFiles  

  End Function

 

  'return an array of all image objects'

  Public Function ReturnShortArray(strConditon)

    'varaibles'

    Dim aryImageFiles(), intCount ,i  

     'msgbox(objImageFileList.ListCount)

      i = 0

           

    'populate the array'

    For intCount =0 to (objImageFileList.ListCount -1) 

      'Create and ImageFiles object'

      Dim objImage

      Set objImage = New ImageFiles

      'call the function to Set it'     

      Call objImageFileList.MatchIndex(objImage,intCount) 'reterive the object'

      

      'Test if assocatiions are not null'

      'Set the Inner Counter'

      

      

      If (objImage.AssocTextFile = strConditon)  Then 

        'resize the array'

        ReDim Preserve aryImageFiles(i) 're-size the array' 

        aryImageFiles(i) = objImage.FileName 'set the array vale as the image file name'

        i = (i + 1) 'increment the counter'

      End if 

      

      'reset the object'

      Set objImage = Nothing

     Next

    

    If (i > 0) Then  

      'return statement'

      ReturnShortArray = aryImageFiles

    Else

      ReturnShortArray = empty

    End if   

  End Function

 

   'set a varaible or remove it'

  Public Function BindTextFileObject(strImgFileName,strText)

    'access the dict reterive the object'

    Dim objImage

    Set objImage = New ImageFiles

    Call objImageFileList.DisplayEntry(objImage,strImgFileName)

    'msgbox("dddddd")

    'change the object'

    If typeName(objImage) = "ImageFiles" Then 

      objImage.AssocTextFile = strText

      BindTextFileObject = true

       

    Else 

      BindTextFileObject = False

    End if

    

    'Set objImage = Nothing 'reset the object'

  End Function

  

    

  Public Function UNBindTextFileObject(strImageFileName)

    'access the dict reterive the object'

    Dim objImage

    Set objImage = New ImageFiles

    Call objImageFileList.DisplayEntry(objImage,strImageFileName)

    

    'change the object'

    objImage.AssocTextFile = empty

    

    'Set objImage = Nothing 'reset the object'

  End Function

  

  Public Function ReturnPathIfRelationExists(strTextFileName,intIndex)

    Dim objImage, index

    Set objImage = New ImageFiles

    'set the current object reference'

    Call objImageFileList.MatchIndex(objImage,intIndex)

    If (objImage.AssocTextFile = strTextFileName) Then

      'return value relationExists'  

      ReturnPathIfRelationExists = Cstr(objImage.FilePath)  

    Else

      ReturnPathIfRelationExists = Empty

    End if

    'remove the objects'

    'objImage = Nothing

  End Function

End Class

'------------------------------------------------------------------------------'

</script>

<script type="text/vbscript">

'**********************Global objects******************************************'

Dim objCreate 'CreateOpenTextFile object '

Dim objFLists 

Dim ImageOutputArray, ImageFilesDataStructure

Dim objProcessTextFiles

Dim WeeklyImageOutputArray,WeeklyImageFilesDataStructure

  

'Create the Files'

Set objCreate = New CreateOpenTextFile

Set objFLists = New FileList 'created a new file-dictionary'

Set objCreate.FileLists = objFLists  

Set ImageOutputArray = New ImageOutput

'send the datastructures to the ImageOutputArray class'

Set ImageFilesDataStructure = New FileList 'same structure used previously new instance'

Set ImageOutputArray.ImageLists   = ImageFilesDataStructure 

'Process class'

Set objProcessTextFiles = New ProcessTextFiles

Set objProcessTextFiles.TextFileInterface = objCreate

Set objProcessTextFiles.RegexFilters = New RegexFilters

Set objProcessTextFiles.ImageFileInterface = ImageFilesDataStructure

Set objProcessTextFiles.ImageOutputClass = ImageOutputArray 

  

'weekly Images'

Set WeeklyImageOutputArray = New ImageOutput

'send the datastructures to the ImageOutputArray class'

Set WeeklyImageFilesDataStructure = New FileList 'same structure used previously new instance'

Set WeeklyImageOutputArray.ImageLists   = WeeklyImageFilesDataStructure

  

'refresh the child box'

Public Sub RefreshChild ()

   Dim intCurrentFileIndex

   'get the current File Index'

   intCurrentFileIndex = objCreate.CurrentFileIndex

   strTextFileName =  objCreate.ActiveFileName

      

      'Reset the child master'

    If (lstChild.length > 0) Then

      dim ii

      ii = lstChild.length -1  

      For j = 0 to ii

        Call lstChild.remove(lstChild.length-1)

      Next

    End if

    

    'get the filename from the slected image '

    Dim aryImageArray,i

    aryImageArray = ImageOutputArray.ReturnShortArray(strTextFileName) 

      If (typename(aryImageArray) <> "Empty") Then

          For i = 0 to (Ubound(aryImageArray)) 'length ie next free element -1 to get actual' 

            Dim y 

            Set y = document.createElement("option")

            y.text = aryImageArray(i)

            Call lstChild.add(y)

            Set y = Nothing

         Next

     End if

End Sub

  

Sub MasterFill ()

  'get an array'

    Dim aryImageArray,i,j,aryOptions

    aryImageArray = ImageOutputArray.ReturnArray() 

    

    'Reset the First master'

    If (lstMaster.length > 0) Then

      dim ii

      ii = lstMaster.length -1  

      For j = 0 to ii

        Call lstMaster.remove(lstMaster.length-1)

      Next

    End if

    

    're-fill the List'    

    for i =0 to (Ubound(aryImageArray)-1) 'length ie next free element -1 to get actual' 

    Dim y 

     Set y = document.createElement("option")

     y.text = aryImageArray(i)

     Call lstMaster.add(y)

     Set y = nothing

    Next

End Sub

'*********************Event Handlers*******************************************'

'the onload event handler in the body'

Public Sub NewHTA()

  'hide the frame onload'

  WeeklyFrame.style.display = "none"

  Call WeeklyImages(1) 'default is One'

End Sub

  

Sub Create()

  'created varables

  Dim intNumber 'number of files' 

  

  'get the number of files from the input filed'

  intNumber = NumInputDataFiles.value 

  If (objCreate.CreateFiles(intNumber)) Then

    diditwork_step1.InnerHTML = "Successful" 

  Else

    diditwork_step1.InnerHTML = "Failed To Create File"

  End if 

  

  'disbale/enable buttons'

  btnPreviousFilebutton.disabled = "false" 'started at last number need to move to previous first

  btnOpenFile.Disabled = "False"

  btnNextFile.Disabled = "False"

  btnProcessCollection.disabled="False"

  filepath.InnerHtml = "Article" & intNumber &".txt"

  btnRemoveImage.Disabled = "False"

  btnAddImage.Disabled = "False"

  btnIncreaseTime.disabled = "False"

  

  'set the state Filds'

  'numfiles.value = intNumber 'max number of Files'

  'numFilesTwo.value = intNumber 'first article to max_Number'

  

  'bind the image selection boxes'

     If (ImageOutputArray.PopulateDictionary()) Then

       Call MasterFill ()

     Else 

    Msgbox("Image-Binding Failed")

    End if

End Sub

  

'event handler to open the file'

Sub OpenFile()

   objCreate.Open()

End sub

  

'event handerls for btnNext'

Sub Nextbutton() 

 'only change the file path if true

  If  (objCreate.NextFile()) Then

    filepath.innerHTML = "Article"& objCreate.CurrentFileIndex &".txt"

    If (btnPreviousFilebutton.disabled = "True")  then

        btnPreviousFilebutton.disabled = "False"

    End if 

  Else

    btnNextFile.Disabled = "True" 'so cant click again

    msgbox("no Files")

  End if

  

  'reset the master and child Ray'

  Call MasterFill ()

  'reset the Child'

  Call RefreshChild ()

  

End Sub 

  

'eventHandler for the btnPrevious'

Sub PrevButton() 

 'only change the file path if true

  If  (objCreate.PrevFile()) Then

    filepath.innerHTML = "Article"& objCreate.CurrentFileIndex &".txt"

    If (btnNextFile.Disabled = "True") Then

        btnNextFile.Disabled = "False"

    End if 

  Else

    msgbox("no Files") 

    btnPreviousFilebutton.disabled = "True"

  End if

  

  'reset the master and child Ray'

  Call MasterFill ()

  'reset the Child'

  Call RefreshChild ()

  

End Sub

  

'Event Handler for the btnCleanupFilesButton'

Sub ProcessCollection()

Call objProcessTextFiles.ProcessFiles(objFLists.ListCount)

  

btnCleanupFilesButton.disabled ="False" 

btnProcessCollection.disabled = "true"

End Sub

  

  

Sub CleanFiles()

   If (objCreate.DeleteTheFiles())Then

      btnCleanupFilesButton.disabled ="True"

   Else

      MsgBox ("Failed to Delete Files")

  End If

  'refresh the page'

  Call window.location.reload()

End Sub

  

'event hander for the btnBindImage'

Sub BindImage()

  'get the current Textfile'

  Dim intCurrentImgIndex,strFileName,strFName,intSelectedIndex

  intCurrentImgIndex =CInt(objCreate.CurrentFileIndex)

  

  'Set objTextFile = New TextFile

  strTextFileName = objCreate.ReturnObject(intCurrentImgIndex-1)

  

  'get slected image file'

   intSelectedIndex = lstMaster.selectedIndex

   

  If (intSelectedIndex >=0) Then

     strImageFName= lstMaster.options(intSelectedIndex).text 

    'msgbox(strImageFName & strTextFileName)

    'set the object properties'

    If (ImageOutputArray.BindTextFileObject(strImageFName,strTextFileName)) Then

     'refresh the dam thing'

     'Reset the First master'

      If (lstChild.length > 0) Then

        dim ii

        ii = lstChild.length -1  

        For j = 0 to ii

          Call lstChild.remove(lstChild.length-1)

        Next

      End if

     'get the filename from the slected image '

      Dim aryImageArray,i

      aryImageArray = ImageOutputArray.ReturnShortArray(strTextFileName) 

      For i = 0 to (Ubound(aryImageArray)) 'length ie next free element -1 to get actual' 

         Dim y 

         Set y = document.createElement("option")

         y.text = aryImageArray(i)

         Call lstChild.add(y)

         Set y = Nothing

      Next

      'refersh the master array'

        Call MasterFill()

    Else

    msgbox ("binding failed")

    End If

  End if

End Sub 

 

'Bind the currently selected image to the preview'

Sub ImagePreview(text)

    Dim strFName,intSelectedIndex,strFilePath

    'check for the right list'

    If (text = "Master") Then

        'get the selected item'

        intSelectedIndex = lstMaster.selectedIndex

        If (intSelectedIndex >= 0 ) Then

            strFName = lstMaster.options(intSelectedIndex).text

        End if

    Else

        'get the selected item'

        intSelectedIndex = lstChild.selectedIndex

        If (intSelectedIndex >= 0 ) Then

           strFName = lstChild.options(intSelectedIndex).text

        End if

    End if

    If (strFName <> empty) Then 

        'get the full path' 

        strFPath = ImageOutputArray.ReturnPath(strFName)

        'set the preview frame properties'

        imgPreview.src =strFPath

    End if

End Sub

  

'event handler for the btnUnbind 

Public Sub UnBindImage()

  Dim intSelectedIndex,strImageFName

  'get slected image file'

   intSelectedIndex = lstChild.selectedIndex

   If (intSelectedIndex >= 0 ) Then 'if not valid dont call it'

      strImageFName= lstChild.options(intSelectedIndex).text 

      Call ImageOutputArray.UNBindTextFileObject(strImageFName)  

      'refersh the master array'

      Call MasterFill()

      'refresh the child'

      Call RefreshChild()

  End if

End Sub

  

  

Public Sub ChangeTimeWeekly()

Dim intNumDays

   'get the value from the inputbox'

   intNumDays = txtnumdaysWeekly.value

   intNumDays = Cint(intNumDays)

   intNumDays = abs(intNumDays)

  'refresh the screen'   

  Call WeeklyImages(intNumDays)    

End sub

  

'event handler for the btnChangeTime'

Public Sub ChangeTime()

   Dim intNumDays

   

   'get the value from the inputbox'

   intNumDays = txtnumdays.value

   intNumDays = Cint(intNumDays)

   intNumDays = abs(intNumDays)

   'msgbox(typename(intNumDays))

   

   

   'validate the value  ie not negative and is a number <365

  If (IsNumeric(intNumDays)) Then

      

      'call the method to empty the imagefile directory'

      Call ImageFilesDataStructure.ClearAll()

      

      'set the days variable'

      Call ImageOutputArray.Days(intNumDays)

                       

      'populate the dictionary'

      Call ImageOutputArray.PopulateDictionary()

      

      'refersh the master array'

      Call MasterFill()

      'refresh the child'

      Call RefreshChild()

  Else

    Msgbox ("Invalid Number")  

  End if

End Sub

  

'event handers for the tabs '

Public Sub SwitchWeekly ()

  NormalFrame.style.display ="none"

  WeeklyFrame.style.display = "block"

End Sub

  

Public Sub SwitchNormal ()

  WeeklyFrame.style.display ="none"

  NormalFrame.style.display ="block"

End Sub

  

'event handler for the chkMode checkbox'

Public Sub ModeSwitch()

 If (chkMode.checked = True) Then  'non-markp mode

  objProcessTextFiles.ModeSelect = False

 Else     ' Markup Mode'

  objProcessTextFiles.ModeSelect = True

 End if

End Sub

  

'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>..Event Handlers for second Frame..>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>'

  

Public Sub WeeklyImages(days)

  'declare the varaibles'

  Dim strFPath,intCount,i,thefilepath,FName

  Dim objImageFile, temptext, testobject,NameNode,ButtonNode,temp

   

  'set the number of days'

  Call WeeklyImageOutputArray.Days(days) 

  

  'populate the dictionary'

  Call WeeklyImageOutputArray.PopulateDictionary()

              

  'Bind the currently selected image to the preview'

  intCount = WeeklyImageFilesDataStructure.ListCount 'get count from the file list'

  'use the match index method to return the image'

   For i = 0 to intCount-1   

       Set objImageFile = New ImageFiles

       Call WeeklyImageFilesDataStructure.MatchIndex(objImageFile,i)

       thefilepath= objImageFile.FilePath

       FName= objImageFile.FileName

       

       'define button node'

'        Set ImageNode  = document.createElement("img")

'        Set NameNode   = document.createElement("div")

'        Set ButtonNode = document.createElement("button")

'                    

'        With WeeklyFrame.appendChild(NameNode)

'                  .innerHTML      =FName   

'        End With

'           

'        With WeeklyFrame.appendChild(ImageNode)

'        Call    .setAttribute("src", thefilepath&FileName)

'                

'        End With

       

       'With WeeklyFrame.appendChild(ImageNode)

       

       'End With

       

       temptext = temptext & "<img style=""margin:10px 20px 10px 20px"" src="""&thefilepath&FileName&""" />"

       WeeklyFrame.innerHTML = tempText

   Next

      temptext = empty 'reset just incase'

End Sub

Screen-Shots

Download: LineRemoverClass.hta (48.81 kb)

Be the first to rate this post

Currently 0/5 Stars.
1
2
3
4
5

Tags:		vbscript, air, australiasian investment review, text, processor
Categories:		Projects
Actions:		E-mail \| Permalink \| Comments (85) \| Comment RSS

VBScript Text Processor[No text] Projects Page These are some of my Current and Past Work A MS-OFFICE 2003 Application &nb...Photos Image Control Version 2 Earlier I created a custom User control , to fill a gab in the blog framework I am currently using...

Comments

December 26. 2009 02:04

Pretty good post. I just stumbled upon your blog and wanted to say that I have really enjoyed reading your blog posts.Any way Ill be subscribing to your feed and I hope you post again soon

Kristopher

December 27. 2009 17:25

You had fantastic good ideas here. I did a search on the subject and discovered almost all peoples will agree with your blog.

Amya

January 3. 2010 10:37

I admire the valuable information you offer in your articles. I will bookmark your blog and have my children check up here often. I am quite sure they will learn lots of new stuff here than anybody else!

Lisa

January 11. 2010 03:44

Took me time to read all the comments, but I really enjoyed the article. It proved to be Very helpful to me and I am sure to all the commenters here! It's always nice when you can not only be informed, but also entertained! I'm sure you had fun writing this article.

tatuaggi maori

January 14. 2010 07:04

I thought it was going to be some boring old post, but it really compensated for my time. I will post a link to this page on my blog. I am sure my visitors will find that very useful.

valentine puzzle

January 14. 2010 07:28

Interesting ... as always - is your blog making any cash advance ? ;)

faxless cash advance

January 15. 2010 01:37

One person with a belief is equal to ninety-nine who have only interests.

online payday loans

January 16. 2010 13:31

Nice to be visiting your blog again, it has been months for me. Well this article that i've been waited for so long. I need this article to complete my assignment in the college, and it has same topic with your article. Thanks, great share.

Trade Leads

January 25. 2010 02:02

Resources like the one you mentioned here will be very useful to me! I will post a link to this page on my blog. I am sure my visitors will find that very useful.

blueair air purifier

January 26. 2010 04:12

Hi. this is kind of an "unconventional" question , but have other visitors asked you how get the menu bar to look like you've got it? I also have a blog and am really looking to alter around the theme, however am scared to death to mess with it for fear of the search engines punishing me. I am very new to all of this ...so i am just not positive exactly how to try to to it all yet. I'll just keep working on it one day at a time.

NJ Website Design

January 27. 2010 23:37

You made tremendous great ideas there. I made a search on the topic and noticed almost all peoples will agree with your blog.

February 2. 2010 00:53

hoekbanken

February 3. 2010 07:29

I was very pleased to find this site.I wanted to thank you for this great read!! I definitely enjoying every little bit of it and I have you bookmarked to check out new stuff you post.

data backup

February 6. 2010 04:09

We need men who can dream of things that never were.

Dishwashers

February 8. 2010 00:34

401k withdrawal

February 9. 2010 18:44

I admire what you have done here. I like the part where you say you are doing this to give back but I would assume by all the comments that this is working for you as well.

bbq grills

February 12. 2010 20:16

Me and my friend were arguing about an issue similar to this! Now I know that I was right. lol! Thanks for the information you post.

James

February 14. 2010 12:39

Hello,I love reading through your blog, I wanted to leave a little comment to support you and wish you a good continuation. Wishing you the best of luck for all your blogging efforts.

Bay Point Garage Door Repair

February 14. 2010 22:49

Hi webmaster, commenters and everybody else !!! The blog was absolutely fantastic! Lots of great information and inspiration, both of which we all need!b Keep 'em coming... you all do such a great job at such Concepts... can't tell you how much I, for one appreciate all you do!

solar lights for garden

February 17. 2010 17:53

Pretty good post. I just stumbled upon your blog and wanted to say that I have really enjoyed reading your blog posts. Any way I'll be subscribing to your feed and I hope you post again soon.

Maltese training

February 25. 2010 06:36

Valuable information and excellent design you got here! I would like to thank you for sharing your thoughts and time into the stuff you post!! Thumbs up

ecover design

February 25. 2010 22:04

You gave nice ideas here. I done a research on the issue and learnt most peoples will agree with your blog.

Maria

March 1. 2010 06:06

Valuable information and excellent design you got here! I would like to thank you for sharing your thoughts and time into the stuff you post!! Thumbs up

swoopo clone

March 3. 2010 04:31

Hello,I love reading through your blog, I wanted to leave a little comment to support you and wish you a good continuation. Wishing you the best of luck for all your blogging efforts.

tanden bleken

March 3. 2010 21:04

I never will understand all the good that a simple smile can accomplish.

teeth whitening

March 4. 2010 12:00

I admit, I have not been on this webpage in a long time... however it was another joy to see It is such an important topic and ignored by so many, even professionals. I thank you to help making people more aware of possible issues.
Great stuff as usual...

Hopelawn NJ Electrician

March 4. 2010 16:50

You may have not intended to do so, but I think you have managed to express the state of mind that a lot of people are in. The sense of wanting to help, but not knowing how or where, is something a lot of us are going through.

online roulette systems

March 7. 2010 06:23

This is my first time i visit here. I found so many interesting stuff in your blog especially its discussion. From the tons of comments on your articles, I guess I am not the only one having all the enjoyment here! keep up the good work.

boards

March 7. 2010 06:49

boards

March 11. 2010 13:15

Howdy, i read your blog occasionally and i own a similar one and i was just wondering if you get a lot of spam comments? If so how do you prevent it, any plugin or anything you can advise? I get so much lately it's driving me mad so any assistance is very much appreciated.

oregon divorce lawyer

March 17. 2010 20:23

Have you ever considered adding more videos to your blog posts to keep the readers more entertained? I mean I just read through the entire article of yours and it was quite good but since I'm more of a visual learner,I found that to be more helpful well let me know how it turns out! I love what you guys are always up too. Such clever work and reporting! Keep up the great works guys I've added you guys to my blogroll. This is a great article thanks for sharing this informative information.. I will visit your blog regularly for some latest post.

outdoor patio furniture sets

March 17. 2010 20:23

This is a really good read for me, Must admit that you are one of the best bloggers I ever saw.Thanks for posting this informative article.

Affordable SEO

March 19. 2010 07:06

No one has a greater asset for his business than a man's pride in his work.

payday loans

March 20. 2010 01:38

How-do-you-do, just needed you to know I have added your site to my Google bookmarks because of your extraordinary blog layout. But seriously, I think your site has one of the freshest theme I've came across. It really helps make reading your blog a lot easier.

Buy HGH

March 21. 2010 17:44

I love your blog. I came here a few months ago. Thank you for posting information for free, which other companies are actually charging for.

Jimmy Lee

March 26. 2010 00:03

While this subject can be very touchy for most people, my opinion is that there has to be a middle or common ground that we all can find. I do appreciate that youve added relevant and intelligent commentary here though. Thank you!

cheap floating candles

March 26. 2010 04:20

I was Is anyone else having problems reading older posts? I hope it gets fixed. Thanks

new jersey scrap metal

March 26. 2010 07:02

My friend just sent me this link I was I am getting a 404 page not found when trying to access other posts I hope it gets fixed. Thanks

north nj campground

March 27. 2010 22:48

Hrmm that was weird, my comment got eaten. Anyway I wanted to say that it's nice to know that someone else also mentioned this as I had trouble finding the same info elsewhere. This was the first place that told me the answer. Thanks.

Chino Valley CA Garage Door Repair

March 29. 2010 04:12

Valuable information and excellent design you got here! I would like to thank you for sharing your thoughts and time into the stuff you post!! Thumbs up

Dallas Divorce Attorney

March 29. 2010 07:38

250cc scooter

April 1. 2010 03:02

My brother sent me a link to this site. I have found some really good information here and in the older posts.

San Jose Funeral Home

April 1. 2010 04:52

My brother sent me a link to this site. I have found some really good information here and in the older posts.

north nj garbage disposal

April 2. 2010 18:32

I have recently started using the blogengine.net and I having some problems here? in your blog you stated that we need to enable write permissions on the App_Data folder...unfortunately I don't understand how to enable it.

k9grass

April 5. 2010 04:50

We have a few blogs that we run and post on similar topics if anyone is interested in seeing thoses just let me know. In the older posts there are is some very interesting posts if some of you have not checked it out yet.If the time comes when you need to purchase Cremation Urns please email me and I can make you a good deal.

NJ campgrounds

April 8. 2010 02:30

I was very pleased to find this site.I wanted to thank you for this great read!! I definitely enjoying every little bit of it and I have you bookmarked to check out new stuff you post.

forum

April 8. 2010 02:52

outdoor solar lighting

April 8. 2010 05:13

massage feet how to

April 10. 2010 04:48

Keep 'em coming... you all do such a great job at such Concepts... can't tell you how much I, for one appreciate all you do!

stop sweating

April 11. 2010 22:42

I was wondering what is up with that weird gravatar??? I know 5am is early and I'm not looking my best at that hour, but I hope I don't look like this! I might however make that face if I'm asked to do 100 pushups. lol

web hosting

April 12. 2010 00:47

You really make it seem so easy with your presentation but I find this topic to be really something which I think I would never understand. It seems too complicated and very broad for me. I am looking forward for your next post, I will try to get the hang of it!

Celebration Publishing

April 14. 2010 09:34

This is such a great resource that you are providing and you give it away for free. I love seeing websites that understand the value of providing a quality resource for free. It is the old what goes around comes around routine. Did you acquired lots of links and I see lots of trackbacks??

successful internet marketers

April 15. 2010 10:24

Hi there. I really appreciate the points you made. I dont think Ive actually thought about it in that way. I can really appreciate how you approached the subject matter and what you said really gave me a new perspective. Thanks for taking the time to write this all out.

merchant services

April 18. 2010 00:36

The secret to productive goal setting is in establishing clearly defined goals, writing them down and then focusing on them several times a day with words, pictures and emotions as if we've already achieved them.

instant loans

April 19. 2010 01:34

This is a really good read for me, Must admit that you are one of the best bloggers I ever saw.Thanks for posting this informative article.

ssk sorgulama

April 19. 2010 02:38

That is some inspirational stuff. Never knew that opinions could be this varied. Thanks for all the enthusiasm to offer such helpful information here.

press release submission

April 21. 2010 19:53

Nice post on peters part, yet, that's what I was wondering too, crazy

Sometimes it's troublesome when outside used out the laptop battery, the batterybar is so useful for me, thank for your recommend.

laptop computer accessories

April 28. 2010 22:46

The hardest decisions to make are when that unthinkable thing happens and one of your friends die Many people choose to purchase Cremation Urns instead of coffins because of the price difference.One of the first choices you will make depends on who it is for there are many different types, styles and categories of Urns. Some of most common materials Cremation Urns are made of are Brass Urns, Bronze Urns.

warren nj landscaping

April 29. 2010 01:28

The hardest decisions to make are when that unthinkable thing happens and one of your friends die Cremation Urns are a popular choice to help remember those who have passedOne of the first choices you will make depends on who it is for Many people want to remember their loved one a specific way and cremation urns provide one of the largest choices and varieties. Some of most common materials Cremation Urns are made of are Copper Urns, Crystal Urns, Cultured Marble, .

central new jersey landscaping

May 1. 2010 12:39

Every year we get the worst storms that are so strong that our trees crash down on top of things. When this does happen I usually search for a website of a tree service company in my area to come and do the job.I remember one year when there were two trees that fell on the same car in my driveway. I am lucky as I have found a local A couple businesses that do a wonderful job at tree cutting trimming, stump grinding , etc.

New Jersey Tree Service

May 30. 2010 08:16

Your blog seems interesting.Regards,Kevin.

discount handbags

May 31. 2010 19:32

This is a fabulous posting, im delighted I recently found it. Ill be back again later to check out other posts that you have on your blog.

Hip hop fashion

May 31. 2010 19:32

Admiring the time and effort you put into your blog and detailed information you offer!

north face fleece

June 4. 2010 04:45

Your blog is perfect, and I like this article. I find the information I need. I think I can find more useful information here, thanks.

louis bags

June 13. 2010 19:17

Valuable information and excellent design you got here! I would like to thank you for sharing your thoughts and time into the stuff you post!! Thumbs up!

designer handbags reviews

June 15. 2010 15:03

I am a huge fan of this website and I check it regularly. Keep up the great work!

Ignacio Cloughly

June 22. 2010 02:19

Im a huge fan already, man. Youve done a brilliant job making sure that people understand where youre coming from. And let me tell you, I get it. Great stuff and I cant wait to read more of your blogs. What youve got to say is important and needs to be read.

wow gold

June 22. 2010 02:54

hey, your post really helps, today i receive the same troubles, and i do not know on what are the best registry cleaner. thank god i look google and discovered your post, it helps me get rid of my trouble. thanks again this thing, may i paste your article on my site? i will add the source. regards!

wow gold

June 22. 2010 03:32

good, your web site theme is really nice, I am seeking for any new theme for my individual weblog, I like yours, now I will go lookup the exact same theme!

wow gold

June 24. 2010 15:12

I savoured reading it. I need to read more on this subject...I am admiring the time and effort you put in your blog, because it is apparently one great place where I can find lot of usable info..

ff14 gil

June 24. 2010 15:52

You gave great points here. I made a research on the subject and found nearly all peoples will agree with your blog.

wow gold

June 24. 2010 16:48

Hi. I just noticed that your site looks like it has a few code problems at the very bottom of your blog's page. I'm not sure if everybody is getting this same problem when browsing your website? I am employing a totally different browser than most people, referred to as Opera, so that is what might be causing it? I just wanted to make sure you know. Thanks for posting some great postings and I'll try to return back with a completely different browser to check things out! Also, I put a link to your blog at my site,hope you dont mind?

wow gold

June 24. 2010 17:39

Hi i must say very nice blog, very good article, i hope your blog gets more visitors good luck.

wow gold

June 24. 2010 18:02

{|Awesome post!|Great share.|I read it all.| I think you can add some more pictures to your post.|I liked the message given above.|Thank you for the tip.|Great message given there.|I liked your theme|Thanks for being so gentle to share this information.|I!ll come back to read more posts from you|Thanks so much|I agree with you.} While seeking revenge, dig two graves - one for yourself. ~Doug Horton

wow gold

June 24. 2010 18:29

This is one of the most good blogs Ive read in a very long time. The amount of nice information in here is stunning, like you practically wrote the book on the subject. Your article is great for anyone.

wow gold

June 24. 2010 19:04

Just wanted to say thanks for the nice article your very insighful on this topic!

wow gold

June 25. 2010 20:20

Although I can't agree with all you staded, I must confess I do love your way of writing.

herve leger dress

June 25. 2010 20:21

Thanks for this brilliant article. I am delighted after reading this. Thank you!

Wedding accessories wholesale

July 8. 2010 19:01

Overall although your babya s deepest get to sleep is inside the early component in the nighttime so following that 1st get to sleep cycle she may snooze just fine for one or two days So youa re golden rightIJ Just hold her for an hourIJ Nope

Getting a good nights sleep

July 9. 2010 02:02

I took 1 st mortgage loans when I was 25 and this aided my family very much. But, I need the small business loan as well.

loans

July 17. 2010 18:39

You did the a great work writing and revealing the hidden beneficial features of BlogEngine.Net, that I found it was popularly used by bloggers nowadays. I think BE has emerged to be one of the best blogging platform right now. I wish you good luck with your blogging experiences.

nike air force 1

July 18. 2010 22:16

I have been looking for content like this for a research project I am working. Thanks very much. These types of cheap electronic gadgets used to be readily available down at the mall when stores like Brookstone and Sharper Image were around, but when those places closed down I obviously had to come up with a different way to feed my habit.

gucci bags

July 19. 2010 16:36

I wanted to thank you for this excellent read!! I definitely loved every little bit of it.Cheers for the info!!!! & This is the perfect blog for anyone who wants to know about this topic. You know so much its almost hard to argue with you .........
thanks

redimensionner photo

July 19. 2010 19:11

Join me in promoting this new stance , say hairstyles http://hubpages.com/hub/joico-hairstyles-advice "NO" to expensive court battles and "YES" to our children.

UHF rfid tags

July 23. 2010 20:37

Thanks for the information .which i was searching for long time
Really dear these is nice blog...........

dental crown treatment cancun

Add comment

Name*
E-mail* (Will show your Gravatar icon)
Website
Country Country flag

b i u quote

Comment
Preview

Notify me when new comments are added

IComeFromTheNet.net

VB-Script Text Processor

Project Reasons

Project Aim

Results

Classes

WSH objects used

Language Tricks

General Code

Screen-Shots

Download: LineRemoverClass.hta (48.81 kb)

Related posts

Comments

Add comment

Search

Pages

Categories

Tags

Archive

Blogroll

Disclaimer