Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: string schnell kopieren
Autor: G.Lapp
Datum: 24.07.04 22:15
Extrem schnell ist auch, also über den Umweg über ein ASC file. Das ist intern sehr gut gepuffert. ' Erzeuge asc-FILE Private Sub Command1_Click() Dim str As String Dim i As Long Open App.Path & "\test.txt" For Output As 1 For i = 0 To 1000000 Print #1, i & ": 01234567890abcdefghijklmnopqrstuvwxsyz" Next i Close 1 End Sub ' lese asc-FILE ab einem Punkt Private Sub Command2_Click() Dim str As String str = Space(10000000) Open App.Path & "\test.txt" For Binary As 1 Seek #1, 10000 Get #1, , str Close 1 End Sub

string schnell kopieren	743	Stephan Hollaus	23.07.04 18:02
Re: string schnell kopieren	471	Michael17	23.07.04 18:35
Re: string schnell kopieren	446	JennyB	23.07.04 19:53
Re: string schnell kopieren	434	Stephan Hollaus	23.07.04 20:32
Re: string schnell kopieren	403	JennyB	23.07.04 23:03
Re: string schnell kopieren	428	Stephan Hollaus	24.07.04 07:54
Re: string schnell kopieren	448	Michael17	24.07.04 12:18
Re: string schnell kopieren	447	G.Lapp	24.07.04 22:15
Re: string schnell kopieren	445	FrankG	24.07.04 12:47

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