• Home
 · 
• Files/File Controls/Input/Output
 · 
• Load a file with commas and everything.

Load a file with commas and everything.

Load a file with commas and everything.

Rate Load a file with commas and everything.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

 Dim FreeF As Integer
 Dim LocData() As Byte
 Dim LenData As Long
 Dim sendloop As Long
 Dim fD As String
 
 Const Chunk = 8192

 FreeF = FreeFile
 
 Open FileName For Binary As #FreeF
  
  ReDim LocData(1 To Chunk) As Byte
  LenData = FileLen(FileName)

  For sendloop = 1 To LenData \ Chunk
   Get #FreeF, , LocData
   fD = fD & MakeStr(LocData)
  Next

  If LenData Mod Chunk <> 0 Then
   ReDim LocData(1 To LenData Mod Chunk) As Byte
   Get #FreeF, , LocData
   fD = fD & MakeStr(LocData)
  End If
 
 Close #FreeF
 
 LoadFile = fD

End Function

Function MakeStr(b)
 Dim t As String
 For x = LBound(b) To UBound(b)
  t = t & Chr(b(x))
 Next
 MakeStr = t
End Function