Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Sorry aber.....
Autor: Atlan
Datum: 13.05.02 11:12
Hallo Dieter, leider klappt das immer noch nicht. Hier noch einmal der Code, der wie auch immer funktioniert hat, zumindest ohne den Namen in der ComboBox *g*, ist halt noch kein Meister vom Himmel gefallen. 'Deklarationen: Dateien erstellen mit der Endung ""! Const Co_Pfad = "batch\" 'Konstante für das Laufwerk und den Pfad Const Co_Dateiname = "Batch" 'Konstante für den Datiname Const Co_Dateiendung = ".dat" 'Konstante für die Endung Dim St_Umwandeln As String 'Variable für das Umwandeln von 1 in 01 Dim By_Counter As Byte 'Variable für den Schleifenzähler 'Deklarationen: Dateien erstellen mit der Endung ""! '##### Aufruf in der Form (frmApplication): ###### Private Sub Form_Load() BatchLoad '<--- Im modBatch Modul! End Sub Private Sub ComboBatch_Click() BatchListe '<--- Im modBatch Modul! End Sub '##### modBatch Modul: ###### Sub BatchLoad() '20 Dateien einlesen On Error GoTo Fehler For By_Counter = 1 To 200 St_Umwandeln = Format(By_Counter, "000") 'Die Zahl 1 in 001 Umwandeln Open Co_Pfad & Co_Dateiname & St_Umwandeln & ".dat" For Input As #1 'Prüfen ob Datei vorhanden! frmApplication.ComboBatch.AddItem Co_Dateiname & St_Umwandeln Close #1 'Vorhandene Datei schließen Weiter: Next Exit Sub Fehler: Select Case Err.Number Case 53 'Datei nicht vorhanden Resume Weiter 'Fehlerroutine nicht ausschalten und bei ''Weiter'' fortsetzen. End Select End Sub Sub BatchListe() On Error GoTo Error Dim Textzeile As String Open Co_Pfad & frmApplication.ComboBatch.Text & Co_Dateiendung For Input As #1 frmApplication.Text1.Text = "" Do While Not EOF(1) ' Schleife bis Dateiende. Line Input #1, Textzeile ' Zeile in Variable einlesen. frmApplication.Text1.Text = frmApplication.Text1.Text & Textzeile & vbCrLf ' Ausgabe im Textfeld (vbCrLf = Zeilenumbruch) Loop Close #1 ' Datei schließen. Exit Sub Error: MsgBox "Bitte einen Eintrag wählen !", 64, "Fehler:" End Sub '########################################################################### Neuer Code: 'Deklarationen: Dateien erstellen mit der Endung ""! Const Co_Pfad = "batch\" 'Konstante für das Laufwerk und den Pfad Const Co_Dateiname = "Batch" 'Konstante für den Datiname Const Co_Dateiendung = ".dat" 'Konstante für die Endung Dim St_Umwandeln As String 'Variable für das Umwandeln von 1 in 01 Dim By_Counter As Byte 'Variable für den Schleifenzähler 'Deklarationen: Dateien erstellen mit der Endung ""! '##### Aufruf in der Form (frmApplication): ###### Private Sub Form_Load() BatchLoad '<--- Im modBatch Modul! End Sub Private Sub ComboBatch_Click() BatchListe '<--- Im modBatch Modul! End Sub '##### modBatch Modul: ###### Sub BatchLoad() For By_Counter = 0 To 200 St_Umwandeln = Format(By_Counter, "000") 'Die Zahl 1 in 001 Umwandeln If Dir$(App.Path & "\" & Co_Pfad & "\" & Co_Dateiname & Format$(By_Counter, "000") & ".dat") <> "" Then ComboBatch.AddItem Co_Dateiname & St_Umwandeln End If Next By_Counter If ComboBatch.ListCount > 0 Then ComboBatch.ListIndex = 0 End If End Sub Sub BatchListe() For By_Counter = 0 To 200 St_Umwandeln = Format(By_Counter, "000") 'Die Zahl 1 in 001 Umwandeln If Dir$(App.Path & "\" & Co_Pfad & "\" & Co_Dateiname & Format$(By_Counter, "000") & ".dat") <> "" Then ComboBatch.AddItem Co_Dateiname & St_Umwandeln Do While Not EOF(1) ' Schleife bis Dateiende. Line Input #1, Textzeile ' Zeile in Variable einlesen. frmApplication.Text1.Text = frmApplication.Text1.Text & Textzeile & vbCrLf ' Ausgabe im Textfeld (vbCrLf = Zeilenumbruch) End If Next By_Counter If ComboBatch.ListCount > 0 Then ComboBatch.ListIndex = 0 End If End Sub Während das bei BatchLoad() bestens funktioniert, kracht es egal was ich da am friemeln bin bei BatchListe(). Immer beim einlesen, findet er den Programmpfad nicht. Was ist da falsch ? Gruß, Atlan

Schreibgeschützte ComboBox	57	Atlan	10.05.02 19:12
Re: Schreibgeschützte ComboBox	240	Dieter	10.05.02 19:44
Re: Schreibgeschützte ComboBox	29	Atlan	11.05.02 23:51
Re: Schreibgeschützte ComboBox	211	Dieter	12.05.02 00:05
Re: Schreibgeschützte ComboBox	21	Atlan	12.05.02 00:20
Re: Schreibgeschützte ComboBox	246	Dieter	12.05.02 00:25
Re: Schreibgeschützte ComboBox	44	Atlan	12.05.02 01:11
Re: Schreibgeschützte ComboBox	25	Atlan	12.05.02 11:33
Re: Schreibgeschützte ComboBox	293	Dieter	12.05.02 12:09
Re: Schreibgeschützte ComboBox	23	Atlan	12.05.02 18:43
Schon in Heia ?	23	Atlan	12.05.02 21:13
Re: Schon in Heia ?	213	unbekannt	12.05.02 21:24
Re: Schon in Heia ?	22	Atlan	12.05.02 21:43
Von wegen Heia!	390	Dieter	12.05.02 23:29
Dieter, Du bist ein Rocker! oT	229	unbekannt	12.05.02 23:35
Hmmmm ??? (oT)	300	Dieter	12.05.02 23:43
Dieses etwas altmodische Wort ....	221	Moni	12.05.02 23:50
Moment !	242	unbekannt	13.05.02 00:17
Immer diese uBhctsbanerdhere (oT)	243	Dieter	13.05.02 00:26
Spass muss sein *Grinz*, oT	385	unbekannt	13.05.02 01:02
Das meine ich aber auch - Thread ende (oT)	220	Dieter	13.05.02 01:09
Re: Das meine ich aber auch - Thread ende (oT)	27	Atlan	13.05.02 09:34
thx	30	Atlan	13.05.02 14:04
Sorry aber.....	32	Atlan	13.05.02 11:12
Re: Sorry aber.....	229	Dieter	13.05.02 11:19

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