Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Zeile & Buchstabe lesen
Autor: AndyOG
Datum: 25.10.06 20:48
Aloa hab mal was kleines geschrieben (nicht wirklich getestet): Private Sub Form_Load() ' Dein Aufruf sähe dann so aus (also müsste eig. ;) ): MsgBox GetTextOfFile("C:\Datei.txt", 242, 40, 3) End Sub Private Function GetTextOfFile(FileName As String, Optional Line As Integer = 1, Optional SelStart As Integer = 1, Optional SelLength As Integer = 1) As String Dim F As Integer Dim strInhalt As String 'existiert die Datei ? If Dir(FileName) = "" Then GetTextOfFile = "": Exit Function F = FreeFile Open FileName For Binary As #F strInhalt = Space(LOF(F)) Get #F, , strInhalt Close #F Dim strMyLines() As String strMyLines = Split(strInhalt, vbCrLf) If Line > UBound(strMyLines) Then GetTextOfFile = "": Exit Function If Len(strMyLines(Line - 1)) < SelStart Then GetTextOfFile = "": Exit Function If Len(strMyLines(Line - 1)) < SelLength Then GetTextOfFile = "": Exit Function GetTextOfFile = Mid(strMyLines(Line - 1), SelStart, SelLength) End Function Mit freundlichen Gr??en, Andy G.

Zeile & Buchstabe lesen	554	Lukas13	25.10.06 19:30
Re: Zeile & Buchstabe lesen	336	AndyOG	25.10.06 20:48

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