البرنامج يقرأ السطر المحدد من ملف نصي
ويمكن أن يتم الكتابة إلى سطر محدد أيضاً في الملف النصي .. ولكن المشكلة أن البرنامج يضع علامات اقتباس "" أول الملف النصي وآخر الملف في كل مرة تقوم بعملية التعديل !!
كيف يمكن إيقاف وضع علامات الاقتباس ""
إليكم الكود
Public Function readLine(ByRef strFilePath As String, ByRef nLine _ As Integer) As String Dim FileNum As Integer Dim str() As String FileNum = FreeFile Open strFilePath For Input As FileNum str = Split(Input$(LOF(FileNum), FileNum), vbCrLf) readLine = str(nLine) Close End Function Private Sub Command1_Click() Text1.Text = readLine(App.Path & "\test.txt", 3) End Sub Private Sub Command2_Click() WriteLine App.Path & "\test.txt", 3 End Sub Public Sub WriteLine(ByRef strFilePath As String, ByRef nLine _ As Integer) Dim FileNum As Integer Dim str() As String FileNum = FreeFile Open strFilePath For Input As FileNum str = Split(Input$(LOF(FileNum), FileNum), vbCrLf) Close str(nLine) = Text1 FileNum = FreeFile Open strFilePath For Output As FileNum Write #FileNum, Join(str, vbCrLf) Close End Sub
