Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Dateien auslesen 2.Teil
Autor: jinx
Datum: 03.07.02 17:35
Hi Dieter und andere du hast zuletz geschrieben, dass es vielleicht an lineput liegt und ich soll line rausnehmen, das habe ich gemacht und das zeigt immer noch falsch, der zeigt alle werte verdeckt als stern, weil da in dem programm eine bedingung ist, sollte ein wert leer sein soll er als stern rausgeben, nun übernimmt er für alle werete, so weis ich auch gar nicht ob er überhaupt die werte richtig zeigt, weil ich die ja nur als stern sehe was soll ich machen, muss noch andere funktionen einbauen aber solange das auslesen und auflisten nicht geht kann ich nichts machen rivate Sub cmdextrahiere_Click() Dim Name As String Dim Model As String Dim Port As String Dim F As Integer Dim zähler As Integer Dim tmp As String F = FreeFile Open "Crintersreg1.txt" For Input As #F While Not EOF(1) Input #F, tmp If InStr(tmp, "Share Name") <> 0 Then Name = tmp Els eIf InStr(tmp, "Printer Driver=") <> 0 Then Model = tmp ElseIf InStr(tmp, "Port=") <> 0 Then Port = tmp End If If Name = "" Then Name = "****" ' falls Wert leer ist mit Stern ersetzen' If Model = "" Then Model = "****" If Port = "" Then Port = "****" txttext.Text = txttext.Text & Name + Model + Port + vbCrLf 'Ausgabe' zähler = zähler + 1 'nach 10 gelisteten Geräten Zeilenabstand erzwingen' If (zähler = 10) Then zähler = 0 txttext.Text = txttext.Text + vbCrLf + vbCrLf End If Wend Close #F End Sub

Dateien auslesen 2.Teil	55	jinx	03.07.02 17:35
Re: Dateien auslesen 2.Teil	270	Dieter	03.07.02 19:05
Re: Dateien auslesen 2.Teil	36	jinx	03.07.02 19:24
Re: Dateien auslesen 2.Teil	29	jinx	03.07.02 23:15
Re: Dateien auslesen 2.Teil	31	jinx	03.07.02 23:18

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