just4froum
جمعه 11 شهریور 1390, 22:04 عصر
با سلام خدمت همگی :
به نظر دوستان چطور میشه طول یک آرایع ی تک بعدی را فهمید :
چون من می خوام یک فایل متنی رو در یک آرایه تک بعدی بریزم که هر خط در یک بعد قرار بگیره.
با این روش
Dim m() As String
Open "test.txt" For Input As #1
m = Split(Input(LOF(1), 1), vbCrLf)
Close #1
من از function زیر استفاده می کنم که خودم اونو نوشتم البته کار هم میکنه ولی فکر می کنم راه غلطی است !!!
Public Function arrnum(m() As String) As Integer
Dim a As String, x As Integer
x = 0
Do While 1 > 0
On Error GoTo moein
a = m(x)
x = x + 1
Loop
moein:
arrnum = x - 1
End Function
دوستان روش بهتری بلد هستن ؟؟؟
با تشکر
به نظر دوستان چطور میشه طول یک آرایع ی تک بعدی را فهمید :
چون من می خوام یک فایل متنی رو در یک آرایه تک بعدی بریزم که هر خط در یک بعد قرار بگیره.
با این روش
Dim m() As String
Open "test.txt" For Input As #1
m = Split(Input(LOF(1), 1), vbCrLf)
Close #1
من از function زیر استفاده می کنم که خودم اونو نوشتم البته کار هم میکنه ولی فکر می کنم راه غلطی است !!!
Public Function arrnum(m() As String) As Integer
Dim a As String, x As Integer
x = 0
Do While 1 > 0
On Error GoTo moein
a = m(x)
x = x + 1
Loop
moein:
arrnum = x - 1
End Function
دوستان روش بهتری بلد هستن ؟؟؟
با تشکر