Discussion :

[wwwided]

bonjour,

je suis bloqué je cherche quelqu'un pour m'aider svp
voila mon probleme:
je veux modifier la fin de la chaine ch par le nbre de lignes que jai dans mon fichier texte
ch="0000000000" <---- toujours 10 zero
si j'ai 100 lignes ch sera "0000000100"
si j'ai 50 lignes ch sera "0000000050"
si j'ai 5 lignes ch sera "0000000005"

voila un extratit de mon programe sachant que "i" est le nbre de lignes que j'ai

Code :

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

1
2
3
ch = "0000000000"
x = i 
w = Replace(VB.Right(ch3, x), "0", nl)

[ebastien]

Bonjour,

Est-ce que le résultat sera toujours le nombre de lignes avec des zéros devant ? car dans ce cas :

Code :

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

w = nbLines.ToString("D10")

Sinon une méthode :

Code :

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

1
2
3
4
Dim ch As String = "0000000000"
Dim nbLines As Integer = 500
Dim aStr As String = nbLines.ToString
Dim w = ch.Remove(ch.Length - aStr.Length, aStr.Length) & aStr

eb.

[wwwided]

Bonjour,

Est-ce que le résultat sera toujours le nombre de lignes avec des zéros devant ? car dans ce cas :

Code :

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

w = nbLines.ToString("D10")

Sinon une méthode :

Code :

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

1
2
3
4
Dim ch As String = "0000000000"
Dim nbLines As Integer = 500
Dim aStr As String = nbLines.ToString
Dim w = ch.Remove(ch.Length - aStr.Length, aStr.Length) & aStr

eb.

merci pour votre réponse,
oui, le résultat sera toujours le nombre de lignes avec des zéros devant.
maintenant j'ai changer comment calculer les lignes comme suit mais "file.ReadAllLines" est souligné bleu is not a member of 'System.IO.FileStream'

code:

Code :

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

1
2
3
4
Dim lignes() As String = file.ReadAllLines("leFichier.txt")
nbLines = lignes.Length
 
w = nbLines.ToString("D10")

[_Ez3kiel]

Tu n'aurais pas une variable nommée "File" de type FileStream dans ta méthode ?

Tu peux remplacer

Code :

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

1
2
3
4
Dim lignes() As String = file.ReadAllLines("leFichier.txt")
        nbLines = lignes.Length
 
        w = nbLines.ToString("D10")

Par

Code :

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

Dim w As String = System.IO.File.ReadAllLines("LeFichier.txt").Count.ToString("D10")

En précisant le namespace System.IO.File car apparement File est utilisé ailleurs chez toi.

[wwwided]

Merci pour vos réponses,
c'est bon j'ai resolu le probleme par le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
Dim nbr_ligne As Integer = 0
Dim ligne As String
Dim sr As New StreamReader("leFichier.txt")
While sr.Peek <> -1
    nbr_ligne += 1
    ligne = sr.ReadLine()
End While
 
w = nbr_ligne.ToString("D10")

[ebastien]

Ok, pense au tag Résolu
Bonne journée.
eb.