الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

التعديل على Text file موجود

مغلق
بدأه HaithamNazzal في 28 مايو 2005 · 3 رد · 430 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

تحية طيبة للجميع

لدي ملف Text file اريد ان اعدل على هذا الملف بواسطة مود الفيجوال بيسك

بحيث يأتي الملف على هذا الشكل :

Daily trade log taken at 12:21:01
"","00265760","Filled","Buy","AIB.D","90","","90","1.48","11-04-05","11:49:31","dc R","00124599","406030072","Regular","SS1","IS1","","","REG"
"","00265401","Filled","Buy","AIB.D","3000","","3000","1.48","11-04-05","11:49:31","dc R","00124598","406031476","Regular","SS1","IS1","","","REG"
"","00265900","Filled","Buy","AIB.D","3000","","3000","1.49","11-04-05","11:48:52","dc R","00124591","406023671","Regular","SS1","JPS1","","","REG"

واريد ان اشطب أول سطر وان لا يبقي فراغ

شكرا للجميع

يــــا أقصى .... لا تنادي ..... فلن يجيبك احد

#2
edit text file

*************************************************

**************************************************

مصطفى زيداني

#3

الاخ mostafazidani شكرا جزيلا لك

لكن وجدت كود ممتاز لحذف سطر من Text file بحيث تختار القيمة التي تود عمل حذف لها

ارجو ان يستفيد الجميع من الكود

Dim oFSO As New FileSystemObject
  Dim oFSTR As Scripting.TextStream
  Dim ret As Long
  Dim lCtr As Long
  Dim sTemp As String, sLine As String
  Dim bLineFound As Boolean
  Dim vStr As String
  On Error GoTo ErrorHandler
  If oFSO.FileExists(fName) Then
     Set oFSTR = oFSO.OpenTextFile(fName)
    lCtr = 1
     Do While Not oFSTR.AtEndOfStream
        
        sLine = oFSTR.ReadLine
        vStr = Mid(sLine, 1, 24)
هنا القيمة المراد عمل حذف لها        If vStr <> "Daily trade log taken at" Then
حتى لوكانت متتكررة
            sTemp = sTemp & sLine & vbCrLf
        Else
            bLineFound = True
            
        End If
    Loop
   
     oFSTR.Close
     Set oFSTR = oFSO.CreateTextFile(fName, True)
     oFSTR.Write sTemp
  
    DeleteLine = bLineFound
   End If
   

ErrorHandler:
On Error Resume Next
oFSTR.Close
Set oFSTR = Nothing
Set oFSO = Nothing

يــــا أقصى .... لا تنادي ..... فلن يجيبك احد

#4

طبعا لابد من انزال : Microsofr scripting runtime

يــــا أقصى .... لا تنادي ..... فلن يجيبك احد

هذا الموضوع مغلق.

مواضيع مشابهة