Text'ten Ini Okurmuş Gibi Okuma..

[0sk1]

Merhaba arkadaşlar mesela ini dosyalarının içeriği şudur ya:

[T1]

Ad="Ali"

Soyad="ASD"

[T2]

...

...

Şimdi bunu direk text içinde nasıl okuruz??

Text box u iniymiş gibi görüp nasıl okurum??

[SecondLife]

Sorunu Birazdaha açık yaz böyle bir sorunun binlerce cevabı olur.

Hangi Programlama Dilini kullanıcaksın ?

[Lifeless]

Bildiğim kadarıyla Osk1 VB ile ilgileniyor.

[0sk1]

evet VB 6

[0sk1]

arkadaşlar acil lazım bulabilen var mı yapmak istediğim şu mesela winsock client i server a şunu gönderse

[KullanıcıGiris]

ID="0sk1"

Sifre="123456"

mesela bunu sunucu textbox a yazıcak ve bundan verileri okuyacak işte devamı Sql zaten..

[MostWanted]

ben Vb bilmiyorum Autoit Biliyorum ama bunu ini gibi okutturacaksam şölye yapardım..

IniRead("tnctr.txt", "KullanıcıGiris", "ID", "")[/CODE]

Yani illaki tnctr.ini olmasına gerek yok.Bu da olmazsa uzantısını değiştir ini yap öyle okuttur.Zor bişey değil..

[morning]

tempte geçici bir ini dosyası oluşturup TextBox içeriğini oraya aktararak yaparsın

[0sk1]

ben aslında baslarda öyle düşündümde başka türlü olmaz mı :?

[mustafa_x]

ben aslında baslarda öyle düşündümde başka türlü olmaz mı :?

Elinde VB6'da kullanılabilcek bi .ini okutucusu yoksa şunu bi modül içine kopyalayıp dene:

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
(ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal _
lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal _
lplFileName As String) As Long

Dim DosyaYolu As String

Public Function IniOku(Bolum As String, Anahtar As String, Default As String) As String
Dim strIniBuffer As String * 255
Dim lRetLen As Long
lRetLen = GetPrivateProfileString(Bolum, Anahtar, Default, strIniBuffer, 255, DosyaYolu)
If lRetLen > 0 Then IniOku = Left$(strIniBuffer, lRetLen)
End Function

Public Sub IniYaz(Bolum As String, Anahtar As String, Deger As String)
Dim lTmp As Long
lTmp = WritePrivateProfileString(Bolum, Anahtar, Deger, DosyaYolu)
End Sub

'Kullanım örneği:
'Private Sub Command1_Click()
'DosyaYolu = App.Path & "\deneme.ini"
'IniYaz AnahtarAdı, DeğerAdı, Değerİçeriği
'Değişken = IniOku(AnahtarAdı, DeğerAdı, VarsayılanDeğer)
'End Sub

Kendi hazırladığım uygulamalarda sorunsuz çalışıyo. (Hatta VB6 haricinde C#'ta da çalışıyo.)

Dosya uzantısına dikkat edip etmediğini bilmiyorum ama sanırım dikkat etmiyo. Olmazsa dosya uzantısını değiştirip öyle dene.