fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

"K" abschnitt auslesen

Uploader:	Emporea1997
Datum/Zeit:	10.09.2011 10:08:26

Open oeffnen For Input Access Read As #1

                            Do

                                KTNcount = KTNcount + 1

                                ReDim Preserve text1 (1 To KTNcount) As String

                                Line Input #1 , text1(KTNcount)

                            Loop Until Eof (1)

                        Close #1



                        For Zaehler As Integer = 1 To KTNcount

                            zeile = zeile + 1

                            Select Case Mid (text1(Zaehler) , 1 , 1)

                                Case "W"

                                    KTNcount2 = KTNcount2 + 1

                                    ReDim Preserve Werkzeug (1 To KTNcount2) As W

                                    Werkzeug(KTNcount2).x = Val (Mid (text1(zaehler) , 9 , 5))

                                    Werkzeug(KTNcount2).Zeile = zeile

                                Case "K"

                                    KTNcount3 = KTNcount3 + 1

                                    ReDim Preserve KTN (1 To KTNcount3) As KTNs

                                    KTN(KTNcount3).nummer = KTNcount3

                                    KTN(KTNcount3).text = text1 (zaehler)

                                    KTN(KTNcount3).Zeile = zeile



                            End Select

                        Next Zaehler

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.