[indyce]

Hallo zusammen,

ich habe ein kleines VB6 Programm geschrieben, in dem man Koordinaten umrechnen kann. Nur das Verarbeiten von Multiline Textfeldern bereitet Schwierigkeiten. Ich habe zwei Textfelder, txtEingabe und txtAusgabe, dazwischen einen Berechnen-Button

Ich lese eine .txt Datei ein und lasse sie in einem Textfeld (txtEingabe.Text) erscheinen. Sie besteht nur aus zwei Spalten.

111111.11 222222.22
333333.33 444444.44
555555.55 666666.66
...

Außerdem habe ich eine funktionierende Funktion -umrechnen()-, die meine neuen x und y Werte berechnen kann.

Wenn ich nun auf den Berechnen-Button klicke, soll die erste Zeile aus txtEingabe gelesen werden, wobei
X1 = Left(txtDatei.Text, 9)
Y1 = Right(txtDatei.Text, 12)
herausgefiltert werden soll. Dann kommt die Funktion umrechen(), dann die Ausgabe. Die hab ich mir einfach so vorgestellt:
txtAusgabe.Text = "N: " & Y2 & " " & "O: " & X2 & vbCrLf

Bei einer Zeile müsste es so gehen:

X1 = Left(txtDatei.Text, 9)
Y1 = Right(txtDatei.Text, 12)
umrechnen
txtAusgabe.Text = "N: " & Y2 & " " & "O: " & X2

Aber wie lös ich dass bei mehreren Zeilen? Muss ich X1 und Y1 in Arrays verpacken?
So funktioniert es zumindest nicht:

Open txtEingabe.Text For Input As #1
Do While Not EOF(1)http://www.winfuture-forum.de/style_emoticons/default/huh.gif
http://www.winfuture-forum.de/style_emoticons/default/huh.gif
	Line Input #1, vieleZeilen
	alles = alles & vieleZeilen & vbCrLf
	'Auslesen der Koordinaten aus dem ersten Textfeld für die Berechnung
	NW = Left(alles, 9)
	EW = Right(alles, 12)
	umrechnung
	txtAusgabe.Text = "N: " & Y2 & " " & "O: " & X2 & vbCrLf
Loop
Close #1

Fehlermeldung: Fehler beim Kompilieren, Typen unverträglich. Markiert ist vieleZeilen.

Hat jemand eine Idee?

Vielen Dank!

Dieser Beitrag wurde von indyce bearbeitet: 23. August 2008 - 21:06