Problème de conversion utf-8 en ISO

**thelpi** · 05/08/2008, 09h50

salut,

je travaille sur la conversion d'un programme VB en c#, celui-ci insérait des valeurs d'une base SQL server (en interclassement utf-8) vers une base MySQL (en interclassement "latin1_swedish_ci") via une Requète HTTP.

Avant d'exécuter la requète HTTP, il appliquait le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Public Function URLEncode(ByVal sRawURL As String) As String
 
    Dim iLoop As Integer
    Dim sRtn As String
    Dim sTmp As String
 
    Const sValidChars = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz:/.?=_-$(){}~"
 
    sRtn = ""
    For iLoop = 1 To Len(sRawURL)
        sTmp = Mid(sRawURL, iLoop, 1)
 
        If InStr(1, sValidChars, sTmp, vbBinaryCompare) = 0 Then
            sTmp = Hex(Asc(sTmp))
           If Len(sTmp) = 1 Then
                sTmp = "0" & sTmp
            End If
            sTmp = "%" & sTmp
        End If
 
        sRtn = sRtn & sTmp
    Next iLoop
 
    URLEncode = sRtn
 
End Function