Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Text wird im sevtext nicht angezeigt.
Autor: Brauner
Datum: 10.05.10 15:21
Hallo Dieter, hier der Code, ich komme da nicht weiter. ' ****** Erste Hops Datei öffnen ****** Private Sub cmdOpen_Click() ' wird im "CommonDialog" auf "Abbrechen" geklickt, ' wird (wenn CancelError = True ist) ein Laufzeitfehler ausgelöst. On Error GoTo errhandler Dim F As Integer Dim i As Integer Dim AllText As String Dim LineOfText As String On Error Resume Next With CommonDialog1 sevText2.Text = "" .CancelError = True .Filter = "hops5-dateien (*.hop)|*.hop" .ShowOpen F = FreeFile Open .Filename For Input As #F 'Zeilen aus Textdatei einlesen und in Variable AllText speichern Do Until EOF(F) Line Input #F, LineOfText If FileLen(.Filename) > 32767 Then MsgBox " Datei" & .Filename & "zu groß für Textbox." Exit Sub End If 'Zeilen aus Textdatei einlesen und in Variable AllText speichern AllText = AllText & LineOfText & vbCrLf Loop Print #F, AllText Close #F 'Inhalt der Variable AllText im Textfeld ausgeben Dim strLines() As String 'Array 'Kompletter Inhalt aus der Textdatei strLines = Split(AllText, vbCrLf) For i = 0 To UBound(strLines) sevText2.Text = sevText2.Text & vbCrLf & strLines(i) Next i zeilenopenlines .filename, sevtext2 ,20,21,22 End With If sevText2.Text <> "" Then cmdOpen.Visible = False Command1.Enabled = True Command1.Visible = True End If errhandler: Exit Sub End Sub

Text wird im sevtext nicht angezeigt.	1.098	Brauner	09.05.10 09:21
Re: Text wird im sevtext nicht angezeigt.	730	Dieter	10.05.10 06:20
Re: Text wird im sevtext nicht angezeigt.	708	Brauner	10.05.10 09:17
Re: Text wird im sevtext nicht angezeigt.	685	Dieter	10.05.10 09:22
Re: Text wird im sevtext nicht angezeigt.	693	Brauner	10.05.10 09:52
Re: Text wird im sevtext nicht angezeigt.	670	Brauner	10.05.10 15:21
Re: Text wird im sevtext nicht angezeigt.	916	Brauner	10.05.10 15:22
Re: Text wird im sevtext nicht angezeigt.	697	Dieter	10.05.10 15:29
Re: Text wird im sevtext nicht angezeigt.	695	Brauner	10.05.10 20:47
Re: Text wird im sevtext nicht angezeigt.	698	Dieter	11.05.10 06:16

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