VBWereld

Beginner Geregistreerd op: 1-2-2006 Berichten: 4

Hallo allemaal,

ik ben bezig met een applicatie ( heb helaas kwa VB redelijk weinig kennis )

wat ik doe is het volgende.

Ik lees een bestand uit in dit geval een "*.igc" deze wordt regel voor regel uitgelezen en op een gegeven moment worden er stukken uit deze regels in een array gezet.
Dit gaat allemaal goed totdat ik de loop uit ga dat lijken de waardes allemaal leeg te zijn op de laatste na.

stel er zijn 300 array elementen

binnen de loop zijn ze allemaal netjes gevuld

buiten de loop is alleen 300 nog gevuld

ik kom er zelf even niet meer uit.

code:

Code:

Open sFilePath & "\" & sFileName For Input As nFileNum
  Do While Not EOF(nFileNum)

    Line Input #nFileNum, sNextLine

    'gebeurt nog wat meer wat niet relevant is.
    'Hier wordt onder andere RecordAltPress gevuld met een getal tussen de -100 / 10000

    i = i + 1

    ReDim arrLines(i)
    arrLines(i) = RecordAltPress

    'hier is die schijnbaar gevuld
    sText = sText & "(" & arrLines(i) & ")" & vbCrLf


  Loop
  Text1.Text = sText
Close nFileNum

Do While i < UBound(arrLines)
  i = i + 1
  'hier is die schijnbaar leeg
  sText = sText & "(" & arrLines(i) & ")" & vbCrLf
Loop
Text1.Text = sText

Ik hoop dat jullie zo genoeg informatie hebben om mij te kunnen helpen.

Alvast bedankt,

Groeten Xtravanta

Lid ++ Geregistreerd op: 23-7-2005 Berichten: 78

probeer of het werkt als je na de 1e loop...de I variabele weer op 0 zet.