Discussion :

[benhsaien]

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 :

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

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 :

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

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.

[l_autodidacte]

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
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

[pitchalov]

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 :

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
 
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.

[hackoofr]

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

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
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 :

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

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

[benhsaien]

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)

[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

[benhsaien]

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) ?