خواندن از یک فایل متنی با فرمت خاص

[mehdi58]

با سلام
من چطوری می تونم اطلاعات موجود در یه فایل متنی بصورت زیر رو داخل دو آرایه ذخیره کنم . یعنی به ازای هر مقدار X رو در یه آرایه و مقدار روبروی آن رو هم در یه آرایه دیگه ذخیره بکنم .


X: 1 90
X: 2 18
X: 3 32
X: 4 90
X: 5 44
X: 6 33
X: 7 21





با تشکر

[reza_rad]

یک راه می تونه این باشه:

با streamreader از فایلت بخونی
با ReadLine خط به خط بخونی
دو قسمتی که توی هر خط مثلا با فاصله از هم جدا میشن رو با متد split از هم جدا کنی و توی دو تا آرایه جدا بریزی

[ghafoori]

دوست عزیز فایل را خط به خط بخوان و بعد ان را پردازش کن مثلا یک همچین کدی

Dim a, b, c As Integer
Dim s As String
Dim array(6, 1) As Integer
For a = 1 To 7
's=sr.readline
b = Int(s.Chars(3))
c = Int(s.Chars(5) + s.Chars(6))
array(a - 1, 0) = b
array(a - 1, 1) = c
Next