Lire un fichier format dosRésolu

Question

Bonsoir,


J'ai des fichiers textes g&#233;n&#233;r&#233;s &#224; 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&#233;es
SQL-Server 2000 via VB6. Le probl&#232;me rencontr&#233; est le suivant: les
caract&#232;res accentu&#233;s n'apparaissent pas correctement.


J'ai essayer de lire les fichier avec l'encodage utf-8 :


    



Code:, 		----
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&#232;me est que les caract&#232;res accentu&#233;s n'apparaissent plus.


Enfin je veut savoir comment lire ces fichiers en vb comme sous dos


et merci pour votre attention

ayyhmm · Accepted Answer

Merci pour vos solutions, la code si dessous fonctionne parfaitement



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

cs_CanisLupus · Answer

Salut,

Je ne suis pas s&#251;r du r&#233;sultat mais essaie :

stream.Charset = "ISO-8859-1"

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

En fait, j'ai vu un exemple qui semble fonctionner :

      Stream.Open
      Stream.LoadFromFile chemin_fichier
      Stream.Type = adTypeText
      Stream.Charset = "ISO-8859-1"

etc ...

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Lire un fichier format dos

3 réponses

Discussions similaires