هذا مثال لقراءة سطر معين من ملف نصي

مثال رائع

وحتى يتم القراءة من أي مكان من الجهاز بدلاً من محرك C نضيف السطر التالي:

	strFilePath = CurrentProject.Path & "\1.Txt"

فتصبح الوحدة النمطية العامة بالشكل التالي :

 

Public Function readLine(ByRef strFilePath As String, ByRef nLine As Integer) As String

	Dim NextLine As String
	Dim n As Integer
	FileNum = FreeFile
	strFilePath = CurrentProject.Path & "\1.Txt"
	MsgBox strFilePath

	Open strFilePath For Input As FileNum
	Do Until EOF(FileNum)
		Line Input #FileNum, NextLine
		n = n + 1
		If n = nLine Then readLine = NextLine
	Loop
Close
End Function

وكود الأزرار بالشكل التالي :

الزر الأول :

[Text1] = readLine("strFilePath", 1)

الزر الثاني :

[Text1] = readLine("strFilePath", 2)

السلام عليكم ورحمة الله

أخي مصلح الحريصي .. والله إنت الرائع بهذه الإضافة القيّمة

فشكرا لك وفقك الله