[RESOLVED] Replace chars

hi,

i was wondering where can i find or how it's called the reversion or changing chars to...i don't know how to call it...

This is what i did through an application that hepled me...

Text5.Text = pReplace(Text5.Text, "_", " ")
Text5.Text = pReplace(Text5.Text, ",", "%2C")
Text5.Text = pReplace(Text5.Text, "&", "%26")
Text5.Text = pReplace(Text5.Text, " ", "+")
Text5.Text = pReplace(Text5.Text, "(", "%28")
Text5.Text = pReplace(Text5.Text, ")", "%29")

So i replaced the standard chars with the "encoded" ones and i don't know how to get all those codes for other standard chars?

Any help?

you can use the str_replace() function to replace characters, and you can use a sheet like this to find ascii character codes.

yeah bu ascii chars are not the ones that are used when you send data over POST method....and that's what i need

Ex.
you see how %2C = ,

uh.. you want to build a URL? then use url_encode(). that would only matter when using GET, not POST.

What the url_encode()

Can you tell which functions is that???


I think that could solve alot of problems for me :D

BTW im using that in Visual Basic ...

you can look up every function using PHP.net. in this case, you can look here. I mistyped, and it was urlencode() without the underscore.

Well i got the code..

For example, this string:

Some test (text) with wierd ;-) characters + more!

becomes this:

Some+test+%28text%29+with+wierd+%3B%2D%29+characters+%2B+more%21



' Return a URL safe encoding of txt.
Private Function URLEncode(ByVal txt As String) As String
Dim i As Integer
Dim ch As String
Dim ch_asc As Integer
Dim result As String

SetSafeChars

result = ""
For i = 1 To Len(txt)
' Translate the next character.
ch = Mid$(txt, i, 1)
ch_asc = Asc(ch)
If ch_asc = vbKeySpace Then
' Use a plus.
result = result & "+"
ElseIf m_SafeChar(ch_asc) Then
' Use the character.
result = result & ch
Else
' Convert the character to hex.
result = result & "%" & Right$("0" & _
Hex$(ch_asc), 2)
End If
Next i

URLEncode = result
End Function

Private m_SafeChar(0 To 255) As Boolean
' Set m_SafeChar(i) = True for characters that
' do not need protection.
Private Sub SetSafeChars()
Static done_before As Boolean
Dim i As Integer

If done_before Then Exit Sub
done_before = True

For i = 0 To 47
m_SafeChar(i) = False
Next i
For i = 48 To 57
m_SafeChar(i) = True
Next i
For i = 58 To 64
m_SafeChar(i) = False
Next i
For i = 65 To 90
m_SafeChar(i) = True
Next i
For i = 91 To 96
m_SafeChar(i) = False
Next i
For i = 97 To 122
m_SafeChar(i) = True
Next i
For i = 123 To 255
m_SafeChar(i) = False
Next i
End Sub

uh.. this is the PHP forum, not the VB forum. I'm not sure why you would be asking for help with Visual Basic here.

because...i didn't know hot to get the %2B ecc chars... :D

Thanks for helping out anyway

Visual Basic questions go in the Visual Basic forum. I've moved this one.