Discussion :

[pauleta75]

Bonjour,
Je programme actuellement sur l'automatisation d'un véhicule par récupération de trames GPS.
J'ai créée une application VB6 qui récupère mes trames dans une textbox multiligne et j'ai besoin ensuite de décomposer ma trame en plusieurs morceau pour effectuer des calculs.
Mon problème c'est que j'ai insérer une horloge qui me decompose ma trame tout les X temps mais je décompose toujours la première trame de ma textbox multiligne.
J'aimerais savoir comment je peut aller chercher la dernière ligne de ma textbox multiligne afin de récupérer mes dernières données.
Par avance merci

[ProgElecT]

Salut
Sur un Form, un TextBox et ce

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Load()
Dim DecoupeLigne() As String
'rempli le textebox avec 4 lignes
Text1.Text = "ligne 1" & vbCrLf _
            & "ligne 2" & vbCrLf _
            & "ligne 3" & vbCrLf _
            & "ligne 4"
DecoupeLigne = Split(Text1.Text, vbNewLine, , vbTextCompare)
MsgBox DecoupeLigne(UBound(DecoupeLigne)), vbInformation, "Dernière ligne"
MsgBox DecoupeLigne(UBound(DecoupeLigne) - 1), vbInformation, "Avant dernière ligne"
MsgBox DecoupeLigne(LBound(DecoupeLigne) + 1), vbInformation, "Deuxiéme ligne"
End Sub

[OhMonBato]

Un autre maniere de faire (meme si le split marche tres bien) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Option Explicit
 
Private Sub Command1_Click()
Dim ch As String
Dim DataBySplit
Dim i As Integer, j As Integer
Dim DataByInstrRev As String
 
ch = "blabla " & vbCrLf & "toto" & vbCrLf & "tit"
DataBySplit = Split(ch, vbCrLf)
'Recherche du dernier CrLf
i = InStrRev(ch, vbCrLf)
If i Then
  'Recherche du CrLf précédent (Si c'est un message GPS de type $GPGGA, on peut remplacer vbCrLf par $GPGGA)
  j = InStrRev(ch, vbCrLf, i)
  If j Then
    DataByInstrRev = Mid(ch, j + 2, i - j)
    'On peut couper ce qu'il y a avant si ca ne sert pas à un process ultérieur
    ch = Mid(ch, j + 2)
  End If
End If
 
MsgBox "Chaine par Split : " & DataBySplit(UBound(DataBySplit)) & vbCrLf & _
"Chaine par InstrRev : " & DataByInstrRev
 
End Sub

[pauleta75]

Merci beaucoup pour votre aide qui m'a été très precieuse

(j'ai utilisé le premier code qui m'a paru plus simple d'utilisation)
pb rencontré: les trames recue fesait un retour a la ligne automatique et je m'acharnait à vouloir récupérer la dernière ligne, il fallait récupérer l'avant dernière.

Encore merci