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]