Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

noch eine kleine frage
Autor: georg-30
Datum: 02.09.02 22:52
das ist mein quellcode: If Check1.Value = 1 Then Dim F As Integer Dim nCount As Long Dim i As Long Dim sLines() As String F = FreeFile Open "WINNT.SIF" For Input As #F While Not EOF(F) nCount = nCount + 1 ReDim Preserve sLines(nCount) Line Input #F, sLines(nCount) Wend Close #F sLines(16) = "ProductID=" & Text2.Text sLines(17) = "FullName=" & Text3.Text sLines(18) = "OrgName=" & Text4.Text F = FreeFile Open "WINNT.SIF" For Output As #F For i = 1 To nCount Print #F, sLines(i) Next i Close #F Kopiere "WINNT.SIF", sPath & "WINNT.SIF" End If wie kann ich jetzt noch einbauen wen text2 oder text3 oder text4 also einer von den textboxen keine informationen enthällt das eine msgbox kommt das alle eingaben gemacht werden müssen grüße georg

bestimmte zeile in textdatei ersetzen	94	georg-30	02.09.02 21:41
Re: bestimmte zeile in textdatei ersetzen	2.535	Dieter	02.09.02 21:46
Re: bestimmte zeile in textdatei ersetzen	94	georg-30	02.09.02 21:58
kleines problem	75	georg-30	02.09.02 22:09
Muss F heißen (oT)	985	Dieter	02.09.02 22:13
noch eine kleine frage	78	georg-30	02.09.02 22:52
Re: noch eine kleine frage	829	Moni	02.09.02 23:01
Re: noch eine kleine frage	835	Dieter	02.09.02 23:01

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