kan man inte läsa in från fil till olika textboxar

har för närvarande 6st txtdocument med en länk i varje textdocument. som läsen in till 6st textboxar..
kan man inte ha ett txt document med 6st rader och varje textbox hämtar från
ett och samma textdocument

använder för närvarande följande cod

<code>
Public Sub url_1()
Dim iFreeFile As Integer ' För att läsa från textfilen
Dim strLine As String ' För att läsa från textfilen
iFreeFile = FreeFile
Open App.Path & "\url_1.txt" For Input As iFreeFile
While Not EOF(iFreeFile)
Line Input #iFreeFile, strLine
Form1.txturl_1.Text = "" & strLine & ""
Wend
Close iFreeFile
End Sub
</code>

borde finnas något änklare sätt

<code>
Public Sub url_1()
'Gör en kontrollarray av texturl(0) Till texturl(5)
Dim iFreeFile As Long ' För att läsa från textfilen
Dim strLine As String ' För att läsa från textfilen
Dim i As Long
iFreeFile = FreeFile
Open App.Path & "\url_1.txt" For Input As iFreeFile
Do Until EOF(iFreeFile)
Line Input #iFreeFile, strLine
Form1.txturl(i).Text = strLine
i = i + 1
If i > 5 Then Exit Do
Loop
Close #iFreeFile
End Sub
</code>

Eller ännu bättre med kontroll på antal rader

<code>
Public Sub url_1()
'Gör en kontrollarray av texturl(0) Till texturl(5)
Dim iFreeFile As Long ' För att läsa från textfilen
Dim strLine As String ' För att läsa från textfilen
Dim i As Long
iFreeFile = FreeFile
Open App.Path & "\url_1.txt" For Input As iFreeFile
For i = 0 To 5
Line Input #iFreeFile, strLine
Form1.txturl(i).Text = strLine
Next
Close #iFreeFile
End Sub
</code>

tackar Svenpon ditt exempel fungerar underbart.

litet tillägg
går det att göra så att man läser varanan rad i textboxarna

rad 2
rad 4 o.s.v

då kan man lägga in information i textfilen så man vet vilken rad som gör vad

Läsa varannan rad 2 4 osv tror att det är så här du menar
<code>
Public Sub url_1()
'Gör en kontrollarray av texturl(0) Till texturl(5)
'Läsa rad 2 , 4 osv
Dim iFreeFile As Long ' För att läsa från textfilen
Dim strLine As String ' För att läsa från textfilen
Dim dummyStr As String
Dim i As Long
iFreeFile = FreeFile
Open App.Path & "\url_1.txt" For Input As iFreeFile
For i = 0 To 5
Line Input #iFreeFile, dummyStr
Line Input #iFreeFile, strLine
Form1.txturl(i).Text = strLine
Next
Close #iFreeFile
End Sub
</code>

<code>
Line Input #iFreeFile, dummyStr
</code>
löste problemet exakt som menade..

Bra att ha för att kunna förklara vad som man menar i textfilen
Tackar...