Contd VBScript

Delta Cpt dopel

Dim str, iName, oName, inFile, outFile, fsObj, thisLine


Set fsObj = CreateObject("Scripting.FileSystemObject")
iName = "C:\in.txt"
oName = "C:\out.txt"

Set inFile = fsObj.OpenTextFile(iName, 1)
Set outFile = fsObj.CreateTextFile(oName,1)


While Not inFile.AtEndOfStream
	thisLine = inFile.Readline
	If LCase(strip(thisLine)) = LCase(strip(reverseWord(thisLine))) Then
		outFile.WriteLine(thisLine)
	End If
Wend

inFile.Close()
outFile.Close()

Public Function strip(ByVal str)
	Dim oRegEx, str
	Set oRegEx = New RegExp
	oRegEx.Pattern = "[^a-z0-9]"
	oRegEx.IgnoreCase = True
	oRegEx.Global = True
	str = oRegEx.Replace(str, "")
	strip = str
End Function

Public Function reverseWord(ByVal str)
	Dim i, head, tail, md, ptr

	md = ""	
	ptr = 1
	ub = Len(str)	
	lb = Round((Len(str)/2)+.001)
	If ub = 1 Then
		reverseWord = str
		Exit Function
	End If
	For i = ub To lb+1 Step -1
		head = head & Mid(str, i, 1)
		tail = Mid(str, ptr, 1) & tail
		If (ptr >= i) Then			
			Exit For
		End If
		ptr = ptr + 1
	Next
	If (Len(str) Mod 2) <> 0 Then
		md = Mid(str, lb, 1)
	End If
	
	reverseWord = head & md & tail
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