Har hittat lite koder på nätet men jag får inte i hop det.

Dim mymail As String ' receives the value read from the INI file
Dim slength As Long ' receives length of the returned string
mymail = Space(255) ' provide enough room for the function to put the value into the buffer
' Read from the INI file
slength = GetPrivateProfileString(Text1.Text, "lånat", Text3.Text, mymail, 255, "c:\lånat.ini")
mymail = Left(mymail, slength) ' extract the returned string from the buffer
If mymail <> "-1" Then
MsgBox "har lånat " & mymail
Else
MsgBox "Data not found"
End If
End

skulle vilja ha värdet i text3.text istället för i en msgbox. hur göra?? +
att jag skulle vilja ha alla dom värdena som står innanför [] i en combobox. hur göra det??

För att få din text i text3 istf MsgBox så gör du:
text3.text = "har lånat " & mymail

För att få text ifrån en combobox - kan du se filmerna
som finns i artiklar/vb

/Pelle

Hej
Ett sådant här trix skulle man kunna göra.

Dim FileNum As Long, cboString As String
FileNum = FreeFile
Combo1.Visible = False
Open "C:\Windows\Win.ini" For Input As FileNum
Do Until EOF(FileNum)
Line Input #FileNum, cboString
Combo1.AddItem cboString
Loop
Close #FileNum
Combo1.Visible = True
Combo1.Text = Combo1.List(0)

mvh
Sven

Tackar så mycket för svaren, nu återstår bara lite knåpande så man får ihop allt.
mvh Jocke

Lite defus fråga i början. När jag skrev att jag skulle vilja ha värdena som är innan för [] så är det det värdet som kommer från text1.text som jag skulle vilja ha innanför [] inte dom andra från text 2 & 3

Dim retval As Long ' return value
' Set the string value.
retval = WritePrivateProfileString("Lånare", Text1.Text, Text1.Text, "c:\lånat.ini")
'
' Set the string value.
retval = WritePrivateProfileString(Text1.Text, Text3.Text, Text3.Text, "c:\lånat.ini")
' Set the numeric value.

End
End
Så här ser koden ut som jag har när jag sparar. hur får jag då upp alla från text1.text till en combobox??

Hej
Oki så här skulle jag göra i princip.Om du vill filtrera bort
hakparantesen så får du använda Left$ Len functionerna.

Dim FileNum As Long, cboString As String

FileNum = FreeFile
Combo1.Visible = False
Open "C:\Windows\Win.ini" For Input As FileNum
Do Until EOF(FileNum)
Line Input #FileNum, cboString
If Left$(cboString, 1) = Chr$(91) Then _
Combo1.AddItem cboString
Loop
Close #FileNum
Combo1.Visible = True
Combo1.Text = Combo1.List(0)

mvh
Sven