VbScript Save .TxtFile Encodage.

Version imprimable

Bonjour,
j'ai un script qui enregistre des donnés au niveau d'un fichier au format .txt . j'ai un autre script qui me retourne le nombre de ligne de ce fichier.

le problème est : quand je créé un fichier manuellement et j'etulise CountLine pour retourne le nombre de ligne sa fonction bien.

Par contre quand j'enregistre le fichier avec SaveFileTxt puis j'appelle le script CountLine pour compter le nombre de ligne sa me retourne 1 même si je voie que j'ai plusieurs ligne.

J'ai pensée peut être que ces un problème d'encodage au moment de l'enregistrement ?
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub SaveFileTxt (Value) Set filesys = CreateObject("Scripting.FileSystemObject") Set demofolder = filesys.GetFolder(OutFilePath) Set filetxt = demofolder.CreateTextFile("resulta", True) filetxt.WriteLine(Value) filetxt.Close wait 4 End Sub
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub CountLine () Set oFsObject = CreateObject("Scripting.FileSystemObject") Set New_File = oFsObject.OpenTextFile("Resulta.txt", 1) 'recuperation d'un tableau de x lignes Ref_CountLign = Split(Ref_File.ReadAll, vbNewLine) New_File.Close Ref_count_Line= UBound(Ref_CountLign) msgbox Ref_count_Line '==> 1 End Sub
Merci D'avance.

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
SaveFileTxt "Où se trouve la source du problème" & vbnewline & "Nouvelle ligne" & vbnewline & " 3ème ligne" & vbnewline & " 4ème ligne"
CountLine
 
Sub SaveFileTxt (Value)
    Set filesys = CreateObject("Scripting.FileSystemObject")
    Set demofolder = filesys.GetFolder(".")
    Set filetxt = demofolder.CreateTextFile("resulta.txt", True)
    filetxt.WriteLine(Value)
    filetxt.Close
   Wscript.Sleep 4
End Sub
 
 Sub CountLine ()
     Set oFsObject = CreateObject("Scripting.FileSystemObject")
     Set New_File = oFsObject.OpenTextFile("Resulta.txt", 1)
        'recuperation d'un tableau de x lignes
      Ref_CountLign = Split(New_File.ReadAll, vbNewLine)
 
      New_File.Close       
      Ref_count_Line= UBound(Ref_CountLign)+1 ' Ici plus 1 car (je cite) UBound : Renvoie le plus grand indice disponible pour 
		                              ' la dimension indiquée d'un tableau(l'indice le plus bas est 0)
                                              ' Il peut s'agir d'un retour à la ligne qui sera vide
     msgbox Ref_count_Line 
End Sub

Bonjour,

L'affichage "1" de la procédure CountLine semble être dû au fait que tes fichiers n'avaient pas le même nom , comme le montre le code de l_autodidacte

Petite évolution possible pour ne pas rencontrer à nouveau le problème :

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
 
strResultFilePath = ".\resulta.txt"
SaveFileTxt "Où se trouve la source du problème" & vbnewline & "Nouvelle ligne" & vbnewline & " 3ème ligne" vbnewline & " 4ème ligne", strResultFilePath 
CountLine strResultFilePath 
 
Sub SaveFileTxt (Value, strResultFilePath)
    Set filesys = CreateObject("Scripting.FileSystemObject")
    Set demofolder = filesys.GetFolder(".")
    Set filetxt = demofolder.CreateTextFile(strResultFilePath, True)
    filetxt.WriteLine(Value)
    filetxt.Close
   Wscript.Sleep 4
End Sub
 
 Sub CountLine (strResultFilePath )
     Set oFsObject = CreateObject("Scripting.FileSystemObject")
     Set New_File = oFsObject.OpenTextFile(strResultFilePath , 1)
        'recuperation d'un tableau de x lignes
      Ref_CountLign = Split(New_File.ReadAll, vbNewLine)
 
      New_File.Close       
      Ref_count_Line= UBound(Ref_CountLign)+1 ' Ici plus 1 car (je cite) UBound : Renvoie le plus grand indice disponible pour 
		                              ' la dimension indiquée d'un tableau(l'indice le plus bas est 0)
     msgbox Ref_count_Line 
End Sub

Bonne continuation.

:salut:
ou bien en tenant compte de la :faq: ==> Comment obtenir le nombre de lignes d'un fichier texte ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
SaveFileTxt "Où se trouve la source du problème" & vbnewline & "Nouvelle ligne" & vbnewline & " 3ème ligne" & vbnewline & " 4ème ligne"
Call CountLine
 
Sub SaveFileTxt(Value)
    Set filesys = CreateObject("Scripting.FileSystemObject")
    Set demofolder = filesys.GetFolder(".")
    Set filetxt = demofolder.CreateTextFile("resulta.txt",True)
    filetxt.WriteLine(Value)
    filetxt.Close
   Wscript.Sleep 4
End Sub
 
 Sub CountLine()
     Set oFsObject = CreateObject("Scripting.FileSystemObject")
     Set New_File = oFsObject.OpenTextFile("Resulta.txt", 1)
      LireTout = New_File.ReadAll '-- Lit la totalité du fichier   
      msgbox New_File.Line '-- Récupère le nombre de lignes
      New_File.Close 
End Sub

@pichalov
un petit oubli de & dans cette ligne qui a été editée et corrigée par autodidacte

Code:

SaveFileTxt "Où se trouve la source du problème" & vbnewline & "Nouvelle ligne" & vbnewline & " 3ème ligne" & vbnewline & " 4ème ligne", strResultFilePath

04/12/2013, 12h17
benhsaien

1 pièce(s) jointe(s)

Salut Tous le monde.
aprés un petit Test j'ai détecter la source du probléme c que : suite a la fonction SaveFileTxt le fichier et enregistrer sous Format Unix pas sous Dos\windows :
une solution pour convertir le fichier en Dos\windows au moment de l'enregistrement.?(PJ)
04/12/2013, 12h59
l_autodidacte

D'après la miniature, tu utilises Notepad++
Vas dans la barre de titre et déroule le menu Encodage puis sélectionne Encoder en ANSI
04/12/2013, 13h46
benhsaien

1 pièce(s) jointe(s)

Il s'agit pas de ANSi il s'agit du mode Unix et Windows\Dos : car quand je fait l'action suivent (voir PJ) la fonction retourne bien le nombre de ligne.(je pense ces au niveau de l'enregistrement du fichier il faut spécifier le mode windows\dos) ?