تقييم الموضوع :
  • 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 ك ب / التحميلات : 27)
" قُلْ أَغَيْرَ اللَّهِ أَبْغِي رَبًّا وَهُوَ رَبُّ كُلِّ شَيْءٍ "


الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف انشي زر امر يحول موشر الكتابة من عربي الى انجليزي والعكس ؟؟ Microformt 3 76 04-09-17, 05:21 PM
آخر رد: Microformt
  [vb6.0] حل مشكلة الكتابة باللغة العربية في أداة Microsoft Forms 2.0 Object Library larbihamri 5 200 01-07-17, 02:58 PM
آخر رد: larbihamri
  هل يمكن توسيط الكتابة في الكومبوكس مصمم هاوي 2 155 18-06-17, 02:13 AM
آخر رد: مصمم هاوي
  [vb6.0] كود توسيط الكتابة في الداتا قريد أثناء تفعيل خاصية من اليمين الى اليسار larbihamri 5 233 22-05-17, 12:06 AM
آخر رد: larbihamri
  [سؤال] كود عدم الكتابة داخل combo box Ahmed Abdulla 11 3,615 18-05-17, 02:05 AM
آخر رد: عبد العزيز البسكري
  [vb6.0] عند الكتابة في التكست بوكس تكون الفورمة مثل التقويم الميلادي larbihamri 4 420 15-01-17, 12:41 AM
آخر رد: larbihamri
  الكتابة على ملف HTML bidaya 11 689 26-12-16, 12:36 AM
آخر رد: Ahmed_Mansoor
  تنسيق الكتابة فى ال MSGBOX حسب طول الكلام اسلام الكبابى 5 1,181 19-07-15, 09:33 PM
آخر رد: اسلام الكبابى
  تنظيم الكتابة فى التكست اسلام الكبابى 7 1,102 21-03-15, 12:08 AM
آخر رد: محمد العبيدي
  الكتابة فى سطر واحد فى الMSGBOX اسلام الكبابى 5 855 27-01-15, 07:29 PM
آخر رد: Amir_alzubidy

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


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