Diplomarbeit Patrick Machoni 3 - Beuth Hochschule für Technik Berlin
Diplomarbeit Patrick Machoni 3 - Beuth Hochschule für Technik Berlin
Diplomarbeit Patrick Machoni 3 - Beuth Hochschule für Technik Berlin
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
Anhang 2 Code des Programmes von 4.1.5. 70<br />
Anhang 2 Code des Programmes von 4.1.5.<br />
DefStr A-Z<br />
Private Sub CommandButton1_Click()<br />
Datei = InputBox("Eingabe aus Datei", "Datei öffnen", "C:\ein.pol")<br />
Open "C:\ein.pol" For Input As #1<br />
Open "C:\aus.pol" For Output As #2<br />
Do While Not EOF(1)<br />
Line Input #1, A$<br />
Z$ = Mid$(A$, 1, 9)<br />
X$ = Mid$(A$, 11, 14)<br />
Y$ = Mid$(A$, 26, 14)<br />
I$ = Mid$(A$, 42, 3)<br />
R$ = Mid$(A$, 46, 12)<br />
Print #2, X; " "; Y; " "; Z; " "; I; " "; R<br />
Loop<br />
Close<br />
End Sub