text file to msflexgrid

[junlo]

i have data in the text file. i want to put the data in msflexgrid in three columns. how to write the code to do that?

[nf_vb]

try this little example:

Private fso As New FileSystemObject
Private strName As String

Private Sub readfile()

strName = "C:\Output.txt"
On Error GoTo a
With fso
Set strm = .OpenTextFile(strName, ForReading)
With strm
Do Until .AtEndOfStream
For i = 0 To MSFlexGrid1.Rows
For k = 0 To MSFlexGrid1.Cols
MSFlexGrid1.TextMatrix(i, k) = MSFlexGrid1.TextMatrix(i, k) & .ReadLine
Next k
Next i
Loop
End With
End With
Exit Sub
a:
Exit sub
End Sub

Private Sub Command1_Click()
readfile
End Sub

[junlo]

try this little example

Private fso As New FileSystemObject
Private strName As String

Private Sub readfile()

strName = "C:\Output.txt"
On Error GoTo a
With fso
Set strm = .OpenTextFile(strName, ForReading)
With strm
Do Until .AtEndOfStream
For i = 0 To MSFlexGrid1.Rows
For k = 0 To MSFlexGrid1.Cols
MSFlexGrid1.TextMatrix(i, k) = MSFlexGrid1.TextMatrix(i, k) & .ReadLine
Next k
Next i
Loop
End With
End With
Exit Sub
a:
Exit sub
End Sub

Private Sub Command1_Click()
readfile
End Sub

i have try the code, but it came out an error "compile error: user defined type not defined" and point to the code (Private fso As New FileSystemObject)

[nf_vb]

add to vb6 references microsoft scriptting runtime

and create a module with this code

Public Const MAX_PATH = 260

Type FILETIME ' 8 Bytes
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Type WIN32_FIND_DATA ' 318 Bytes
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved_ As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Public Declare Function FindFirstFile& Lib "kernel32" _
Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData _
As WIN32_FIND_DATA)

Public Declare Function FindClose Lib "kernel32" _
(ByVal hFindFile As Long) As Long

Function FileFound(strFileName As String) As Boolean
Dim lpFindFileData As WIN32_FIND_DATA
Dim hFindFirst As Long
hFindFirst = FindFirstFile(strFileName, lpFindFileData)

If hFindFirst > 0 Then
FindClose hFindFirst
FileFound = True
Else
FileFound = False
End If
End Function

[junlo]

what function of microsoft scriptting runtime ??????

[Hack]

what function of microsoft scriptting runtime ??????

Not a function, a reference.

From your IDE, click Project/References

Locate the Microsoft Scripting Runtime Library
Check the box next to it
Click Ok

[nf_vb]

you need to add

microsoft scripting runtime

is in the list

you need that to use file functions