Dataformat i filen

Hej Alle.

Jeg sidder nu tilbage med et problem. Jeg har skrive et dataformat, som virker når daterne lægger i rammerne. Men hvornår dataerne indlægger fra en fil, opstår problemmerne.

Koderne ser sådan som vist herunder.


Private Sub Command1_Click()
Dim FilAntal
Dim FilLineI
Dim MaxLine
Dim ABC_Run
Dim FormName
Dim Controlname
Dim TextCommand
Dim Value
Dim IS_Tal
Dim S
Dim x
Dim LineI
File1.Path = Text1.Text



For FilAntal = 0 To File1.ListCount - 1
Open Text1.Text & File1.List(I) For Input As #1
MaxLine = FileAntal(Text1.Text & File1.List(I))
For FilLineI = 1 To MaxLine
Input #1, LineI

For ABC_Run = 1 To Len(LineI)
S = Mid(LineI, ABC_Run, 1)
If IS_Tal = 0 Then
If S = "." Then IS_Tal = 1: GoTo S72
FormName = FormName & S
End If

If IS_Tal = 1 Then
If S = "." Then IS_Tal = 2: GoTo S72
Controlname = Controlname & S
End If
S72:
Next ABC_Run


If Controlname = "FormName" Then
fmRun.List1.AddItem FormName
End If

x = fmRun.ListView1.ListItems.Add(, , FormName, 1, 1)
FormName = ""
Controlname = ""
Next FilLineI
Close #1
Next FilAntal

End Sub

Programmet kommer hele tiden til at oprette en line i listview1, men uden tekst. Hvordan løser jeg problemet.