Convert a file to a string

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Convert a file to a string

Logged in as: Guest

arrSession:exec spGetSession 2,16,32180

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Convert a file to a string
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Convert a file to a string - 3/10/2006 5:42:17 AM

DiGiTAL.SkReAM

Posts: 1171
Score: 7
Joined: 9/6/2005
From: Florida, USA
Status: offline

You might think that it sounds simple, but take an HTA for example. Say that you just created this monster .HTA file, but don't want to copy it out along with your other script(s) to the pc it will be running on. You want to create it on the fly. Like for using a .HTA for a progress bar? Well, you could manually enter in hundreds of lines of code, remembering to wrap them in special quotes and characters so that when you write the lines out to a text file, it will be formatted correctly. OR, you could use this function: (just copy and paste it into your script, it already includes the required class for concatenating the strings).
each line is wrapped in double quotes, and I use Chr(34) for the internal quotes.

Hope you find this as usefull as I do.

Function fConvertFileToString(sFileToConvert)
' This function will take a text file and parse through it
' enclosing each line in the needed quotes so that it can be
' written out to a text file at a later time.  It will then dump
' the file into the returned value of the function as a string.
' Very useful for creating files on the fly.
Dim oFileToConvert, sFileText, sFileTextReplaced, oFileCat
 If oFSO.FileExists(sFileToConvert) Then
  Set oFileCat = New StringCat
  set oFileToConvert = oFSO.OpenTextFile(sFileToConvert,1)
   Do While Not oFileToConvert.AtEndOfStream
    sFileText = oFileToConvert.ReadLine
     If Trim(sFileText) <> "" Then
      If InStr(sFileText, Chr(34)) <> 0 Then 
       sFileTextReplaced = Replace(sFileText, Chr(34), Chr(34) & " & Chr(34) & " & Chr(34))
       oFileCat Chr(34) & sFileTextReplaced & Chr(34)
      Else
       oFileCat Chr(34) & sFileText & Chr(34)
      End If 
     End If     
   Loop
  oFileToConvert.Close
  fConvertFileToString = oFileCat.Flush
 Else
  fConvertFileToString = "The File is not present at " & sHTAFile
 End If 
End Function
Class StringCat
' This class allows the creation of an Object for use In
' concatenating strings MUCH faster than string = string & newstring.
' Usage: first, create a new instance of the object.
' set oMyNewStringObject = New StringCat
' Then, simply add strings to that object until you are ready to read them back out.
' oMyNewStringObject "A new String to add."
' When ready to read the concatenated strings back, simply flush the object.
' sNewString = oMyNewStringObject.Flush
' or 
' WScript.Echo oMyNewStringObject.Flush
'
' When done with the object, you can clear it by performing:
' oMyNewStringObject = Nothing
Dim StringCat_iElement, StringCat_aString
Private Sub Class_Initialize()
 StringCat_iElement = 0
 ReDim StringCat_aString(StringCat_iElement)
End Sub

Public Default Sub AddString(Value)
 StringCat_aString(StringCat_iElement) = Value
 StringCat_iElement = StringCat_iElement + 1
 ReDim Preserve StringCat_aString(StringCat_iElement)
End Sub

Public Function Flush
 StringCat_iElement = StringCat_iElement - 1
 Redim Preserve StringCat_aString(StringCat_iElement)
 Flush = Join(StringCat_aString,VbCrLf)
End Function
Private Sub Class_Terminate()
'  Erase StringCat_aString
End Sub
End Class

For an example of how this works, here is the raw text of an HTA file:

And here is the modified text of that hta, which is returned ina single string, each line seperated by a VbCrLf:

"<html>"
"<head>"
"<meta http-equiv=" & Chr(34) & "Content-Type" & Chr(34) & " content=" & Chr(34) & "text/html; charset=windows-1252" & Chr(34) & ">"
"<title>My HTML Application</title>"
"<script language=" & Chr(34) & "vbscript" & Chr(34) & ">"
""
"</script>"
"<hta:application"
" applicationname=" & Chr(34) & "MyHTA" & Chr(34) & " "
" border=" & Chr(34) & "dialog" & Chr(34) & ""
" borderstyle=" & Chr(34) & "normal" & Chr(34) & ""
" caption=" & Chr(34) & "My HTML Application" & Chr(34) & ""
" contextmenu=" & Chr(34) & "no" & Chr(34) & ""
" icon=" & Chr(34) & "myicon.ico" & Chr(34) & ""
" maximizebutton=" & Chr(34) & "no" & Chr(34) & ""
" minimizebutton=" & Chr(34) & "yes" & Chr(34) & ""
" navigable=" & Chr(34) & "no" & Chr(34) & ""
" scroll=" & Chr(34) & "no" & Chr(34) & ""
" selection=" & Chr(34) & "no" & Chr(34) & ""
" showintaskbar=" & Chr(34) & "yes" & Chr(34) & ""
" singleinstance=" & Chr(34) & "yes" & Chr(34) & ""
" sysmenu=" & Chr(34) & "yes" & Chr(34) & ""
" version=" & Chr(34) & "1.0" & Chr(34) & ""
" windowstate=" & Chr(34) & "normal" & Chr(34) & ""
">"
"</head>"
"<body>"
""
"</body>"
"</html>"

_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury