Discussion :

[Roma]

Bonsoir,
J'ai des fichiers textes générés à partir d'un code source CLIPPER. La consultation de ces fichiers est lisible sous dos. Mon objectif est de faire migrer le contenu de ces fichiers vers une base de données SQL-Server 2000 via VB6. Le problème rencontré est le suivant: les caractères accentués n'apparaissent pas correctement.
J'ai essayer de lire les fichier avec l'encodage utf-8 :

Code :

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

1
2
3
4
5
Dim stream As New ADODB.stream  
     stream.Charset = "UTF-8"
     stream.Open
     stream.LoadFromFile chemin_fichier
     stream.ReadText

J'enregistre le contenu de stream.readtext dans la table sql, le problème est que les caractères accentués n'apparaissent plus.
Enfin je veut savoir comment lire ces fichiers en vb comme sous dos
et merci pour votre attention

[valval]

Salut!!!
Pourquoi ne pas essayer avec une application console en utilisant les redirections qui se chargeront d'envoyer le contenu du fichier dos dans un fichier texte, le quel sera connecté à ta base?

[Roma]

merci pour votre réponse mais ça reste la même chose toujours les lettres accentuées n'apparaissent pas correctement

[Roma]

La solution est

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
Private Declare Function OemToChar Lib "user32" Alias _
      "OemToCharA" (ByVal lpszSrc As String, ByVal _
      lpszDst As String) As Long
 
Private Function convert_OEM_Ascii(chemin_fichier As String) As String
  Dim str_file As String
  Dim f As Integer
  f = FreeFile
     Open chemin_fichier For Input As #f
     While Not EOF(f)
        Line Input #f, str_file
        OemToChar str_file, str_file
        convert_OEM_Ascii = convert_OEM_Ascii & vbCrLf & str_file
     Wend
     Close #f
 
End Function