Textboxların İçeriğini *.ini Dosyasına Kaydetmek !!

Celebrian · #1 24-12-2007, 12:41

Textboxların İçeriğini *.ini Dosyasına Kaydetmek !!
'Selam
'1 Tane Projenizin Yüklü Olduğu yere Notepadı Açarak Fatih.ini Yazı Dosyası Oluşturun
'2 Tane Projeye Modül Ekleyin
'Ana Forma 3 aDET tEXTBOX 1 Adette Buton Ekleyin
'Gelelim Koda
'Butonun Click Olayına Aşşağıdaki Kodu Girin
Private Sub Command1_Click()
WriteIniValue App.Path & "\Fatih.ini", "Default", "Text1", Text1.Text
WriteIniValue App.Path & "\Fatih.ini", "Default", "Text2", Text2.Text
WriteIniValue App.Path & "\Fatih.ini", "Default", "Text3", Text3.Text
Unload Me
End Sub

'Formun Load Olayına Aşşağıdaki Kodu Girin

Private Sub Form_Load()
Text1.Text = ReadIniValue(App.Path & "\Fatih.ini", "Default", "Text1")
Text2.Text = ReadIniValue(App.Path & "\Fatih.ini", "Default", "Text2")
Text3.Text = ReadIniValue(App.Path & "\Fatih.ini", "Default", "Text3")
Me.Caption = "Hazırlayan:Fatih Avcı"

End Sub

'Formun QueryUnload Olayınada Aşşağıdaki Kodu Girin

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then Cancel = 1
End Sub

'Şimdi Modüllere Gelek Gayri
'ilk Modüle Aşşağıdaki Kodu Girin

Option Explicit

Public Function WriteIniValue(INIpath As String, PutKey As String, PutVariable As String, PutValue As String)
Dim Temp As String
Dim LcaseTemp As String
Dim ReadKey As String
Dim ReadVariable As String
Dim LOKEY As Integer
Dim HIKEY As Integer
Dim KEYLEN As Integer
Dim VAR As Integer
Dim VARENDOFLINE As Integer
Dim NF As Integer
Dim X As Integer

AssignVariables:
NF = FreeFile
ReadKey = vbCrLf & "[" & LCase$(PutKey) & "]" & Chr$(13)
KEYLEN = Len(ReadKey)
ReadVariable = Chr$(10) & LCase$(PutVariable) & "="

EnsureFileExists:
Open INIpath For Binary As NF
Close NF
SetAttr INIpath, vbArchive

LoadFile:
Open INIpath For Input As NF
Temp = Input$(LOF(NF), NF)
Temp = vbCrLf & Temp & "[]"
Close NF
LcaseTemp = LCase$(Temp)

LogicMenu:
LOKEY = InStr(LcaseTemp, ReadKey)
If LOKEY = 0 Then GoTo AddKey:
HIKEY = InStr(LOKEY + KEYLEN, LcaseTemp, "[")
VAR = InStr(LOKEY, LcaseTemp, ReadVariable)
If VAR > HIKEY Or VAR < LOKEY Then GoTo AddVariable:
GoTo RenewVariable:

AddKey:
Temp = Left$(Temp, Len(Temp) - 2)
Temp = Temp & vbCrLf & vbCrLf & "[" & PutKey & "]" & vbCrLf & PutVariable & "=" & PutValue
GoTo TrimFinalString:

AddVariable:
Temp = Left$(Temp, Len(Temp) - 2)
Temp = Left$(Temp, LOKEY + KEYLEN) & PutVariable & "=" & PutValue & vbCrLf & Mid$(Temp, LOKEY + KEYLEN + 1)
GoTo TrimFinalString:

RenewVariable:
Temp = Left$(Temp, Len(Temp) - 2)
VARENDOFLINE = InStr(VAR, Temp, Chr$(13))
Temp = Left$(Temp, VAR) & PutVariable & "=" & PutValue & Mid$(Temp, VARENDOFLINE)
GoTo TrimFinalString:

TrimFinalString:
Temp = Mid$(Temp, 2)
Do Until InStr(Temp, vbCrLf & vbCrLf & vbCrLf) = 0
Temp = Replace(Temp, vbCrLf & vbCrLf & vbCrLf, vbCrLf & vbCrLf)
Loop

Do Until Right$(Temp, 1) > Chr$(13)
Temp = Left$(Temp, Len(Temp) - 1)
Loop

Do Until Left$(Temp, 1) > Chr$(13)
Temp = Mid$(Temp, 2)
Loop

OutputAmendedINIFile:
Open INIpath For Output As NF
Print #NF, Temp
Close NF

End Function

'ikinci Modüle Aşşağıdaki Kodu Girin

Option Explicit

Public Function ReadIniValue(INIpath As String, KEY As String, Variable As String) As String
Dim NF As Integer
Dim Temp As String
Dim LcaseTemp As String
Dim ReadyToRead As Boolean

AssignVariables:
NF = FreeFile
ReadIniValue = ""
KEY = "[" & LCase$(KEY) & "]"
Variable = LCase$(Variable)

EnsureFileExists:
Open INIpath For Binary As NF
Close NF
SetAttr INIpath, vbArchive

LoadFile:
Open INIpath For Input As NF
While Not EOF(NF)
Line Input #NF, Temp
LcaseTemp = LCase$(Temp)
If InStr(LcaseTemp, "[") <> 0 Then ReadyToRead = False
If LcaseTemp = KEY Then ReadyToRead = True
If InStr(LcaseTemp, "[") = 0 And ReadyToRead = True Then
If InStr(LcaseTemp, Variable & "=") = 1 Then
ReadIniValue = Mid$(Temp, 1 + Len(Variable & "="))
Close NF: Exit Function
End If
End If
Wend
Close NF
End Function

Benzer Konular
Konu	Konu Açanlar	Forum	Cevaplar	Güncel Mesajlar
Yasak mı? İçeriğini komple aynaladığım siteye adsense döşesem?	banias	Google Adsense	3	21-06-2008 06:53
Flexgrid İçeriğini Excel’ e Aktarmak	B737	Visual Basic & Action script	0	24-01-2008 02:29
Youtubedeki Videoları Kaydetmek	kadınca	Network-internet	0	21-12-2007 02:13
C++ da*.txt(Not Defterine) Dosyasına Kayıt Yapma	agah	C, c++, c#	0	07-10-2007 01:48
C++ da*.txt(Not Defterine) Dosyasına Kayıt Yapma	agah	C, c++, c#	0	07-10-2007 12:49

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder