Identification de caracteresRésolu

Question

Salut a tous,
Jd&#233;bute en VB depuis hier et je cherche a lire un fichier qui a cette tete:

$ attention commande nouvelle et titre entre quotes
COOR    1       8.4300       0.9814
COOR    2       9.6000       1.0282
....

Je voudrais tester si la ligne d&#233;bute par "COOR"; et si c'est les cas, enregistrer les 3 valeurs qui la suivent.

J'ai navigu&#233; sur le forum et j'arrive a ouvrir le fichier et a lire les lignes une a une, mais je sais pas encore identifier des caracteres et les enregistrer dans des variables

Si quelqu'un peut m'aider,, je suis preneur!

cwamm · Accepted Answer

bah j'ai eu le temps d'avancer un peu, et j'arrive a lire les donn&#233;es la mais en tant que string, et je suis ne train de chercher comment jpeux enregistrer des donn&#233;es doubles
j'ai ca la :

 If (Mid$(Var1, 1, 4) = "COOR") Then
        If (Mid$(Var1, 6, 6) <> "'test'") Then
            affiche = MsgBox(Mid$(Var1, 10, 13))
            'pt(temp) = Mid$(Var1,10,13))  <--- la jvoudrais lire un double ^^
            MsgBox pt(temp)
        End If
        temp = temp + 1
    End If

troxsa · Answer

Bonjour

Le principe est le meme que
http://www.troxsa.info/index.php?option=com_content&task=view&id=45&Itemid=2

Il faut simplement changer les conditions et utiliser IndexOf Ou une String avec Starwith, je te fait un exemple si tu veux c'est assez facile a faire


http://www.troxsa.info/Code VB.net

cwamm · Answer

a noter que la ligne:
       If (Mid$(Var1, 6, 6) <> "'test'") Then est ici ca le fichier commence par
COOR 'test' ... et on se fout de cette ligne ;)

troxsa · Answer

On dirais bien du vb6 tout &#231;a ! je suis desoler je peux pas t'aider sur du VB6 car je connais que le vb.net (c#)

@+

http://www.troxsa.info/Code VB.net

cwamm · Answer

la m&#233;thode Val() est mon amie :P

Vraiment super bien foutu ce site avec son forum, son moteur de recherche et les aideurs ;)

cs_DURANDO · Answer

Pour v&#233;rifier que ta ligne commence par "COOR", en supposant que tu as lu la ligne de ton fichier et rang&#233; dans la variable Ligne de type string  

 if (InStr(1,ligne,"COOR",4) =1) then msgbox "La ligne lue commence par COOR "& chr(13) & ligne


Pour extraire tes donn&#233;es, en supposant que leurs positions est
connues, tu peux utiliser la fonction mid() exemple la valeur1 commence
au 8&#233;me caract&#233;re et tient sur 2 caract&#232;re :

dim Element1 as string

dim Element2 as string

Element1=mid(ligne,8,2)

Element2=mid(ligne,17,6)



Esp&#233;rant t'avoir r&#233;pondu

N'h&#233;sites pas si tu bloque encore

A+




C'est pas parceque les c.. sont plus nombreux qu'ils ont forc&#233;ment raison!(dixit Coluche) 
Une seule ligne de conduite, l'objectivit&#233;.

cs_DURANDO · Answer

Pt() doit &#234;tre  un type double

exemple:

dim i as double

i = val(mid(ligne,17,6)) 



C'est pas parceque les c.. sont plus nombreux qu'ils ont forc&#233;ment raison!(dixit Coluche) 
Une seule ligne de conduite, l'objectivit&#233;.

jrivet · Answer

Salut,

Tu veux enregistrer les valeurs ou?
Quel est le separateur des valeurs?

Sinon tu peux essayer la fonction Split.

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cwamm · Answer

C'est en gros ce que j'avais fait :)
la j'ai:
            pt(temp) = Val(Mid$(Var1, 6, 6))

jsuis quasiment &#224; la fin la et me reste a enregistrer une suite de nombre dont je ne connais pas la taille et qui n'a pas de s&#233;parateur: par exemple:

CAS 1 19 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

j'ai:
if (Mid$(Var1, 1, 4) = "CAS") Then

et la jsuis en train de fouiller sur le site comment jpeux faire ca

cwamm · Answer

Comment je pourrais utiliser la m&#233;thode Split?
1- faudrait enregistrer que la partie de la ligne a splitter, jvois pas comment faire :s
2-pour faire le split en lui meme j'ai trouv&#233; sur lesite comment faire mais voila quoi ^^

qqn pourrait venir a mon secours?

cs_DURANDO · Answer

T'as pas de séparateur, mais t"'as des espaces : Tu peux faire une boucle dans laquelle tu cherche le premier caratere <>" ", tant qu'il est trouvé, tu retire les premier caractere Exemple var = "CAS 1 19 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19" Dim VAR As String Dim i As Integer Dim j As Integer VAR = "CAS 1 19 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19" i = 1 VAR = Mid(VAR, InStr(1, VAR, " ")) While Mid(VAR, i, 1) = " " i = i + 1 Wend j = i While Mid(VAR, j, 1) <> " " j = j + 1 Wend MsgBox "variable 1 " & Mid(VAR, i, j - i) On doit pas être loin de la vérité avec ça. A+ C'est pas parceque les c.. sont plus nombreux qu'ils ont forcément raison!(dixit Coluche) Une seule ligne de conduite, l'objectivité.

jrivet · Answer

Salut,

Voici un petit exemple pour utiliser la fonction Split

Dim Str As String
Dim i As Integer
Dim Resultat() As String
Str = "COOR Ceci est un exemple"
Resultat = Split(Str, " ")
For i = 0 To UBound(Resultat)
MsgBox Resultat(i)
Next

En fait Split te retourne dans un tableau chaque groupe de caractere compris entre deux Espace (" ")
Mais si par exemple tes esembles sont separes par des tu peux tres bien faire Resultat Split(Str, "=").

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cwamm · Answer

Et est ce que qqn saurait me dire comment jpeux "copier/coller" la ligne voulue pour effectuer mon split?

CwamM,

jrivet · Answer

Re,

Si ton fichier s'appelle Test.txt:

Dim Ligne As String
Open "C:\Test.txt" For Input As #1
While Not EOF(1)
    Line Input #1, Ligne
    'Met ce que tu veux ici pour effectuer tes operations sur la ligne
    
Wend


Close #1

Voila j espere avoir pu t'aider un peu
@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cwamm · Answer

l'id&#233;e c que le fichier est d&#233;ja ouvert
et que une fois que j'ai pass&#233; mes "COOR" en revue
je passe mes "CAS" en revue, et qd j'ai test&#233; si je suis sur un cas, la commande:
Line Input #2, vartexte
        Dim Resulat() As String
        Resultat = Split(vartexte, " ")

me splitte la ligne du dessous!!

comment faire pour enregistrer cette ligne dans une variable et comme splitter que les objets integer et de ne pas garder en m&#233;moire les string?

Merci de vos aides ^^

CwaM, qui rame, mais qui fouille!

Identification de caracteres

15 réponses

Discussions similaires