ok ok

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

Ker sefo

Then you just replace the pattern:

.Pattern = "\W" 'equivalent to [^a-zA-Z_0-9]

~

On 2008-07-28 06:36:15, chiken wrote
>Correct me if i'm wrong but doesn't
>
>

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

>only look for ,.!? and - ? What happens the punctuation is not one of those? I'd look into modifying your code to where everything except for a letter is invalid.
>
>
>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-28 08:11:23, sefo wrote >Then you just replace the pattern: > >[code] >.Pattern = "\W" 'equivalent to [^a-zA-Z_0-9] >[/code] > >~ > >On 2008-07-28 06:36:15, chiken wrote >>Correct me if i'm wrong but doesn't >> >>[code] >>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] >>only look for ,.!? and - ? What happens the punctuation is not one of those? I'd look into modifying your code to where everything except for a letter is invalid. >> >> >>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.03839 seconds