|
| Autor |
Nachricht |
clx
Newbie
Anmeldedatum: 22.05.2008
Beiträge: 4
|
Textdatei in Textbox laden?
Verfasst am: 07.07.2008, 13:07 |
|
|
Guten Tag vb-x`ler,
Wisst ihr wie ich eine Textdatei in eine Textbox lade? Könnt mir jmd nen Snippet geben oder so? Wäre sehr freundlich...
mfg cLx |
|
| |
|
 |
Jings
Poster
Anmeldedatum: 02.05.2008
Beiträge: 123
|
|
| |
|
|
RedShark
Poster
Anmeldedatum: 01.07.2008
Beiträge: 145
|
Snippet
Verfasst am: 07.07.2008, 16:15 |
|
|
So...
Visual Basic: [code]Dim strText As String
Open "C:Text.txt" For Binary As #1
strText = Space(LOF(1))
Get #1, , strText
Text1.Text = strText
Close #1[/code] |
|
| |
|
|
Oberxil
Coder
Anmeldedatum: 14.06.2008
Beiträge: 87
|
Verfasst am: 09.07.2008, 13:13 |
|
|
Hm bei deim snipped sind am anfang immer so viele Leerzeichen,wie bekomm ich die weg?
Und in dem Vid wird nicht gezeigt wie man ein File mit mehreren Zeilen einliest |
|
| |
|
|
Jings
Poster
Anmeldedatum: 02.05.2008
Beiträge: 123
|
Verfasst am: 09.07.2008, 15:21 |
|
|
Visual Basic: [code]
Dim inhalt As String
Open "c:/test.txt" For Input As #1
Do Until EOF(1)
Input #1, inhalt
Text1.Text = Text1.Text & " " & inhalt '& vbCrLf
Loop
Close #1[/code]
Also hiermit kann ich Problemlos Mehrzeilige Textdateien auslesen. |
|
| |
|
|
Slay2oo7
Tutorial Leser
Anmeldedatum: 02.05.2008
Beiträge: 27
|
Verfasst am: 19.07.2008, 21:46 |
|
|
Hey Jungs und Mädels...
wollt kein neuen thread aufmachen, aber meine textdatei ist 8 mb groß, aber sie wird nie ganz angezeigt!!... normal klappt es immer, nur irgentwie will mich die ide ärgern... habs mir jings vorschlag probiert, und mit redsharks auch, nur bei redsharks wird ganix angezeigt  ... büdde helft mia... 
Mfg
Slay2oo7 |
|
| |
|
|
RedShark
Poster
Anmeldedatum: 01.07.2008
Beiträge: 145
|
Verfasst am: 19.07.2008, 22:05 |
|
|
das liegt daran, dass ein String nur 8 Kb gross sein kann!!!
du musst die textdatei in Blöcken auslesen
Visual Basic: [code] Dim curbyte As Long, dFileSize As Long, bBuffer As String, sPacketSize As Long, ff As Long, PrevPackSize As Long
ff = FreeFile
curbyte = 0
dFileSize = FileLen("DEINE DATEI")
sPacketSize = 4049
Open "DEINE DATEI" For Binary Access Read As #ff
Do Until (dFileSize - curbyte) < sPacketSize
bBuffer = Space(sPacketSize)
Get #ff, curbyte + 1, bBuffer
Text1.Text = Text1.Text & bBuffer
curbyte = curbyte + sPacketSize
bBuffer = ""
DoEvents
Loop
DoEvents
PrevPackSize = dFileSize - curbyte
bBuffer = Space(PrevPackSize)
Get #ff, curbyte + 1, bBuffer
curbyte = curbyte + PrevPackSize
Text1.Text = Text1.Text & bBuffer
DoEvents
Close ff
[/code] |
|
| |
|
|
ZiG
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 421
|
Verfasst am: 20.07.2008, 10:28 |
|
|
(RedShark;5757) das liegt daran, dass ein String nur 8 Kb gross sein kann!!! |
| Code: | | String | 10 Bytes | Bis zu 2 Milliarden beliebige ASCII-Zeichen |
Das Limit liegt bei der Textbox. Diese stellt nur scheinbar nur 65535 Zeichen maximal dar.
Evt. ist das mit der RichTextbox oder einem anderen Control anders. |
|
| |
|
|
Slay2oo7
Tutorial Leser
Anmeldedatum: 02.05.2008
Beiträge: 27
|
Verfasst am: 20.07.2008, 13:34 |
|
|
| ne leider nicht -,- ... die textbox wird ja noch nicht mal voll, und bei redsharks tipp kommt was ganz anderes raus -,- ich kann alles machen, die datei wird immer nur bis zu einer stelle ausgelesen .... |
|
| |
|
|
bla
Coder
Anmeldedatum: 02.05.2008
Beiträge: 267
|
|
| |
|
|
ZiG
Überflieger
Anmeldedatum: 16.04.2008
Beiträge: 421
|
Verfasst am: 20.07.2008, 15:43 |
|
|
@Slay2oo7
Also ne Textdatei auf einmal in eine String Variable einzulesen stellt kein Problem dar.
Zum darstellen von größeren files ist wie gesagt die Textbox nicht ganz geeignet.
Visual Basic: [code]
Dim ff as Integer, sBuffer as string
ff = FreeFile
Open "Pfad zur Datei" for Binary as #ff
sBuffer = Space(LOF(ff))
Get #ff, , sBuffer
close #ff
[/code]
Die komplette Datei ist dann in der Variable sBuffer. |
|
| |
|
|
|
|
Registrieren
Login
