Discussion :

[Lnmex]

Bonjour,

J´ai un probleme pour une ligne string dans un fichier texte :

Code :

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

1
2
3
4
5
6
7
 
Dim sr As StreamReader
Dim lignetexte As String
Dim liste() As String
 
lignetexte= sr.ReadLine()
liste = lignetexte.Split(" ")

Si j´affiche lignetexte il me lit bien ce que je veux :
ex : 0 1 2 3

Mais si j affiche :

Code :

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

1
2
 
MessageBox.Show(liste(0))

je n´ai rien, et également pour liste(1) etc...

Ce que je ne comprends pas c´est que si je teste avec une phrase simple le split ca marche...

Il y a une manière spéciale de traiter les strings dans un fichier texte?

Merci beaucoup de votre aide!

[jmfmarques]

As-tu commencé par t'assurer de ce que les espaces "affichés" étaient bien des espaces ?
Je commencerais par là ...
un simple

Code :

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

MsgBox InStr(lignetexte, " ")

te le permettrait ! si = 0 : pas de réel espace ...

[MGD_Software]

Essaie avec la fonction Split "de base" pour voir. La syntaxe est presque identique:

Code :

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

liste = Split(lignetexte, " ")

Je ne pense pas que le problème soit lié à l'absence de séparateur espace, car dans ce cas la ligne entière reviendrait dans liste(0). D'autre part, si TOUS les index sont vides, c'est extrêmement curieux, car en cas d'absence de séparateur le tableau a pour indice max 0 et une référence à liste(1) devrait donner une erreur d'indice hors limites.

Plusieurs vérifications à effectuer :
1. Déjà, enlever les espaces non significatifs. Donc écrire :

Code :

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

lignetexte =trim(sr.ReadLine())

2: Vérifier la valeur de ubound(liste). Cela donnera le nombre d'éléments et donc de séparateurs (-1) dans la ligne de texte

3 : vérifier qu'il n'y a pas 2000 espaces en tête de ligne (sait-on jamais, il faut s'en assurer). Donc petit bout de programme test dans la fenêtre debug:

Code :

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

for i=0 to ubound(liste): print i,liste(i):next

Cela donnera une bonne idée de ce qu'il y a dans la liste.

Résultats de tout ça ?

[Lnmex]

Bonjour,

Encore désolée de répondre tard (j´ai 7h de décalage horaire)

En effet, je n´avais pas pensé à enlever les espaces non significatifs!! (utilisation du trim)

J ai aussi utilisé le ubound parce que les éléments sont un peu partout dans la ligne, le split ne me "coupe" pas comme je veux...

En tout cas avec tout ca je m´en suis sortie!!

Les valeurs que je souhaite dans ma liste sont comme ca :

dans le texte : 0.1 0.1 0.1 1 2 3
et apres le trim, et le ubound pour m´éclairer ca me donne :

liste(0) = 0.1
liste(7) = 0.1
liste(14) = 0.1
liste(19) = 1
liste(24) = 2
liste(30) = 3

C´est pas génial comme ca, mais au moins j´ai quelque chose.
Je mets résolu mais si vous avez des idées pour avoir les valeurs dans liste(0), liste(1)... je suis à votre écoute!


Merci beaucoup!