Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Public Function ZeileLesen(ZeilenNr As Long, DateiPfad As String) As String
Dim DateiNr As Integer
Dim Zeile As String
Dim ZeilenNr2 As Long
DateiNr = FreeFile
Open DateiPfad For Input As #DateiNr
Do Until EOF(DateiNr)
Line Input #DateiNr, Zeile
ZeilenNr2 = ZeilenNr2 + 1
If ZeilenNr2 = ZeilenNr Then
ZeileLesen = Zeile
Exit Function
End If
Loop
Close #DateiNr
End Function
Public Sub ZeileEditieren(ZeilenNr As Long, NeuerZeilenText As String, _
DateiPfad As String)
Dim Zeilen() As String
ReDim Zeilen(0) As String
Dim Zeile As String
Dim DateiNr As Integer
Dim i As Long
DateiNr = FreeFile
Open DateiPfad For Input As #DateiNr
While Not EOF(DateiNr)
Line Input #DateiNr, Zeile
Zeilen(UBound(Zeilen)) = Zeile
ReDim Preserve Zeilen(UBound(Zeilen) + 1) As String
Wend
Close #DateiNr
Zeilen(ZeilenNr - 1) = NeuerZeilenText
DateiNr = FreeFile
Open DateiPfad For Output As #DateiNr
For i = 0 To UBound(Zeilen) - 1
Print #DateiNr, Zeilen(i)
Next i
Close #DateiNr
End SubText1.Text = ZeileLesen(1, C:\windows\desktop\test.txt)Call ZeileEditieren(1, NeuerText, C:\windows\desktop\test.txt)Call ZeileEditieren(1, , C:\windows\desktop\test.txt)
