Software Testing Social Network

You shouldn't ask for help with homework here, what's the point of passing the class if you don't learn anything?

I don't know VBScript, but I use Visual Basic 6, and most of it is pretty much identical (except for the fact that VBScript is a scripting language).

#1.

'Use it like this: myString = MyReverse("Hello, world!")
Private Function MyReverse(ByRef Expression As String) As String
Dim strRet As String, lonLen As Long
Dim l As Long

lonLen = Len(Expression)
If lonLen = 0 Then Exit Function
strRet = Space$(lonLen)

For l = lonLen To 1 Step -1
Mid$(strRet, l, 1) = Mid$(Expression, (lonLen - l) + 1, 1)
Next l

MyReverse = strRet
End Function


#2.

'Use like this:
'ReplaceInFile("Test.txt", "Test1.txt", "|Testing|", "Welcome to QTP")
Private Sub ReplaceInFile(ByRef FilePath As String, _
ByRef Destination As String, _
ByRef Find As String, _
ByRef ReplaceWith As String, _
Optional ByVal CompareMethod As VbCompareMethod = vbBinaryCompare)

On Error GoTo ErrorHandler

Dim intHandle As Integer, strData As String

'Easy way, but slow for large files.
Open FilePath For Input As intHandle
strData = Input$(LOF(intHandle), intHandle)
Close intHandle
intHandle = 0

'Replace the data.
strData = Replace(strData, Find, ReplaceWith, , , CompareMethod)
intHandle = FreeFile

'Kill destination file if it already exists.
On Error Resume Next
Kill Destination
On Error GoTo ErrorHandler

Open Destination For Append As intHandle
Print #intHandle, strData;
'Not sure if the ; at the end will raise error in VBScript.
'But in Visual Basic, it prevents a new line at the end of file.
'Remove it if needed.
Close intHandle
intHandle = FreeFile

Exit Sub
ErrorHandler:
If intHandle <> 0 Then Close intHandle
Exit Sub
End Sub


3. I'll let you do #3.