lecture d'un fichier texte

Question

salut
apres avoir ecrit dans un fichier text.txt
avec la commande 
print#1, carte(i) et que la dim
est de 35 donc
dim carte() as string * 35
quand je fait une recherche
comme sa :
If text1(0).Text = lecteur(t) Then
sa ne marche pas puisque il prend les 35 caracter
comment faire que quand il ecrit dans le fichier
il prenne uniquement les caractere taper dans les textbox

vlad2i · Answer

Essaies cela :

'Un string de 35 caractères
Dim Carte as String * 35

'Tu lis ton carte ...
open ...
close ...

Lettre1 = Mid$(Carte, 1, 1)
Lettre2 = Mid$(Carte, 2, 1)
Lettre27 = Mid$(Carte, 27, 1)

Lettres10à20 = Mid$(Carte,10,10)
Mid$( ta chaine , début du découpage (n° de la lettre) , longueur du découpage (1 1 lettre, 2 2 lettres ...) )

Si ca peut t'aider ...
Vlad

petiflamand · Answer

non c'est pas sa
je veux dire que si
j'ecrit dans mon textbox

toto donc sa fait 4 lettre
il doit ecrire uniquement les 4 lettres
mais si apres je fait ecrire
totototo il doit ecrire 8 lettre
il doit choisir le nombre de caractere par raport a ce que j'ai ecrit dans le textbox

vlad2i · Answer

Alors dans ce cas, point de pb :)

Text1 est le textbox avec toto dedans par exemple (longueur = x)
Text2 est le textbox dans lequel le prog écrit
MonTexte est le texte don tu ne veux que les premières x lettres

Text2 = Mid$(Montexte, 1, Len(Text1))

Valà
Vlad

petiflamand · Answer

Vient d'essayer
Mais sa vas pas non plus il prend les 35 aussi

carte(i) = Mid$(text1(i), 1, Len(text1(i)))
voila ce que j'ai mis
mais il prend les 35 caracters quand meme
Open "c:\agenda electronique\agenda_database.txt " For Append As #1
i = 0
For i = 0 To 6
carte(i) = text1(i)
carte(i) = Mid$(text1(i), 1, Len(text1(i)))
Print #1, carte(i)
Next i
Close #1
MsgBox "nouvelle carte crée ", , "agenda electronique"
End Sub

vlad2i · Answer

carte(i) = Mid$(text1(i), 1, Len(text1(i)))

je me demande si tu as tt compris...

Si tu mets ce code, ca va mettre tout les caractères de Text1(i) ...

N'y avait-il pas un text2 dans mon exemple ?

Len(Text1(i)) = 35 je suppose ...

Revérifies stp :)

Valà
Vlad

petiflamand · Answer

ha oki
desoler et merci pour ton aide sa marche comm sa
Merci beaucoup VLAD2I tes  8-)

Lecture d'un fichier texte

6 réponses

Discussions similaires