Discussion :

[Sytchev3]

Mon application VB 6 recupere le contenu d'un fichier texte et execute la requete qui se trouve à l'intérieur, le problème est que le type de mon fichier texte brut.

Mes fichiers sont au format Unicode mais je souhaite qu'il me les ouvre normalement car sinon les 2 premiers caractères du fichier sont : en hexadecimal -->FF FE et en le code ascii est 255 et 254.


Quelqu'un peut il m'aider ???

Merci d'avance

[ouskel'n'or]

Ne peux-tu pas relire ton txt, extraire les deux premiers caractères, et le ré-écrire sous un autre nom en les excluant ? (si personne ne t'offre d'autre solution... )
Mais en te relisant, je pense que c'est ce à quoi tu as pensé...

Bonne chance

A+

[zazaraignée]

Salut

Quelle méthode utilises-tu pour lire ton fichier? Le FSO ou le bon vieux Open?

Ton code s'il te plaît.

[Sytchev3]

ouskel'n'or tu as raison j'ai fait une recherche sur la chaine de caractère (le contenu du fichier) fait une recherche dans cette chaine. C'est à dire si il trouve Chr(255)&Chr(254) --> FF FE en Hexadecimal il les remplace par "" et ça marche. C'est ce dont à quoi je pensais mais cette solution est un peu du bricolage.

Mais si il n'y a rien de mieux tans pis

[Sytchev3]

Voila mon code que j'utilise avec un bon vieux open :

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
27
28
29
30
31
 
Public Function FileExecute(nomfichier)
 
 
    Dim sreqscript As String 
    Dim sReqscript2 As String
 
 
    Dim NumFile As Integer
 
    NumFile = FreeFile
 
    If Dir(nomfichier) <> "" Then
 
        Open nomfichier For Input As #NumFile
 
            sReqscript2 = ""
 
 
            While Not EOF(NumFile)
 
                Line Input #NumFile, sReqscript2
                sreqscript = sreqscript & " " & sReqscript2
 
            Wend                                              
 
 
            sreqscript = RemplaceDansChaine(sreqscript, Chr(255) & Chr(254), " ")
             gConServer.Execute (sreqscript)
 
end function

[ouskel'n'or]

Content pour toi mais c'était vraiment à tout hasard
Quand au "bricolage", si tu as le choix, tu évites... mais quand t'as pas le choix... il résoud bien des problèmes.
Peut-être que quelqu'un te proposera aut'chose, maintenant que tu peux attendre...

A+

[Sytchev3]

Je vais garder ma solution en attendant mais je pensais qu'il était possible de choisir le mode d'ouverture d'un fichier : unicode, ansi ...

[Megaxel]

Allez hop! Un petit click sur et on n'en parle plus...

[Sytchev3]

Mon problème n'est résolu qu'en partie, la solution apporté est un peu du bricolage en attendant de trouver comment ouvrir un fichier selon son format brut.