CB Repository

//==================================================================
// URLEncode-funktio [ Bagard ]
// -----------------------------
// Funktio koodaa erikoismerkit oikeaan muotoon URL:sta.
// * Parametrina koodattava merkkijono
//   > Huom! Älä laita tähän koko osoiterimpsua, vaan vain se osa,
//     jossa voi olla kiellettyjä erikoismerkkejä. (kts. esimerkki)
// * Funktio palauttaa koodatun merkkijonon.
//==================================================================

// -----------------------------
// ESIMERKKI
// -----------------------------

SCREEN 640, 200

nimimerkki$ = "Hoh@€!</>"
osoite$ = "http://www.esimerkki.fi/ennatyslista.php?nimim="

// Jos pistät koko rimpsun URLEncodelle...
Print URLEncode( osoite$ + nimimerkki$ )

// Pitäisi tehdä näin:
Print osoite$ + URLEncode( nimimerkki$ )

WaitKey

// -----------------------------
// FUNKTIO
// -----------------------------

Function URLEncode(url$)
    For i = 1 To Len(url$)
        char = Asc(Mid(url$, i, 1))

        If (char <= 47) Or (char >= 58 And char <= 64) Or (char >= 91 And char <= 96) Or (char >= 123) Then
            merkki$ = "%" + Right(Hex(char), 2)
        Else
            merkki$ = Chr(char)
        EndIf

        uusi$ = uusi$ + merkki$
    Next i

    Return uusi$
EndFunction