....put in memory as a string or an array of
bytes) everything from the file but the
VbCRLF's?
thank you
------------------
Aaron Young
Jan 26th, 2000, 02:37 AM
Private Sub cmdLoad_Click()
Dim iFile As Integer
Dim lChunk As Long
Dim lFileLen As Long
Dim sChunk As String
Dim sData As String
iFile = FreeFile
Open "C:\TheFile.txt" For Binary Access Read As iFile
lFileLen = LOF(iFile)
lChunk = 64000
While Loc(iFile) < lFileLen
If lChunk + Loc(iFile) > lFileLen Then lChunk = lFileLen - Loc(iFile)
sChunk = Space(lChunk)
Get #iFile, , sChunk
sData = sData & sChunk
Wend
sData = Replace(sData, vbCrLf, "")
Close iFile
End Sub
------------------
Aaron Young
Analyst Programmer
aarony@redwingsoftware.com
ajyoung@pressenter.com