Erreur avec Readline

Version imprimable

04/06/2008, 23h01
f_herpe

Erreur avec Readline

Bonjour,
J'essais de lire un fichier de log autogénéré avec la commande readline et j'obtiens "ÿp=" alors que dans le fichier des logs on obtient "=== text ===".

Comment on fait pour lire la ligne comme il faut?

P.S. J'ai essayé avec read(1) et j'obtiens toujours "ÿp=".
04/06/2008, 23h31
smyley

Peut tu montrer ton code ?
Je pense qu'il s'agit d'une erreur d'encoding. Par exemple le constructeur d'un StreamReader peut prendre un System.Text.Encoding en paramètre qui indique l'encodage du fichier qui peut alors être ANSII, Unicode, etc... Utiliser le mauvais codage conduit à des choses bizarres parfois.

Code

Code:

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
 
'*** Object VB Script
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")	
 
'* Variables	
Dim Ligne
Dim FTxt
Dim objNew
Dim Poste
Dim arrValues(200)
 
'*Execution
For Each objOption In txtFichier.Options
       objOption.RemoveNode
Next 
 
 
set FTxt = FSO.OpenTextFile("\\" & txtPoste.value & "\c$\CSST\Log\" & dynamicoptions.value)
Do While Not Ftxt.AtEndOfStream
        Ligne = "" & Ftxt.Readline()
        MsgBox Ligne
        Set objOption = Document.createElement("OPTION")
        objOption.Text = Ligne
        objOption.Value = Ligne
        txtFichier.Add(objOption)
Loop
 
Ftxt.Close

Le tout est dans une page web. Elle fonctionne parfaitement sauf pour les cas où j'ai un '=' en commencent.