Put Txt from DAT File On Form Lbls

Sub SetLabels(sFileName as string, nLine as integer)
  dim fIn as integer
  dim iLfd as integer
  dim sZeile as string
  dim oLbl as label
  fIn=freefile
  open app.path & "\" & sFileName for Input Access ReadOnly as #fIn
  iLfd=0
  do while (iLfd<nLine) and (not eof(fIn))
     iLfd=iLfd+1  
     line input #fIn, sZeile
  loop
  if eof(fIn) then
      ' do whatever you want as error recovery
    else
      ' Set Label captions (supposed that the labels are
      ' members of a controlarray called lblArray and has
      ' indexes running from 1 to 37
      for each oLbl in lblArray
         oLbl.Caption=""
      next
      for each oLbl in lblArray
        iLfd=instr(sZeile,",")
        if iLfd=0 then
            oLbl.caption=sZeile
            exit for ' last Element of sZeile reached
          else
            oLbl.caption=left(sZeile,iLfd-1)
            sZeile=mid(sZeile,iLfd+1)
        endif
      next
  endif
  close #fIn
end sub

Taplin:

Can't seem to get the code you provided to work properly, although I think I understand what you are trying to do.  I think the error might be from syntax, so I'll give you the control names, so they can be replaced in the code you posted.

The label array is called lblPlace(Index)

There are two command buttons to control forward or backward movement in the text file.

They are called cmdNext and cmdPrev.

I increased the points also.  Thanks for your help!

Keep the RetrieveStrings routine as it was initially sent to you.  Declare a variable in your general declarations:

   Private plngPosition as Long

Change the transferline subroutine to look like this:

   Private Sub TransferLine(Index As Long)
       Dim strData() As String
       Dim intCounter as Integer
       strData = Split(pstrArray(Index), ",")
   
       For intCounter = LBound(strData) to UBound(strData)
           lblPlace(intCounter) = strData(intCounter)
       Next
   End Sub
 
Then, in your cmdNext and cmdPrev routines, call the TransferLine routine, passing the Index of the row you want to display (0 to whatever the # of lines are).  Example:

(assuming you are tracking your position with the variable plngPosition)

   Private Sub cmdPrevious_Click()
      lngPosition = lngPosition - 1
      If lngPosition < 0 then lngPosition = 0
      TransferLine lngPosition
   End Sub
 
   Private Sub cmdNext_Click()
      plngPosition = plngPosition + 1
      If plngPosition >= plngCounter then plngPosition = plngCounter -1
      TransferLine plngPosition
   End Sub
 
This code should do it for you.  If you like it, accept my first answer, please.  Else, let me know why, because, as such, this code should be what you need.

Sorry I took so long to answer and grade this one.. Got sidetracked with another problem..

Hey, no problem... glad to help.