Trim Spaces from Beginning and end of Strings

[BPak]

tvrman - here is the code I use for stripping the HTML Markup.

Pass the sub a Line of HTML

Sub DecodeTxt(TheTxt)
	
    tmp = ""
    ch=""	
    leng = StrLength(TheTxt)
    AON = false
    For i = 0 To leng-1
        ch = StrAt(TheTxt, i)
        If (AON = false) Then
            If (ch = "<") Then
                AON = true
            Else
                ' insert the char into text to save
                tmp = tmp & ch
            End If
        Else
            If (ch = ">") Then 
	    AON = false
            End If
        End If ' else if AON is false (true) 
    Next
'	TextConvert = LTRIM$(RTRIM$(tmp))	
    Return tmp
End Sub

I have taken this from C++ which I have been using for quite a while, and converted it to B4PPC use.

[Rioven]

Hi, I did like this...
s value should not be blank

PHP Code:

s=" LTRIM RTRIM  "
'LTRIM
lt=StrRemove (s, 0, StrIndexOf  (s, StrAt(StrReplace(s," ",""),0),0))

'RTRIM
s=lt
rl=StrLength(s)
i=rl
Do While StrAt(s,i-1)=" "
i=i-1
If StrAt(s,i-1)<>" " Then Exit
Loop 
rt=StrRemove(s,i,rl-i) 


[Erel]

After reading this thread I understand that it is a good time to build a Regular Expressions library

[maXim]

Hi Erel,

I approve Your decision!

For when the new Library?

Regards.

[Erel]

I hope that it will be released in a week or two.

[maXim]

Hi Erel,

Thanks for Your Job!

I don't know well unfortunately the english, but If You need a beta-tester i’m ready for You!

Regards.

Massimo

[Erel]

Thanks. And I don't worry about your English as RegEx works on any given string

[tvrman]

Originally Posted by BPak

tvrman - here is the code I use for stripping the HTML Markup.

Pass the sub a Line of HTML

Sub DecodeTxt(TheTxt)
	
    tmp = ""
    ch=""	
    leng = StrLength(TheTxt)
    AON = false
    For i = 0 To leng-1
        ch = StrAt(TheTxt, i)
        If (AON = false) Then
            If (ch = "<") Then
                AON = true
            Else
                ' insert the char into text to save
                tmp = tmp & ch
            End If
        Else
            If (ch = ">") Then 
	    AON = false
            End If
        End If ' else if AON is false (true) 
    Next
'	TextConvert = LTRIM$(RTRIM$(tmp))	
    Return tmp
End Sub

I have taken this from C++ which I have been using for quite a while, and converted it to B4PPC use.

Thanks!!! Bpak
It works very good.

[Erel]

Using the new Regex library:

'Regex1 is a Regex object and Match1 is a Match object.
Sub Globals
End Sub
 
Sub App_Start
 Match1.New1
 Regex1.New1("(?<=^\s*)\w.*\w|\w(?>=\s*)")
 Msgbox(Trim(" some string with spaces "))
End Sub
 
Sub Trim(s)
 Match1.Value = Regex1.Match(s)
 Return Match1.String
End Sub

[abastien]

Sub trim(txt)

	ch = SubString(txt, 0, 1)
	
	Do While Asc(ch) < 33
		txt = SubString(txt, 1, StrLength(txt)-1)
		ch = SubString(txt, 0, 1)
	Loop
	
	ch = SubString(txt, StrLength(txt)-1, 1)
	
	Do While Asc(ch) < 33
		txt = SubString(txt, 0, StrLength(txt)-1)
		ch = SubString(txt, StrLength(txt)-1, 1)
	Loop
	
	Return txt
	
End Sub