Text1.MultiLine=1 Open "fichier" For Input As #1 While Not EOF(1) Input #1,a$ Text1=Text1+Chr$(13)+Chr$(10) Wend Close #1
marche toujours po... :(
C'est tout cucul comme astuce (je veux dire simple) mais CA MARCHE PAS. Si les gens laissent des codes très simples pour aider les debutants, merci au moins de laisser des codes qui marchent. Sinon, c'est pas la peine. Merci pour l'effort quand même. Je vais chercher ailleurs.
ca marche tres bien
La normalement ca fonctionne//////////////////////////////////////////////////Private Sub Command1_Click()'Text1.MultiLine = 1Open "C:\monfichiertext.txt" For Input As #1While Not EOF(1) Input #1, a$ 'Text1 = Text1 + Chr$(13) + Chr$(10) Text1 = Text1 + a$ + Chr$(13) + Chr$(10)Wend///////////////////////////////////////////////////Close #1End Sub
Euh bonjour,je voulais savoir a$ est sencé représenté quoi?merci d'avance.
a$ représente ce que vau la ligne lue justement ! Input #1, a$lit le la première ligne du fichier 1 (#1)met le résultat de la lecture dans la variable a$cé on ne peut plus simple !
ton programme marche que si il y a un caractere de separation et pour vb, ce caratere c'est les guillemet ". Pour mon programme je cherche :- soit le moyen de lire une textbox ligne par ligne- soit de lire un fichier text ligne par igne avec pour caractere de separation le vbcrlf ou ch(10)+ch(13).d'avance mercisylvain
moi en 2006
il manque le variable qui porte les valeurs de fichierText1 = Text1 + a$ + Chr$(13) + Chr$(10)c'est 100%100
BonjourJe recherche le moyen d'extraire une variable sur une ligne de texte.J'ai essayé le bout de code source décrit plus haut mais ça ne fonctionne pas. Je dois mal m'y prendre.En fait, je voudrai lire le 10 et l'affecter dans VarTimeBase de mon source. 10 vient du fichier texte : (...) ;============================================;/ VARIABLES SYSTEME /;============================================ Time_Base EQU 10 Spaces EQU 30 Post EQU 100 Boot EQU M(...) Pouvez vous me donner la marche à suive ?Merci@+ Thierry
Salut Thierry,Le plus simple je pense est de decouper la ligne que tu lis en faisant un "split" en fonction des separateurs que tu a choisis@+Keneyda
Tout d'abord merci pour ta réponse.J'ai oublié de signaler que je suis débutant ; je patauge donc un petit peu.J'ai fais des recherches sur la fonction Split mais sans exemple je n'y arrive pas.Split(expression[, delimiter[, count[, compare]]])expression doit correspondre à Time_Base EQU 10Mais après... je sècheDe plus, comment focaliser directement l'Input sur le 30 de Spaces EQU 30 , sur le 100 de Post EQU 100et sur le M de Boot EQU M ?Merci @+ Thierry
Pour faire simple la methode split permet de decouper une chaine en fonction d'un séparateur. Je vais essayer de te faire un petit exemple :on considere que tu recuperes "Boot EQU M" dans la variable "laligne", on va decouper cette ligne en fonction du separateur " " (attention ce separateur doit etre le meme tous le temp pour que cela fonctionne sinon on ne sais plus ou on decoupe...). Donc on a :laligne="Boot EQU M"Nouvellevariable = split(laligne," ") 'ici on dis que "Nouvellevariable" est le resultat du decoupage de "laligne" en fonction du separateur " "Ensuite si cela te donne plusieurs indications :- ubound(Nouvellevariable) est le nombre de valeur decouper (attention en VB ou ASP, le langage commence a compter par 0, donc comme tu a 3 valeur (Boot, EQU et M) cela te donne 2; donc :ubound(Nouvellevariable)=2- Ensuite si tu veux connaitre ces valeurs:Nouvellevariable(0) = BootNouvellevariable(1) = EQUNouvellevariable(2) = MNB : Si tu veux faire des recherches sur Split(), tu peux aussi te tourner vers les tableaux, car split permet de faire des tableauxJ'espere que je n'ai pas été trop brouillon et que cela va t'aider...@ BientotKeneyda
Bonjour,Tout d'abord, merci Keneyda pour ton aide.Je crois que je comprends la procédure et la marche à suivre mais je bloque sur l'écriture de Unbound qui ne fonctionne pas et génère des erreurs. Un bout de code source est décrit sur ce site mais je bloque.J'ai aussi des soucis sur la sélection de la ligne à taiter :Lorsque j'écris ceci pour récupérer ma ligne de Time_Base, c'est la ligne de Boot qui s'inscrit dans la TextBox :Private Sub Form_Load()Dim LineTimeBaseDim VarTimeBaseOpen "CFG_ALIMUSD_V_1.INC" For Input As #1While Not EOF(1) Input #1, a$ LineTimeBase = Time_Base + a$ + Chr$(13) + Chr$(10)WendTime_Base.Text = LineTimeBaseVarTimeBase = Split(LineTimeBase, " ")' Là je sèche pour le Unbound .Close #1 ' Ferme le fichier.Je n'arrive pas à comprendre pourquoi.Je dois passer à côté de quelque chose mais je pense être trop novice pour voir de quoi il s'agit. Chr$(13) + Chr$(10) sert pour le retour de chariot d'après les résultats de mes recherches et le mécanisme semble bon.J'aimerai comprendre.Merci. Thierry
Bonjour,Comme quoi en cherchant un peu et en se cassant la tête on y arrive :Open "CFG_ALIMUSD_V_1.INC" For Input As #1Dim VarTimeBase() As StringDim LineTimeBaseNumLineTimeBase = 89 'déclare le numero de la ligne Do Until EOF(1) 'avant EOF (=la fin du fichier) : Line Input #1, LineTimeBase 'on met la valeur texte = la ligne NumLineTimeBase = NumLineTimeBase + 1 'augmenter If NumLineTimeBase = 100 Then GoTo NextTimeBase LoopNextTimeBase:VarTimeBase() = Split(LineTimeBase, " ")For i = 5 To UBound(VarTimeBase)Time_Base.Text = VarTimeBase(i)Next iClose #1Merci pour l'aide apportée et les idées proposées ! @+ Thierry
Faudrait que tu fasses attention aux sources que tu donnes.En l'espce de 5 minutes je suis tombé sur 2 de tes sources et les deux étaient incomplete ou fausse et c'est pourtant pas du code de tres haut niveau.Mais bon c'a peut toujours être utile (si des certains sont là pour expliquer comment faire aux moins bon)
bonjour je suis un petit debutant en VB6j'ai lu tous les codes existants mais j arrive pas à conclure une solution pour mon problemeen fait j'ai un fichier .txt de forme a;z;f;a;e e;g;r;t;e m;k;f;d;set je voudrai connecter à ce fichier et recuperer ses lignes sans les ";"j'ai essayé d'utiliser la fonction split mais l'affichage dans le text box est tuojours alligné genre s f s z r f s z r f s e r f t sest ce que vous pouvez me passer une solutionvoici mon codeprivate sub command1_ClickDim VarTimeBase() as Stringdim i as integeri=0Open"C:\test.txt" for input as #1while not EOF(1)input #1,a$VarTimeBase()=split(a$,";")for i=0 to Ubound(VarTimeBase)Text1.text=Text1+VarTimeBase(i)+chr$(10)next iwendclose #1end submerci d avance
bonjourc'est bon j'ai reussi à resoudre le probleme
bonjourje suis débutante en VB mon problème c'est de lire un fichier texte ligne par ligne et d'utiliser les données que se trouvents dans ce fichier pour remplir un tableau excel les données sont séparées par un espace, svp j'ai besion de vos aides
bonjour MAYje suis aussi debutant en VB, apres quelque recherche sur le net j'au pu acceder à un fichier text et mettre son contenu dans une BDD acces. alors je vai le mettre dans le Zip comme ca tu pe l'executer.
merci j'ai déja arrivé à acceder à un fichier texte mais le probleme c'est de générer la base pour obtenir des graphes à l'aide de l'excel
Chr$(13) et Chr$(10) peut aussi être remplacé par vbNewLine :) !
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 873 818 membres 105 nouveaux aujourd'hui 16 151 membres club