Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Problem mit array
Autor: MiXiToLaG
Datum: 09.06.04 00:52
Hi, Ich bin leider noch nicht besonders gut in VB und würde mich freuen, wenn sich einer von euch Profis mal meinen Code anschaut. Das Programm soll nur eine Textdatei in die listbox1laden, den ersten eintrag kürzen und ihn eine listbox2 adden. Anschließend den ersten Eintrag von listbox1 entfernen, den 2. kürzen -> listbox 2 adden usw. Ich bin auch eigentlich fertig und das funktioniert auch wie ich das will (Beide gekürzte Strings werden in listbox2 angezeigt aber ich kriege folgende Fehlermeldung von VB: "Run-time error 9" Subscript out of range Und er markiert mir diese Zeile: sUrlNew = sArray(0) Code: Option Explicit Dim sFertig As String Private Sub Command3_Click() Dim sNichtFertig As String, sLine As String Open "C:\Dokumente und Einstellungen\Donald Duck\Desktop\NoTiZeN.txt" For Input As #1 While Not EOF(1) Line Input #1, sLine List1.AddItem (sLine) Wend Close #1 sNichtFertig = List1.List(0) Call Start(sNichtFertig) Do Until List1.ListCount < 1 List1.RemoveItem (0) sNichtFertig = List1.List(0) Call Start(sNichtFertig) Loop End Sub Private Function Start(sNichtFertig As String) Dim sArray() As String sArray() = Split(sNichtFertig, ":") 'Aufteilen und als Separator : verwenden sFertig = sArray(0) sArray() = Split(sFertig, ".") ' . entfernen sFertig = sArray(1) Label1.Caption = sFertig If InStr(sFertig, "test") > 0 Then sArray() = Split(sFertig, "test") sFertig = sArray(1) List2.AddItem (sFertig) End If End Function Danke!

Problem mit array	405	MiXiToLaG	09.06.04 00:52
Re: Problem mit array	204	MiXiToLaG	09.06.04 00:55

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen