indeed it is :)

[Replies] [Reply] [View by Thread] [Help]
[Back To Programming]

Delta Cpt dopel

Nice use of regex :) I am thinking of having a set of challenges purely based on use of regular expressions.

On 2008-07-24 14:16:19, sefo wrote
>


>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
>

Replies:

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

Guest:
Subject:
Message:	On 2008-07-24 16:44:24, dopel wrote >Nice use of regex :) I am thinking of having a set of challenges purely based on use of regular expressions. > >On 2008-07-24 14:16:19, sefo wrote >>[code] >>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 >>[/code]
Signature:
Optional Image Link:
http://

CyberArmy::Forum v0.6
Generated In 0.00784 seconds