Discussion :

[skaraa]

Bonjour à tous...

J'ai farfouillé sur le net et j'ai pas trouvé exactement ce que je cherchais.

Je dois créer une application qui d'une part récupère des informations d'un fichier texte et ensuite qu'on puisse pouvoir modifier ses informations.

EN fait j'ai un fichier texte que j'ai intégré au projet (qui contient
+2000 lignes) de cette forme:

Commune;Code;Client;;;; (certains champs peuvent être vide)

Je cherche à savoir comment importer les communes dans la TextBox1, le code dans la TextBox2 etc...

A la fin je voudrais obtenir comme résultat que l'utilisateur séléctionne(ou rentre ) un code et que les informations correspondante à ce code s'affiche. Si celui-ci change le code les autre textbox sont mise a jour...

donc je me pose plusieurs questions:
1) est-ce deja possible d'obtenir un tel résulat avec un fichier texte
si non qu'elle est la meilleur solution (sachant que je veux pas utiliser de base de données)
2) comment traiter les informations de mon fichier texte entre chaque séparation pour les afficher ds des textbox.

merci d'avance,

[arsenik]

Salut,

1) oui tout a fait possible
2) avec indexof ou plutot instr (InStr("Chaine à chercher", nbEn))

@+

[skaraa]

Merci beaucoup de ta réponse (rapide) je vais me renseigner sur cela

[skaraa]

est'il possible d'avoir un exemple concret car la je m'y perd un peu...

instr permet de cherche une chaine mais comment je peux indiquer la chaine que je désire chercher ds mon fichier texte?
parce que mon but c'est de retourner cette valeur ds ma textbox

Code :

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

TestBox1.Text = chainecommune

[arsenik]

non en fait

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
Exemple tiré de la doc
' String to search in.
Dim SearchString As String = "XXpXXpXXPXXP"
' Search for "P".
Dim SearchChar As String = "P"
 
Dim TestPos As Integer
' A textual comparison starting at position 4. Returns 6.
TestPos = InStr(4, SearchString, SearchChar, CompareMethod.Text)
 
' A binary comparison starting at position 1. Returns 9.
TestPos = InStr(1, SearchString, SearchChar, CompareMethod.Binary)
 
' If Option Compare is not set, or set to Binary, return 9.
' If Option Compare is set to Text, returns 3.
TestPos = InStr(SearchString, SearchChar)
 
' Returns 0.
TestPos = InStr(1, SearchString, "W")

Donc en fait tu doit rechercher tes ; et utiliser mid pour extraire une partie

donc par exemple tu as une chaine

Commune;Code;Client;;;;
Tu prend la première chaine de commune au ;
puis du ; au suivant c'est le code
puis du ; au suivant c'est le client etc..

Donc
Chaine = "Nalinnes;6120;Duprez;;;;;"

Tu fait instr(";",chaine)
il va te renvoyer 9 alors tu fait un
Ret = mid(Chaine,1,9) il va te renvoyer nalinnes
Ensuite Instr(";",chaine, 10) il te renvoye 15
ret = Mid(Chaine,10,15) ...

Faut juste verifier les chiffres que j'ai mis car cela a été vite fait

[Pol63]

[skaraa]

Super! merci.

J'essaye tout ça, je vous tiens au courant.

[skaraa]

Donc j'ai "essayé" de faire comme tu me la dis mais j'ai quelques petit soucis:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  Sub charger()
            Dim chaine As String
            Dim ret As String
            chaine = (TxtFichier.Text)
            InStr(";", chaine)
            ret = Mid(chaine, 1, 15)
            TextBox1.Text = ret
        End Sub
 
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            charger()
        End Sub

1) Lorsque je clique sur le bouton je veux donc que la textbox recupere la première partie (avant le 1er ";")
Mais celui ci ne s'arrete pas au ; mais au nombre de charactère. C'est plutôt embêtant puisque les informations de mon fichier texte n'a pas toujours la même longueur. L'idéal serait qu'il s'arrete a mon ";"

2)pour le moment la chaine récupère le texte d'une textbox qui se limitte a une ligne de mon fichier texte

Code :

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

 TxtFichier.Text = sr.ReadLine()

donc pas de problème pour le moment mais comment récupére les autres lignes?

Oui, je débute un peu... donc je manque un peu de méthode surement...

[Pol63]

il te manque au moins une variable
en effet les ; ne sont pas toujours placés pareil
InStr(";", chaine) te permet de connaitre l'emplacement du ";"
si ca retourne 0 ca veut dire qu'il n'y en a pas
il aussi possibilité dans instr de préciser à partir de quel caractère il faut commencer à chercher

donc il serait bien de faire un while (instr(startpos,chaine,";") > 0

[Kropernic]

Personnellement, je ferais autrement.

Si les lignes de ton fichier texte ont toute le même format (cad que l'ordre des différentes informations ne varie pas et que si l'information n'est pas renseignée, il y a une "case" vide), je conseillerais d'utiliser la fonction "split".

Ca rend la chose très simple.

La fonction split permet de séparer une chaine de caractère en utilisant un caractère donné comme séparateur (dans ton cas ";" si j'ai bien compris).

Cela te donnera donc à chaque ligne, un tableau de chaine de caractère où tes informations occuperais tjs la même place dans ce tableau.

Cela donnerait :

Code :

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

1
2
3
Dim tab() as string
'je saute la partie lecture de ton fichier, je ne sais pas comment tu t'y prends
tab = ligneDuFichier.split(";")

Ainsi, tu as donc toutes tes données séparées automatiquement et rangées dans un tableau.

Regarde dans l'aide pour la fonction split. J'ai écrit ça de tête et il est possible que j'ai commis une erreur.

Griftou.

[Pol63]

ah bah oui, on est bete de pas y avoir pensé, pourtant bien partique split et join ...

[Kropernic]

Oui, me semblait aussi que c'était compliqué votre truc ^^

[skaraa]

J'obtiens ce message d'erreur "L'argument 'Start' doit être supérieur à zéro" lorsque je charge ma textbox.

Je comprends pas pourquoi...

Mais le split je sais pas si c'est une bonne solution... ds la mesure ou j'ai plusieurs lignes a traiter non?

Cela dit je vais essayer d'étudier tout ça

[Kropernic]

où est le problème d'avoir plusieurs lignes?

tu fais une boucle et puis voilà

[skaraa]

où est le problème d'avoir plusieurs lignes?

tu fais une boucle et puis voilà

Aucun, c'est en effet beaucoup plus simple comme solution, c'est le résultat que je voulais . Plus qu'a gérer le tout dans différentes TextBox et à gérer la boucle donc

Merci à tous de votre aide.