Voir le sujet précédent :: Voir le sujet suivant |
Auteur |
Message |
Crashsound
Inscrit le: 14 Mai 2003 Messages: 418 Localisation: Malintrat, ? proximit? de Clermont Ferrand
|
Posté le: 10 Oct 2003 15:12 Sujet du message: |
|
|
je pense avoir trouver, c est par une boucle de mid et de trim. Merci quant m?me. _________________ Labor omnia vincit improbus. |
|
Revenir en haut de page |
|
|
Speedy^SF Shit Fliez
Inscrit le: 21 Mar 2003 Messages: 749 Localisation: Troyes
|
Posté le: 10 Oct 2003 18:21 Sujet du message: |
|
|
BIn voil? crash, t'as m?me plus besoin de nous
C'est bien la preuve que tu n'es pas ignare ^^ _________________ Speeeeeeddyyyyyyyyyyy !!!!!!
Personnal Website
Team Website |
|
Revenir en haut de page |
|
|
Crashsound
Inscrit le: 14 Mai 2003 Messages: 418 Localisation: Malintrat, ? proximit? de Clermont Ferrand
|
Posté le: 10 Oct 2003 23:40 Sujet du message: |
|
|
J ai un petit probl?me dans un code et j avance pas:
Dim x As String
Dim y As String
Open "C:\text.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, x
y = Mid(x, 17, 19)
Text1 = y
Loop
End Sub
J arrive pas avec ?a, ? lui faire sauter une ligne pour qu il continue ? lire avec la ligne du dessous. L?, il me sort que la derni?re ligne du text.txt malgr? la boucle Do While Not EOF(1). SVP, venez en aide ? une merde de codeur comme moi...
Mon but est bien s?r qu il me sorte dans un textbox(text1), la s?rie des donn?es que j ai localis? et pas seulement la derni?re ligne!!! _________________ Labor omnia vincit improbus. |
|
Revenir en haut de page |
|
|
Speedy^SF Shit Fliez
Inscrit le: 21 Mar 2003 Messages: 749 Localisation: Troyes
|
Posté le: 11 Oct 2003 1:09 Sujet du message: |
|
|
hum
Text1 = Text1 & y & vbcrlf _________________ Speeeeeeddyyyyyyyyyyy !!!!!!
Personnal Website
Team Website |
|
Revenir en haut de page |
|
|
Crashsound
Inscrit le: 14 Mai 2003 Messages: 418 Localisation: Malintrat, ? proximit? de Clermont Ferrand
|
Posté le: 11 Oct 2003 8:55 Sujet du message: |
|
|
Tiens, c est quoi vbcrlf? Combinaison des caract?res de retour chariot et de saut de ligne....d accord, voil? qui va ?tre utile! Merci cousin! _________________ Labor omnia vincit improbus. |
|
Revenir en haut de page |
|
|
Crashsound
Inscrit le: 14 Mai 2003 Messages: 418 Localisation: Malintrat, ? proximit? de Clermont Ferrand
|
Posté le: 11 Oct 2003 9:18 Sujet du message: |
|
|
probl?me d un autre ordre, ?a ne r?pond plus, est ce que le texte ? traiter est trop important ou quoi? Il ne fait pourtant que 8,90mo. Alors, je comprend plus rien! Fais chier la prog!!!! _________________ Labor omnia vincit improbus. |
|
Revenir en haut de page |
|
|
Fremen^SF GDB des Shit Fliez
Inscrit le: 21 Mar 2003 Messages: 849 Localisation: Versailles
|
Posté le: 11 Oct 2003 14:54 Sujet du message: |
|
|
Si possible Crashsound, d?s que tu as un probl?me, n'h?site pas ? copier le bout de code qui te cause probl?me (pour qu'on soit s?r de ne pas raconter de b?tises !).
Si l'on suppose que ton code est le m?me que celui de ton post ci-dessus - hormis la ligne "Text1 = Text1 & y & vbcrlf" - ton probl?me vient peut-?tre de la ligne suivante :
y = Mid(x, 17, 19)
Car a priori, si x fait moins de 17+19 octets, le programme te retournera une erreur.
Si ton programme ne r?pond vraiment plus, assure toi d?j? que tu as suffisamment attendu pendant son ?x?cution. Parce que la lecture d'un gros fichier en VB peut parfois prendre plusieurs secondes.
Si ce n'est toujours pas ?a, n'h?site pas ? nous faire un copier/coller de ton code source (du moins de la partie concern?e), et on t'expliquera pourquoi ?a ne passe pas.
P.S.:Ben oui ?a fait chier la prog, mais c'est justement ?a le plaisir ! Si l'on ne passait pas des heures ? comprendre une "broutille", on n'aurait aucun plaisir ? faire des programmes qui marchent
En tout cas garde courage, c'est en suivant cette d?marche (apprendre/comprendre/assimiler et demander ? quelqu'un quand tu es vraiment bloqu?) que tu avanceras le mieux. _________________
|
|
Revenir en haut de page |
|
|
Crashsound
Inscrit le: 14 Mai 2003 Messages: 418 Localisation: Malintrat, ? proximit? de Clermont Ferrand
|
Posté le: 11 Oct 2003 20:22 Sujet du message: |
|
|
lJe me suis tromp? dans la ligne:
y = Mid(x, 17, 8 ) Voil?, pas 19!
Mais x repr?sente mon fichier volumineux ? d?cortiquer et la fonction mid ne parle pas d octets, ou alors je comprend pas tout... Elle parle de position et de longueur de cha?ne de caract?res (c est peut ?tre ?a que tu comptes en octet...) Mais m?me apr?s une attente prolong?, pas de r?ponse...Le code que j ai ?crit en haut est le bon, il est entier, je voulais d?j? arriver ? faire ?a avant de m attaquer au r??l code auquel j ai d?j? r?alis? l interface graphique. _________________ Labor omnia vincit improbus. |
|
Revenir en haut de page |
|
|
Johjo^SF Shit Fliez
Inscrit le: 21 Mar 2003 Messages: 310 Localisation: Ardeche
|
Posté le: 11 Oct 2003 20:25 Sujet du message: |
|
|
8.90 Mo, ?a fait quand m?me assez gros pour visual Basic
Pour v?rifier o? tu en es, essaye de mettre un indicateur, ou un truc dans le genre, ou des points d'arret, ou fais un ctrl pause pour arreter l'execution et v?rifier o? tu en es dans le fichier. |
|
Revenir en haut de page |
|
|
Johjo^SF Shit Fliez
Inscrit le: 21 Mar 2003 Messages: 310 Localisation: Ardeche
|
Posté le: 11 Oct 2003 20:27 Sujet du message: |
|
|
euh, un caractere fait la taille d'un octet, donc, quand on dit une chaine de 10 octets en vb, c'est une chaine de 10 caracteres, donc, c'est du pareil au m?me |
|
Revenir en haut de page |
|
|
Crashsound
Inscrit le: 14 Mai 2003 Messages: 418 Localisation: Malintrat, ? proximit? de Clermont Ferrand
|
Posté le: 11 Oct 2003 20:37 Sujet du message: |
|
|
J ai ?t? mauvaise langue, apparemment je ne lui laiss? pas assez de temps...xcuse me fremen...
EDIT: j ai vu ton message apr?s johjo, merci pour ces pr?cisions !
Tu as sans doute raison puisqu il n a pas tout affich?!!!
THX _________________ Labor omnia vincit improbus. |
|
Revenir en haut de page |
|
|
Speedy^SF Shit Fliez
Inscrit le: 21 Mar 2003 Messages: 749 Localisation: Troyes
|
Posté le: 11 Oct 2003 21:46 Sujet du message: |
|
|
Je ne suis pas s?r que le pb vienne de l?, mais au lieu de mettre "Do While Not EOF(1)" essaye de laisser "Do" et de changer le "Loop" en "Loop untile EOF(1)"
Ca pourra ptet aider :] _________________ Speeeeeeddyyyyyyyyyyy !!!!!!
Personnal Website
Team Website |
|
Revenir en haut de page |
|
|
Johjo^SF Shit Fliez
Inscrit le: 21 Mar 2003 Messages: 310 Localisation: Ardeche
|
Posté le: 11 Oct 2003 22:53 Sujet du message: |
|
|
Do While Not EOF(1) ---> fais tant que l'on n'est pas ? la fin du fichier ouvert sous le num?ro 1
Loop until EOF(1) ----> boucle jusqu'? ce que l'on atteigne la fin du fichier
Je ne vois pas trop la diff?rence, sauf que ton test, tu le fais au d?but ou ? la fin, while not, c'est la m?me chose que until, enfin, ? ce que j'ai cru comprendre, donc, ?a ne doit pas poser de probleme de ce c?t?.
Edit :
La seule diff?rence, c'est si le fichier est vide ou pas, s'il est vide, en suivant la m?thode de speedy, ?a provoquera une erreur, dans l'autre non... Je n'arrive pas ? voir d'o? viens le probleme |
|
Revenir en haut de page |
|
|
Crashsound
Inscrit le: 14 Mai 2003 Messages: 418 Localisation: Malintrat, ? proximit? de Clermont Ferrand
|
Posté le: 12 Oct 2003 0:12 Sujet du message: |
|
|
ok, donc je garde la structure pr?sente! _________________ Labor omnia vincit improbus. |
|
Revenir en haut de page |
|
|
Speedy^SF Shit Fliez
Inscrit le: 21 Mar 2003 Messages: 749 Localisation: Troyes
|
Posté le: 12 Oct 2003 11:54 Sujet du message: |
|
|
Johjo : bioen vu pour le cas o? le fichier est vide, mais dans si on utilise while not eof(1) sur le do l? ?a provoquera une erreur lors de la derni?re lecture si je me souviens bien
Enfin bref, dans tout les cas vu ce qui a ?t? expos? sur le chan des SF il y a pas mal de code ? faire pour crashsound
Johjo : sur le chan tu parle de faire un redim pour augmenter le tableau de string d'une ligne ; r?cement j'ai vu sur msdn que pour ?viter de perdre des donn?es lors d'un redimensionnement il faut faire "redim preserve"
Voili voilou _________________ Speeeeeeddyyyyyyyyyyy !!!!!!
Personnal Website
Team Website |
|
Revenir en haut de page |
|
|
|