You are not logged in.

IsoCAM

Beginner

  • "IsoCAM" started this thread

Posts: 2

Date of registration: Jun 19th 2011

  • Send private message

1

Monday, June 20th 2011, 1:47pm

Reading Text Files

Does anybody know how to read a text file (.txt) and display it in a scrollable textbox?

I have various text files (250-500 lines long) that I want to open and display in textbox.

Many thanks in advance!!!

Dani

Intermediate

Posts: 325

Date of registration: Nov 19th 2009

Location: GERMANY

  • Send private message

2

Tuesday, June 21st 2011, 6:20pm

Hey there,
I did not test it but something like this might work:

Jabaco Source

 
1
2
3
4
5
6
7
8

' read a file
Dim inputStream As New java#io#BufferedReader(New java#io#FileReader("c:\file.txt"))
Dim tmp() As String, i As Integer 
tmp() = Split(cStr(inputStream),";")
For i=0 To UBound(tmp())
List1.AddItem tmp(i)
Next i
Call inputStream.close()


I remember reading something like this posted in this forum.
Also there is quite a bit source code, e.g.:
Reading and writing binary data


Have fun,

Dani
latest Jabaco.jar:
Jabaco.jar on bitbucket since other links are down !!
Jabaco Framework source:
https://code.google.com/p/jabacoframework/source/list

Dani

Intermediate

Posts: 325

Date of registration: Nov 19th 2009

Location: GERMANY

  • Send private message

3

Tuesday, June 21st 2011, 7:01pm

oh I forgot...
Of course you will have to specify some kind of delimiter for your files
(";" in the above example) - vbcrlf for line end.
latest Jabaco.jar:
Jabaco.jar on bitbucket since other links are down !!
Jabaco Framework source:
https://code.google.com/p/jabacoframework/source/list

dilettante

Beginner

Posts: 8

Date of registration: Jan 28th 2011

  • Send private message

4

Saturday, June 25th 2011, 3:49am

Create a TextBox with MultiLine = True and scrollbars enabled. Then it can be as easy as:

Jabaco Source

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14

Option Explicit
Public Sub Form_Load()
   Dim F As VBFileHandler
   Dim T As String
   
   Set F = FileSystem.Open("test.txt")
   Text1.Text = F.readAll()
   F.close
End Sub
Public Sub Form_Resize()
   If WindowState <> vbMinimized Then
      Text1.Move 0, 0, ScaleWidth, ScaleHeight
   End If
End Sub

Similar threads

Rate this thread
WoltLab Burning Board