VBscript is easy

Ker sefo

Dim line, tmpLine, str, testStr, a1()

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("output.txt", True)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("input.txt", 1)
Do Until objFile.AtEndOfStream
    line = objFile.Readline
    testStr = noPunct(line)
    tmpLine = testStr
    testStr = reverseWord(testStr)
    If LCase(testStr) = LCase(tmpLine) Then
	a.WriteLine(line)
    End If
Loop

a.Close

Public Function reverseWord(ByVal str)
	strlen = Len(str)
	ReDim a1(strlen - 1)
	For i = 0 to strlen - 1
	    a1(i) = Right(str,1)
	    str = Left(str,Len(str)-1)
	Next
	reverseWord = Join(a1,"")
End Function

Public Function noPunct(thestring)
	Set RegularExpressionObject = New RegExp
	With RegularExpressionObject
	    .Pattern = "\s|[,.!?-]"
	    .IgnoreCase = True
	    .Global = True
	End With
	noPunct = RegularExpressionObject.Replace(thestring, "")
	Set RegularExpressionObject = nothing
End Function

• Programming challenge 3 -easy- - Delta Cpt dopel 2008-07-20 23:35:30
  • the C way - Gamma Tr Chudik 2008-08-10 18:31:49
  • Contd VBScript - Delta Cpt dopel 2008-07-29 03:25:22
  • >VBscript is easy - Ker sefo 2008-07-24 14:16:19 <
    • RE: VBscript is easy - Beta Tr chiken 2008-07-28 06:36:15
      • ok ok - Ker sefo 2008-07-28 08:11:23
    • indeed it is :) - Delta Cpt dopel 2008-07-24 16:44:24
      • RE: indeed it is :) - Ker sefo 2008-07-25 00:51:10
  • RE: Programming challenge 3 in java. - Alpha Tr chiken 2008-07-21 00:54:35
    • requirements, requirements, requirements ;) - Delta Cpt dopel 2008-07-21 00:58:58
      • doh! - Alpha Tr chiken 2008-07-21 01:08:43
        • Not bad... - Gamma Tr The Digital Poet 2008-07-23 01:37:50
          • RE: Not bad... - Beta Tr chiken 2008-07-28 06:39:41
          • Nice feed back - Delta Cpt dopel 2008-07-23 15:54:32
        • RE: doh! - Gamma Tr Chudik 2008-07-21 07:36:36
          • arr - Gamma Tr Chudik 2008-07-21 07:38:52