Es scheint kein Tag zu vergehen, an dem ich euch mit irgendwelchen für euch warscheinlich völlig banalen Problemen nerven muss, so auch heute
In Anlehnung an meinen letzten Thread.
http://www.vbarchiv.net/forum/id22_i58368t58368_zeichensatz-datenmuell-ueber-socket.html
Aus besagtem Thread resultiert meine nächste Frage.
Ich zerlege den dort angesprochenen String
[QUOTE]
$ ]4Vx????U183620.000,A,5331.2666,N,00806.0810,E,0.00,,280509,,*12|2.8|6|0000|0000,0000?3
[/QUOTE]
mittels folgendem Codefragment:
Dim xx As Integer
Dim aryTextFile() As String
Dim zuweisung As String
zuweisung = data
aryTextFile = zuweisung.Split(",")
For xx = 0 To UBound(aryTextFile)
Console.WriteLine(aryTextFile(xx))
Next xx Das funktionierte wunschgemäss.
Ausgabe auf der Kommandozeile:
$$ ^?4V?????U133410.000
U133410.000
A
5331.2771
N
00806.0641
usw.
ich nehme an, die Variable aryTextFile enthällt die Werte, so dass ich die einzelnen Werte per aryTextFile(1), aryTextFile(2) usw. ansprechen kann.
Und das ist der Punkt, an dem ich mal wieder scheiter.
Nehme ich aryTextFile(0) gibt er mir einen Wert aus, nehme ich jedoch die 2, erhalte ich eine Fehlermeldung, die mir sagt, dass der Index sich ausserhalb des Wertebereiches befinden würde.
Warum gibt er dann aber über die Kommandozeile aryTextFile(xx) die einzelnen Werte aus? Er zählt den Wert doch auch hoch, oder habe ich da einen Gedankenfehler?
Hintergrund dessen ist, dass die einzelnen Werte in eine MySQL DB eingefügt werden sollen. Mit dem Thema VB und MySQL habe ich mich schon auseinandergesetzt, grundsätzlicher Umgang (Connecten, Parameter, Insert usw) klappt.
Da ich das leider noch nicht testen kann, da ich noch an der anderen "Arrayproblematik" hänge, stellt sich mir die Frage, ob das mit folgendem Fragment überhaupt funktionieren wird.
Dim xx As Integer
Dim aryTextFile() As String
Dim zuweisung As String
zuweisung = data
aryTextFile = zuweisung.Split(",")
For xx = 0 To UBound(aryTextFile)
Dim z As Integer = 0
myCommand.Parameters.Add("?unit_id",aryTextFile(xx +z))
z = z + 1
myCommand.Parameters.AddWithValue("?signal",aryTextFile(xx+z))
z = z + 1
myCommand.Parameters.AddWithValue("?koord_n",aryTextFile(xx+z))
Next xx Ich bin wie immer für jeden Hinweis dankbar
Viele Grüße,
Ein verzweifelnder Heckenpenner
Beitrag wurde zuletzt am 29.05.09 um 13:29:34 editiert. |