Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Abschnitt auslesesn 4
| Uploader: |  Emporea1997 |
| Datum/Zeit: | 10.09.2011 10:51:00 |
Type W
x As Integer
KTNPOS As Integer
Zeile As Integer
End Type
Type KTNs
text As String
nummer As Integer
Zeile As Integer
End Type
ReDim KTN() As KTNs
Dim As W Werkzeug()
Dim As String Text1()
Dim As Integer ZeilenAnzahl = 1, WZeilenAnzahl = 0,KTNZeilenAnzahl = 0
Dim zeile As Integer
Open "K.txt" For Input Access Read As #1
Do 'Text wird in eine Array abgespeichert
ZeilenAnzahl = ZeilenAnzahl + 1
ReDim Preserve text1 (1 To ZeilenAnzahl) As String
Line Input #1 , text1(ZeilenAnzahl)
Loop Until Eof (1)
Close #1
For Zaehler As Integer = 1 To ZeilenAnzahl 'Auswertung des Textes
Select Case Mid (text1(Zaehler) , 1 , 1) 'Überprüfen was im Anfang einer Zeile steht
Case "W" ' Wenn W Steht wird die Array um eins erhöht und sie wird abgespeichert
WZeilenAnzahl = WZeilenAnzahl + 1
ReDim Preserve Werkzeug (1 To WZeilenAnzahl) As W
Werkzeug(WZeilenAnzahl).x = Val (Mid (text1(zaehler) , 9 , 5))
Werkzeug(WZeilenAnzahl).Zeile = zaehler
Case "K" ' Wenn K Steht wird die Array um eins erhöht und sie wird abgespeichert
KTNZeilenAnzahl = KTNZeilenAnzahl + 1
ReDim Preserve KTN (1 To KTNZeilenAnzahl) As KTNs
KTN(KTNZeilenAnzahl).nummer = KTNZeilenAnzahl
KTN(KTNZeilenAnzahl).text = text1 (zaehler)
KTN(KTNZeilenAnzahl).Zeile = zaehler
End Select
Next Zaehler
'Werte werden ausgegeben
Print "Zeilen Anzahl = "&ZeilenAnzahl
Print "W Zeilen Anzahl = "&WZeilenAnzahl
Print "KTN Zeilen Anzahl = "&KTNZeilenAnzahl
Sleep
'Versuch für das zuordnen der Ws zu den KTN Zeiln
For x As Integer = 1 To KTNZeilenAnzahl
For y As Integer = 1 To WZeilenAnzahl
IF (Werkzeug(y).Zeile > KTN(x).zeile)_
AND (Werkzeug(y).Zeile < KTN(x+1).Zeile) Then
Werkzeug(y).KTNPOS = x
EndIf
Next
Next
sleep