Problem with FileSystemObject

[xor83]

I am using this code to read data from INI file this works almost all the time perfectly but some time it unable to read all the data but return only some part of the file. And if i change tStream.ReadAll to tStream.Read(lenoffile) it works fine. Just wanted to know why readall not working

my file sometimes contains special chracters

Dim objFile         As FileSystemObject
Dim strData         As String
Dim tStream         As TextStream
  
On Error GoTo ErrHandler

   Set objFile = New FileSystemObject
   Set tStream = objFile.OpenTextFile(App.Path & "file.ini", ForReading)
   
   strData = tStream.ReadAll

[westconn1]

if a file contains ctrl Z ( chr(26) ) it will be seen as end of file marker

[xor83]

so how code works with tStream.Read. how can i fix this with tStream.Readall?

[Hack]

my file sometimes contains special chracters

What kind of special charcters?

Unicode?

[xor83]

not exactly special characters they look like junk values can't even paste on forum

[westconn1]

paste into text file then post textfile, even if they are not visible, they will still be there

[IniX]

   Set tStream = objFile.OpenTextFile(App.Path & "\file.ini", ForReading)

You need to put a \ after App.Path.

[Keithuk]

   Set tStream = objFile.OpenTextFile(App.Path & "\file.ini", ForReading)

You need to put a \ after App.Path.

I noticed that IniX.

xor83 why can't you use the normal API calls for reading and writing to an ini file, its going to be a lot simpler?

GetPrivateProfileString and WritePrivateProfileString.

[xor83]

"App.Path & "\file.ini""

there is no problem in getting file path... it able to read file and file is not big in size it's just 6KB

[westconn1]

if you post the file that has the problem someone may be able to tell you what the problem is, as it would appear the fault is in the file

[Keithuk]

"App.Path & "\file.ini""

there is no problem in getting file path... it able to read file and file is not big in size it's just 6KB

So what problem are you having now?

Are you using GetPrivateProfileString and WritePrivateProfileString?

[xor83]

I have found that when file have ASCII char 28 and 31 it unable to read the file

31=unit seperator
28=File separator

[Keithuk]

I have found that when file have ASCII char 28 and 31 it unable to read the file

But are you using GetPrivateProfileString and WritePrivateProfileString? You haven't said yet.

[xor83]

yes i am using WritePrivateProfileString... what is this ?

[Keithuk]

yes i am using WritePrivateProfileString... what is this ?

If you don't know what WritePrivateProfileString is then how are you using it?

Public Declare Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, ByVal lpString As Any, _
ByVal lpFileName As String) As Long

lpApplicationName is the Section name.
lpKeyName is the Key name.
lpString is the value being written.
lpFileName is the ini file name with location.

e.g.

Call WritePrivateProfileString("General", "Main Width", CStr(Me.Width), App.Path & "\Your.ini")