RE: VBscript is easy

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

Beta Tr chiken

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
>

while(true)
system.out.println("chiken")

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 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.03823 seconds