Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Weitergabe RichText-Control (Laufzeitdateien???)
Autor: Prian0815
Datum: 10.01.05 11:32
Arbeite doch ganz einfach mit txt-files. Hier ein paar Tips dazu. ' TextStream-Objekt erstellen Dim oStream As TextStream Dim oFSO As New FileSystemObject Dim path As String Dim filename As String path = Application.CurrentProject.path ' Neue Textdatei erstellen. Falls vorhanden überschreiben! Set oStream = oFSO.CreateTextFile(filename, True) oStream.Close Set oStream = Nothing Set oStream = oFSO.OpenTextFile(filename, ForAppending) oStream.WriteLine Text oStream.Close Err_cmdGetInfo_DblClick: MsgBox Err.Description & Err.Number Resume Exit_cmdGetInfo_dblClick Exit_cmdGetInfo_dblClick: Exit Sub End Sub Ganzen Text einlesen strLine = Input(LOF(1),1) strHeader = Left(strLine, InStr(strLine, vbCrLf)) strValue = Mid(strLine, Len(strHeader), Len(strLine) Und noch eine möglichkeit Dim Text As String Nr = FreeFile Open "C:\DeineDatei" For Binary As #Nr Text = Space(LOF(Nr)) Get #Nr, , Text Close #Nr Und noch eine Line Input #1, sLine hUeberschrift = sLine hUeberschrift = RTrim(hUeberschrift) hUeberschrift = LTrim(hUeberschrift) Do While Not EOF(1) Line Input #1, sText hText = hText & sText Loop Close #1 So, das sollte fürs erste mal reichen. Gruß Armin P.S.: always look on the bright side of Life!

Weitergabe RichText-Control (Laufzeitdateien???)	775	ARTsoft	10.01.05 09:59
Re: Weitergabe RichText-Control (Laufzeitdateien???)	460	Prian0815	10.01.05 11:32
Re: Weitergabe RichText-Control (Laufzeitdateien???)	465	ARTsoft	10.01.05 11:42
Re: Weitergabe RichText-Control (Laufzeitdateien???)	464	Prian0815	10.01.05 13:31
Re: Weitergabe RichText-Control (Laufzeitdateien???)	440	ARTsoft	10.01.05 11:44

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