Printable View
1.) When displaying text from a text file in a text box, is there a way to display it all just how it is, without knowing if there are any commas or line breaks? I have been using the "Open file$ for Input as" method, but If I don't know how many lines there are, or if there are commas, then I have a high chance of getting the past end of input error.
2.) If there is a folder full of text files, is there any way to open a random one without knowing the name of the file?
Thanks in advance
1) How are you getting past the end of file? Aren't you using the While Not EOF(filenum) syntax?
2) If you use the FileSystemObject, the Folder object has a Files collection - pass it a random number between 1 and the Folder.Files.Count value to open a random file.
have fun,
john
John Pirkey
MCSD
http://www.ShallowWaterSystems.com
http://www.stlvbug.org
1)
Open file$ For Input As #x
Do Until EOF(x)
'Your reading in code here.
Loop
Close #x
Note: Might consider using Line Input #x instead of just Input #x depending on the situation.
2) Place a FileList control on your page. Make it invisible. Change the FileList.Path to whatever the path is. Select a random number from 0 to the .ListCount-1 {RandomFile = int(rnd*(FileList.ListCount-1))}. Your random file name is FileList.List(RandomFile).
refer http://vblib.virtualave.net
1.) ReadFileText in vbFileIO which read a file into string array and return the no. of line for the file.
2) GetAllFileName in vbFileIO return all filename in a folder and return the no of files in that folder, then you can just use the VB function Randomize & Rnd
HTH
The following routine willread a text file into a text box leaving all commas, line feeds, Carriage returns, etc intact.
' Read a file into a TEXT box using binary read
' this reduces the exposure of VB editing double quote marks and
' commas out of the text
private Sub Command1_Click()
Dim a
a = "C:\to DO LIST\1.txt"
Open a for binary as #1
Text1.Text = input(FileLen(a), #1)
Close
End Sub
John G