Public Class Form1
Inherits System.Windows.Forms.Form
Public Shared hopsundex As Integer = 0
Public Shared schrottundex As String = Nothing
Public Shared Splitter_01 As String = "*" '<- Alt255
Public Shared a As Integer = 0
Public Shared e As Integer = 0
Public Shared z As Integer = 0
Public Shared fn As Integer = 0
Public Shared fz As Integer = 0
Public Shared dn As String = Nothing
Public Shared dp As String = Nothing
Public Shared dat_feld_temp As String = Nothing
Public Shared lbl_feld_temp As String = Nothing
Public Shared lbl_feld_ausg As String = Nothing
Public Shared lst_feld_temp As String = Nothing
Public Shared lst_feld_sort(9) As String
Public Shared y As String
Function dateiread()
Form1.dat_feld_temp = Nothing
Form1.lbl_feld_temp = Nothing
Form1.fz = 0
Do
On Error GoTo fehler
Form1.dat_feld_temp = (LineInput(fn))
Form1.lbl_feld_temp = Form1.dat_feld_temp
Form1.hopsundex = 0
y = Form1.lbl_feld_temp
Call listenformat()
lst_datei_ausgabe.Visible = True
lst_datei_ausgabe.Items.Add(Form1.lbl_feld_ausg)
chk_datei_ausgabe.Items.Add(Form1.lbl_feld_ausg)
Form1.fz = Form1.fz + 1
GoTo ok
fehler:
Exit Do
ok:
Loop Until EOF(fn)
End Function
Function listenformat()
Dim x As String() = y.Split(New Char() {",", Form1.Splitter_01})
For Form1.hopsundex = 0 To x.GetUpperBound(0)
lst_feld_sort(Form1.hopsundex) = x(Form1.hopsundex)
If Form1.hopsundex = 0 Then
lst_feld_sort(Form1.hopsundex) = "Nr.: " + lst_feld_sort(Form1.hopsundex)
Form1.z = Len(Trim(x(Form1.hopsundex)))
If Form1.z > 11 Then
lst_feld_sort(Form1.hopsundex) = Mid$(lst_feld_sort(Form1.hopsundex), 1, 13)
lst_feld_sort(Form1.hopsundex) = lst_feld_sort(Form1.hopsundex) + "•••"
End If
If Form1.z < 11 Then
Do
lst_feld_sort(Form1.hopsundex) = lst_feld_sort(Form1.hopsundex) + " "
Form1.z = Form1.z + 1
Loop Until Form1.z > 11
End If
End If
If Form1.hopsundex = 2 Then
Form1.z = Len(Trim(x(Form1.hopsundex)))
If Form1.z > 25 Then
lst_feld_sort(Form1.hopsundex) = Mid$(lst_feld_sort(Form1.hopsundex), 1, 23)
lst_feld_sort(Form1.hopsundex) = lst_feld_sort(Form1.hopsundex) + "•••"
End If
If Form1.z < 25 Then
Do
lst_feld_sort(Form1.hopsundex) = lst_feld_sort(Form1.hopsundex) + " "
Form1.z = Form1.z + 1
Loop Until Form1.z > 25
End If
End If
If Form1.hopsundex = 4 Then
Form1.z = Len(Trim(x(Form1.hopsundex)))
If Form1.z > 25 Then
lst_feld_sort(Form1.hopsundex) = Mid$(lst_feld_sort(Form1.hopsundex), 1, 23)
lst_feld_sort(Form1.hopsundex) = lst_feld_sort(Form1.hopsundex) + "•••"
End If
If Form1.z < 25 Then
Do
lst_feld_sort(Form1.hopsundex) = lst_feld_sort(Form1.hopsundex) + " "
Form1.z = Form1.z + 1
Loop Until Form1.z > 25
End If
End If
Form1.lbl_feld_ausg = lst_feld_sort(0) + lst_feld_sort(2) + vbTab + lst_feld_sort(3)
+ lst_feld_sort(4)
Next
End Function
