RE: indeed it is :)

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

Ker sefo

vbscript proposes very good solutions for string manipulation and it's so easy and fast to code (notepad, save, click) perfect for solving challenges or just enjoy programming.

Challenges on regex would be fun.

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


>>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-25 00:51:10, sefo wrote >vbscript proposes very good solutions for string manipulation and it's so easy and fast to code (notepad, save, click) perfect for solving challenges or just enjoy programming. > >Challenges on regex would be fun. > >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.03124 seconds