[m.gooooolzar]

با درود
من چطوری میتونم از یک فایل که بصورت زیر میباشد تک تک عددهای هر سطر را بدست بیاورم و در یک متغییر جدا قرار دهم
من میتونم از داخل فایل بخونم ولی همه را یکجا
لطفا کمک کنید

کد:

1,1,1,5
1,1,1,6
1,1,37,39
1,1,37,40
1,1,37,43
1,1,37,44
1,1,37,47
1,1,37,48
1,1,37,49
1,1,37,50
1,1,38,17
1,1,38,18

 

 

درود
شما با این کد اول همه اطلاعات رو بخون و بذار تو یه لیست :

کد پی‌اچ‌پی:

Dim List1 As List
List1 = File.ReadList(File.DirAssets, "2.txt") 


حالا فرض کن سطر اول لیست این عدد باشه : 1,2,3,34,35
کافیه یه حلقه دیگه بذاری که این اعداد رو تک تک بخونه (باید از کارکتر اول شروع کنی و  "," رو جستجوی کنی )مثل :

کد پی‌اچ‌پی:

        For x1=0 To str.Length-1
            x2=str.IndexOf2(",",x1)
            If x2>-1 Then
                Msgbox(str.SubString2(x1,x2),i)
                x1=x2
            Else
                Msgbox(str.SubString2(x1,str.Length),i)
                Exit 
            End If
        Next 


کل کدی که باید بنویسی این میشه :

کد پی‌اچ‌پی:

    Dim List1 As List
    List1 = File.ReadList(File.DirAssets, "2.txt")

    For i=0 To List1.Size-1
        Dim str As String = List1.Get(i)
        Dim x2 As Int
        
        For x1=0 To str.Length-1
            x2=str.IndexOf2(",",x1)
            If x2>-1 Then
                Msgbox(str.SubString2(x1,x2),i)
                x1=x2
            Else
                Msgbox(str.SubString2(x1,str.Length),i)
                Exit 
            End If
        Next
    Next 


به همین راحتی