Discussion :

[SuperKnacky]

Bonjour,

J'ai une textbox dans laquelle l'utilisateur doit entrer la valeur à chercher. Je dois me servir de cette valeur pour récupèrer la ligne correspondante dans mon document csv (~300k ligne). Ceci doit etre fait en boucle vu que la valeur sera trouvée plusieurs fois. La valeur a chercher se trouve TOUJOURS en début de chaîne et est obligatoirement composée de 2 lettres de l'alphabet (aucun chiffre, ni caractères spéciaux).

Je me suis aidé de ceci http://vb.developpez.com/faqvbs/?pag...#fsoLitFichier mais j'arrive pas à faire un mix.

D'autant plus que je ne sais pas quoi chercher dans le MSNDN...

Si vous avez un indice à me filer histoire que je sache quoi chercher et ou...

Merci à vous o//

Edit: J'espère avoir été clair... Moi j'me comprends, mais vous...

[DAUDET78]

cherche INSTR

[SuperKnacky]

Merci de l'info.

Par contre, j'ai un soucis, il me trouve toujours "0" ... Alors que dans le document il y a au moins 170k lignes commençant avec ma variable....

Voici mon bout de code

Code :

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

1
2
3
4
5
dossier = "C:\dossier.csv"
agence = Text1.Text
SearchString = dossier
SearchChar = agence
MyPos = InStr(1, SearchChar, SearchString, vbTextCompare)

J'veux juste qu'il m'affiche le chiffre 1 (logique vu que je boucle pas ) et ensuite je regarderais pour extraire la chaine de caractère correspondante. Je regarde via le debugger et toutes mes variables sont correctement prise en compte... Sauf quand je drague sur Instr, ou même quand je lis dans le fichier que j'enregistre, j'ai la valeur "0".

[DAUDET78]

Il y a quoi dans Text1.Text ?

Code :

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

1
2
3
4
5
dossier = "C:\dossier.csv"
agence = "ss"
SearchString = dossier
SearchChar = agence
MyPos% = InStr(1, SearchString, SearchChar)

doit te retourner 6 dans MyPos%

[SuperKnacky]

Dans Text1.Text il y a ce que l'utilisateur marque. Dans mes essais, je suis avec "LY".

Il doit rechercher "LY" dans le fichier "dossier.csv".

Je parcours actuellement le forum, et google. J'ai du louper un truc, mais quoi ?

Edit: J'ai un fichier "dossier.csv". A l'interieur de celui j'ai des données rangées par ligne. Ex: LY Nom Prenom etc...
LY Nom2 Prenom2 etc...

Ce que je souhaite faire, c'est pouvoir "trier" ceci et mettre dans un fichier TXT TOUT ce qui commence par "LY".

Nota: Quand je dis "LY", ca peut être tout un tas d'autre chose (selon les agences ca change) et c'est donc pour cela que je mets une TextBox.


Edit2: Je sais pas si c'est une erreur, mais sur http://drq.developpez.com/vb/tutorie...ng/#Rechercher, il est indiqué sur la syntaxe est la suivante "InStr([PositionDeDépart],Chaine1,Chaine2,[TypeDeComparaison])" où Chaine1 est l'élément à rechercher et Chaine 2 est l'endroit ou rechercher. Or sur MSNDN, c'est l'inverse. J'ai été vérifier sur google et c'est l'inverse qui revient à savoir Chaine 1 est l'endroit ou rechercher et Chaine 2 l'élément à rechercher

[DAUDET78]

Mon programme #4 marche ou pas ?

J'ai l'impression que tu cherches à trouver une chaine, non pas dans une variable texte, mais dans le contenu d'un fichier (dont le nom est dans une variable texte)

Donc il faut lire le contenu de ce fichier dans une variable texte et faire une recherche dedans

PS: C'est MSDN qui est le juge de paix

[SuperKnacky]

Salut,

Alors, ton programme ne correspond pas avec mes besoins. Comme tu l'as dit, c'est dans un document contenant ~300k lignes. Je dois pouvoir effectuer un truc avec ce que l'utilisateur marque dans la textbox. Par exemple, s'il tape LY, l'appli doit copier toutes les lignes commencant par "LY" dans un document txt du même nom (LY.txt).

J'continue, merci de ton aide

[DAUDET78]

Alors, ton programme ne correspond pas avec mes besoins.

Ben si, sauf qu'il faut rajouter la lecture du fichier ! et l'écriture des bonnes lignes dans un autre fichier

Je t'ai déjà donné le programme ..... il n'y avait qu'a le modifier !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Cherche$="LY"
I%=Freefile
Open toto.csv for input as #I%
 
Do While Not EOF(#I%)
  Line input #I%,SS$
  If Left$(SS$,2)= Cherche$ then
        '...... SS$ est un String qui commence par "LY" tu en fais ce que tu veux
  end if
Loop
Close #I%

[SuperKnacky]

Ah, avec ce que tu m'as donné, je vais essayer. J'ai un une erreur de syntaxe à "Do While Not EOF(#I%)"

Je regarde. Merci

Edit: J'ai enlevé le #, et ca passe. A moi de modifier pour qu'il me sorte la ligne entière parce que là il me sort "LY". Merci et j'reviendrais vers toi si j'ai un soucis.

[SuperKnacky]

Je te remercie DAUDET78, avec quelques modif, j'ai pu en faire ce que je voulais =D.

Hop, je continue !