تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] الكتابة والقراءة من ملف Notepad
#1
السلام عليكم 
هل هناك طريقة للكتابة والقراءة من ملف notepad 
للعلم احتاج ان يقرأ ويكتب سطر معين وليكن السطر الخامس من 10 أسطر موجوده فى ملف notepad
شكرا
الرد }}}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله تعالى وبركاته
سأنسخ لك كود سورس المعمل في برنامج أكسيل
Private Sub CommandButton3_Click()
Dim qte As Double
Dim j, num As Integer
Dim p

p = "D:\Raports\MSJA\"
MakeSureDirectoryPathExists (p)

qte = 0
som = 0
On Error GoTo errd
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("D:\Raports\MSJA\RptArticlesmsj.txt", True)
a.writeline "=====Rapport DU: " & TextBox3.Value & " AU: " & TextBox4 & "==="
a.writeline "¦_______________________________________________________________________________¦"

For Each Sh In Worksheets
If Sh.Name <> "ãáÎÕ" Then
For j = 1 To 200
If IsDate(Sh.Cells(j, 1).Value) = True Then
If Sh.Cells(j, 1).Value >= CDate(TextBox3.Value) Then
If Sh.Cells(j, 1).Value <= CDate(TextBox4.Value) Then
If IsArticle(Sh.Cells(j, 2).Value) Then
num = num + 1
qte = qte + Sh.Cells(j, 3).Value
som = som + Sh.Cells(j, 3).Value * Sh.Cells(j, 4).Value
a.writeline num & " -->" & Trim(Sh.Cells(j, 1).Value) & "|" & Trim(Sh.Cells(j, 2).Value) & "|" & Trim(Sh.Cells(j, 3).Value) & "|" & Trim(Sh.Cells(j, 4).Value) & "|" & Trim(Sh.Name)
a.writeline "¦--------------------------------------------------------------------------------------------------------------------------------¦"
End If
End If
End If

End If

Next j
End If
Next Sh
a.writeline "*********************************************************************************************"
a.writeline " Rapport de tous clients :"
a.writeline " Période du: " & TextBox3 & " au: " & TextBox4
a.writeline "*********************La Quantité totale est: " & Format(qte, "#,###") & "**************"
a.writeline "*********************La somme totale est : " & Format(som, "#,###") & "*************"
a.writeline "**********************************************************************************************"
a.Close

Set fs = Nothing


Shell ("C:\WINDOWS\system32\notepad.exe D:\Raports\MSJA\RptArticlesmsj.txt"), vbMaximizedFocus
Exit Sub
errd:
err.Clear
MsgBox "ÇáÈíÇäÇÊ ÇáÊí ÃÏÎáÊåÇ ÛíÑ ÕÍíÍÉ¡ÍÇæá ãÑÉ ÃÎÑì", vbQuestion + vbMsgBoxRtlReading, "ÎØà áÛæí"
TextBox3.SetFocus

End Sub
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم
في المرفقات

.rar   txt_edit.rar (الحجم : 7.46 ك ب / التحميلات : 19)
سأعود قريباً ان شاء الله

الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كود عدم الكتابة داخل combo box Ahmed Abdulla 9 2,494 13-11-16, 11:49 PM
آخر رد: تيجر 2000
  تنسيق الكتابة فى ال MSGBOX حسب طول الكلام اسلام الكبابى 5 846 19-07-15, 09:33 PM
آخر رد: اسلام الكبابى
  تنظيم الكتابة فى التكست اسلام الكبابى 7 849 21-03-15, 12:08 AM
آخر رد: محمد العبيدي
  الكتابة فى سطر واحد فى الMSGBOX اسلام الكبابى 5 654 27-01-15, 07:29 PM
آخر رد: Amir_alzubidy
  [كود] تحويل لغة الكتابة تلقائيا hachemi 2 1,090 20-06-14, 09:47 PM
آخر رد: hachemi
Shocked [سؤال] الكتابة باللغة العربية مشوهة في الكود نور الدين 2014 3 660 25-02-14, 02:39 PM
آخر رد: تركي الحلواني
  [سؤال] التحكم بصفحة أنترنت و ضغ الأزرار عليها و الكتابة في تكستات mamas1 3 950 12-10-13, 04:02 PM
آخر رد: mamas1

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


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