Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Array einlesen
Autor: Schlumpf Thomas
Datum: 01.11.03 13:17
ich habe jetzt diesen Code der wunderbar funktioniert.Nur jetzt würde ich noch gerne wissen wie ich das Array wieder einlesen kann.Ich möchte nun noch den ausgewählten Eintrag der Listbox mit dem ersten Element des Arrays vergleichen und wenn beides übereinstimmt dann soll das zweite Element der Pfad der Texdatei eingelesen werden wie mache ich das ?? Code: Option Explicit Const Pfad = "C:\Programmierung\Internetseiten\Array\Array.txt" 'Konstante für die Abspeicherung des Arrays' Public Sub Daten_in_Array(Selektiert As String) Dim Namen() As Variant 'Variable für das Array' Dim I As Integer Dim Zähler As Integer 'Schleifenzähler' Dim Filenummer As Integer Dim c As TextBox Set e = Form1.CommonDialog1 Set c = Form1.Text1 If c.Text = "" Then 'wenn Textbox leer ist ......' MsgBox "Bitte eine Anmerkung in die Textbox eingeben.", vbCritical, "Kein Text in der Textbox" Exit Sub End If 'wenn Textbox Daten enthält.......' With e 'mit CommonDialog1.......' .InitDir = "C:\Programmierung\Internetseiten" 'Verzeichnis voreinstellen' .Filter = "Internetfinder (*.wet)|*.wet" .FileName = "" .ShowSave 'Speichern Dialog aufrufen' Dateiname = .FileName 'Filename an Variable übergeben' End With 'Textdatei apspeichern fehlt' ReDim Preserve Namen(0 To Zähler, 0 To 1) '0 = Name 1 = Namensindex Namen(Zähler, 0) = Selektiert 'Variableninhalt dem Array zuweisen' Namen(Zähler, 1) = Dateiname 'Variableninhalt dem Array zuweisen' Zähler = Zähler + 1 Filenummer = FreeFile Open Pfad For Output As #Filenummer For I = 0 To Zähler - 1 'gehe von Anfang bis zu Ende des Arrays' Print #Filenummer, Namen(I, 0) 'Array abspeichern-Internetseite' Print #Filenummer, Namen(I, 1) 'Array abspeichern-Pfad der Textdatei' Next I Close #Filenummer Set e = Nothing Set c = Nothing End Sub

Array einlesen

528

Schlumpf Thomas

01.11.03 13:17

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