Problems with GetPrivateProfileString

[FrancisC]

I have found here tons of examples to use this API function. However, I am still having trouble using it.

It works fine when placing the returned data in a TextBox but I need to place it in a String variable and I get funky characters after the useful data I am looking for...

Here is my code:

Public Function GetBarcode() As String
Dim lRetVal As Long
Dim sTemp As String * 50

m_strFullName = "c:\temp\MyFile.ini"
lRetVal = GetPrivateProfileString("Fiber Data", "ID", "", sTemp, Len(sTemp), m_strFullName)

If lRetVal = 0 Then
    GetBarcode = ""
Else
    GetBarcode = UCase(Trim(sTemp))
End If

End Function

Any ideas ? I'm lost...

Thanks !

Try this:

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Public Function readini(strsection As String, strkey As String, strfullpath As String) As String
   Dim strbuffer As String
   Let strbuffer$ = String$(750, Chr$(0&))
   Let readini$ = Left$(strbuffer$, GetPrivateProfileString(strsection$, ByVal LCase$(strkey$), "", strbuffer, Len(strbuffer), strfullpath$))
End Function

Public Function GetBarcode() As String
Dim lRetVal As Long
Dim sTemp As String * 50

m_strFullName = "c:\temp\MyFile.ini"
lRetVal = Readini("Fiber Data", "ID", m_strFullName)

If lRetVal = 0 Then
    GetBarcode = ""
Else
    GetBarcode = UCase(Trim(sTemp))
End If

End Function

Not sure what your exactly doing, but I hope you understand what I'm trying to show you.

[FrancisC]

Thanks a lot !

Really, the solution to my problem was much simpler, but you pointed me to it...

What I was missing is that the returned value from this API is the length of the string returned. I just need to use that in a 'Left' function, and it works...