تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية القراءة والكتابة إلى INI File
#1
كاتب الموضوع : AhmedEssawy

الكود منقول ومشروح في المنتصف :
http://www.vbexplorer.com/VBExplorer...ode/vbs_fd.asp


كود :
Function ReadWriteINI(Mode As String, tmpSecname As String, tmpKeyname As
String, Optional tmpKeyValue) As String
Dim tmpString As String
On Error GoTo ReadWriteINIError
'
'******************************************************************
' Mode = "WRITE" or "GET"
'
'******************************************************************
'Here are the declare functions
'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
'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


' *** set the return value to OK
ReadWriteINI = "OK"

' *** test for good data to work with
If IsNull(Mode) Or Len(Mode) = 0 Then
ReadWriteINI = "ERROR MODE" ' Set the return value
Exit Function
End If

If IsNull(tmpSecname) Or Len(tmpSecname) = 0 Then
ReadWriteINI = "ERROR Secname" ' Set the return value
Exit Function
End If

If IsNull(tmpKeyname) Or Len(tmpKeyname) = 0 Then
ReadWriteINI = "ERROR Keyname" ' Set the return value
Exit Function
End If

' *** set the ini file name
filename = "C:\Vbasic\Test\WinPlace.ini" ' <<<<< put your file name here ' ' ' ******* WRITE MODE ************************************* If UCase(Mode)="WRITE" Then If IsNull(tmpKeyValue) Or Len(tmpKeyValue)="0" Then ReadWriteINI="ERROR KeyValue" Exit Function Else secname="tmpSecname" keyname="tmpKeyname" keyvalue="tmpKeyValue" anInt="WritePrivateProfileString(secname," keyname, keyvalue, filename) End If End If ' ******************************************************* ' ' ******* GET MODE ************************************* If UCase(Mode)="GET" Then secname="tmpSecname" keyname="tmpKeyname" defaultkey="Failed" keyvalue="String$(50," 32) anInt="GetPrivateProfileString(secname," keyname, defaultkey, keyvalue, Len(keyvalue), filename) If Left(keyvalue, 6) <> "Failed" Then ' *** got it
tmpString = keyvalue
tmpString = RTrim(tmpString)
tmpString = Left(tmpString, Len(tmpString) - 1)
End If
ReadWriteINI = tmpString
End If
Exit Function

' *******
ReadWriteINIError:
MsgBox Error
Stop
End Function
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية وضع كلمة كخلفية للفورم RaggiTech 0 404 17-10-12, 12:54 AM
آخر رد: RaggiTech
  كيفية قلب الشاشة من خلال الكود RaggiTech 0 547 17-10-12, 12:53 AM
آخر رد: RaggiTech
  كيفية عمل مسج بوكس تظهر لمدة ثم تختفي RaggiTech 0 623 17-10-12, 12:53 AM
آخر رد: RaggiTech
  كيفية رسم هرم RaggiTech 0 631 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية تشغيل فيديو باستخدام Api ومكتبة Mmsystem.dll RaggiTech 0 375 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية تحويل المشروع إلى exe من خلال الكود RaggiTech 0 663 17-10-12, 12:52 AM
آخر رد: RaggiTech
  كيفية القيام باغلاق ال forms المختلفة RaggiTech 0 340 17-10-12, 12:51 AM
آخر رد: RaggiTech
  كيفية اغلاق أي برنامج من خلال الفيجوال بيسك RaggiTech 0 1,003 17-10-12, 12:51 AM
آخر رد: RaggiTech
  كيفية اطفاء الشاشة وتشغيلها RaggiTech 0 366 17-10-12, 12:50 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم