hur hämtar jag ut detta lättast:

<code>

+CMGL: 1,"REC READ","72347",,"02/06/10,19:58:36+00"
text text
text text, det kan vara flera rader
här text text
+CMGL: 2,"REC READ","72347",,"02/06/10,20:21:41+00"
text text text text
+CMGL: 3,"REC READ","72347",,"02/06/10,20:22:21+00"
text text text text text text



'jag vill ha ut:
1
REC READ
72347
02/06/10,xx:xx:xx+00
(texten)

'hur plockar jag ut detta lättast?



</code>

Hej,

Testa följande kod (har inte testat den så det finns säkert fel i den) :

dim f as long
dim s as string

f=freefile()
Open strFilename For Input As #f
line input #f,s ' Läs in en rad
close #f

dim v as variant
s=mid(s,7) ' Ta bort "+CMGL: "
v=split(s,",") ' Splitta strängen vid alla kommatecken

'Nu kan du få ut värdena med :

msgbox v(0) ' v(1),v(2), osv

För att hämta textraderna så behöver du bara loopa tills du hittar en sträng som börjar med "+CMGL:" då det är dags att splitta igen. Säg till om du vill ha mer komplett kod än ovanstående...

MVH och lycka till...

/Per

Hej
Testa det här

Option Explicit
Private Sub Command1_Click()
Dim FileNum As Long, tmpStr As String, tmpArray() As String
Dim FileNum2 As Long
FileNum = FreeFile
Open "C:\InText.txt" For Input As #FileNum
FileNum2 = FreeFile
Open "C:\UtText.txt" For Output As #FileNum2
Do Until EOF(FileNum)
Line Input #FileNum, tmpStr
If Left$(tmpStr, 6) = "+CMGL:" Then
tmpArray = Split(tmpStr, ",")
Print #FileNum2, ""
Print #FileNum2, Mid$(tmpArray(0), 8)
Print #FileNum2, tmpArray(1)
Print #FileNum2, tmpArray(2)
Print #FileNum2, tmpArray(4) & " " & tmpArray(5)
Else
Print #FileNum2, tmpStr
End If
Loop
Close #FileNum
Close #FileNum2
End Sub

mvh
Sven