Visual Basic 6 - ricerca dinamica di una stringa

Allora. Se il file è proprio strutturato come hai postato poco fa (mi riferisco soprattutto al fatto che nella parte dove hai T01 (ad esempio) e poi le coordinate X e Y, queste ultime si trovano NON nella stessa riga di T01, ma in quella sotto), potresti fare:

Dim Riga As String 'Riga sarebbe una stringa che indica ogni riga del file
If Left(Riga, 1) = "T" Then
'significa che inizia con T01 oppure T02 etc.
'quindi vedi che devi fare
'poi fai un'altra verifica
If Mid(Riga, 3, 1) = "C" Then
'significa che la Riga è del tipo T01C0.0315 (ad esempio)
'e quindi agisci di conseguenza
ElseIf Len(Riga) = 3 Then
'significa che la Riga contiene SOLO il T01 (o T02 etc.)
'e quindi nella riga sotto ci saranno le coordinate X e Y
'quindi ti regoli

End If
End If

In questo codice ti ho scritto come individuare le varie situazioni che si possono venire a creare nella riga del file. Prova ad applicarlo al tuo codice, se non ci riesci riposta dicendo che problemi hai

siiiii..... direi che e' la soluzione ottimale... adesso provo ad adattarla/inserirla nel mio programma e ti faccio sapere.
grazie

ah lol non avevo capito il tuo problema ora vedendo l'esempio di ruggy penso di aver capito che problema avevi...

figurati
aspetto notizie

ok ho fatto le modifiche per adattarlo al mio scopo funziona ma non perfettamente, la seconfda colonna mi scrive anche i valori x e y....

Private Sub Command1_Click()
  Dim Riga As String 'Riga sarebbe una stringa che indica ogni riga del file
  
  
  CommonDialog1.CancelError = True
  On Error GoTo ErrHandler
  CommonDialog1.Filter = "DRD Files(*.drd)|*.drd|"
  CommonDialog1.ShowOpen
  Text1.Text = CommonDialog1.FileName
  
  Open CommonDialog1.FileName For Input As #1
  While Not EOF(1)
  Input #1, Riga

  
  If Left(Riga, 1) = "M" Then
  ElseIf Len(Riga) = 3 Then
  T0.AddItem Riga$  ' scrive solo i valori T01 T02 T03 ecc...
  End If


  If Left(Riga, 4) = "C" Then
  ElseIf Len(Riga) = 10 Then
  Drill.AddItem Riga$ 'scrive i valori tipo T11C0.1620 e tutto quello che ha 10 caratteri...
  End If
  
  CodeFull.AddItem Riga$ 'scrive tutto il resto per intero
  
  Wend
  Close #1
  
  Exit Sub
ErrHandler:
  Exit Sub
  
End Sub

?? spiegati meglio

nel senso che vorrei copiare solo questi valori nella listbox
T07C0.0520
T08C0.0787
T09C0.0866
T10C0.1100
T11C0.1620 //senza i vari T07C,T08C,T09C ecc...

e non questi...
X1950Y9926
X1950Y1092
X1950Y1192
X1950Y1292

 If Left(Riga, 4) = "C" Then
  ElseIf Len(Riga) = 10 Then
  Drill.AddItem Riga$ 'scrive i valori tipo T11C0.1620 e tutto quello che ha 10 caratteri...
  End If

spero che sia chiaro
grazie

non basta fare?

  If Left(Riga, 4) = "C" Then
  ElseIf Len(Riga) = 10 Then
  if left(riga, 4) <> "X" then
  Drill.AddItem Riga$ 'scrive i valori tipo T11C0.1620 e tutto quello che ha 10 caratteri...
  end if  
  End If