mitt problem är följande
jag har en textfil som jag skulle vilja läsa ut vissa variablar
så här ser filen ut (en post av 100)<code> 1504900</code> ......... Gräsöbaden 32 21 303 1504900 ..........
6455839
ENERGI 1 <code> 9 </code> <code> 01.11.2001 03:52</code>
ENERGI 2 <code> 0 </code> <code> 01.11.2001 03:52</code>
EFFEKT 1 <code> 0,04 </code> <code> 01.11.2001 03:52</code>
EFFEKT 2 <code> 0,00 </code> <code> 01.11.2001 03:52</code>
och nu till mitt problem (eller okunnande)
de färglagda vill jag kunna få ur filen för att använda vidare
hur gör jag loopen så att datorn vet att när han får träff på <code> 1504900</code>
att han ska plocka med de 4 nästa raderna
behöver tips
mvh nicl

1504900 ......... Gräsöbaden 32 21 303 1504900 ..........
6455839
ENERGI 1 9 01.11.2001 03:52
ENERGI 2 0 01.11.2001 03:52
EFFEKT 1 0,04 01.11.2001 03:52
EFFEKT 2 0,00 01.11.2001 03:52
så skall filen se ut
nicl

använd readline eller något annat för att hämta nästa rad från filen.
i loopen:

if instr(nyStr, "1504900") <> 0 then
hämta nästa fyra rader
end if
... och fortsätt loop


/Emma

Här kommer lite kod för att öppna en fil och jämnföra innehållet ,samt visa dom nästa fyra raderna.


<code>
Private Sub Command1_Click()
Dim F As Byte
Dim strFil As String
Dim strCompare as String

F = FreeFile 'Tar fram ledigt filnummer

strFil = "C:\test.txt" 'sökväg till fil

Open strFil For Input As #F 'öppna för läsning


Do While Not EOF(F) 'kör till slutet av filen

Input #F, strCompare 'läs in rad

If InStr(1, strCompare, "1504900") <> 0 Then 'om tex 1504900 finns i rad
MsgBox strCompare
Input #F, strCompare 'nästa rad osv
MsgBox strCompare
Input #F, strCompare
MsgBox strCompare
Input #F, strCompare
MsgBox strCompare
Input #F, strCompare
MsgBox strCompare
End If


Loop

Close #F


End Sub
</code>