IamOverlord
یک شنبه 15 اسفند 1389, 20:55 عصر
سلام دوستان می خواستم بدونم مشکل این تابع چیه.
در اصل قراره که یه رشته بگیره و
n امین Argumant ارسالی رو برگردونه.
Argumant ها با ویرگول از هم جدا می شن.
اما همیشه حرف اولArgumant رو برنمی گردونه.
مشکل از کجاس یا می تونه از چی باشه؟
Public Function GetArgumant(ByVal strText As String, ByVal ArgumantNumber As Integer) As String
Dim Argumants() As String
Argumants() = Split(strText, Chr(161))
MsgBox Trim(Argumants(ArgumantNumber - 1))
GetArgumant = Trim(Argumants(ArgumantNumber - 1))
End Function
در اصل قراره که یه رشته بگیره و
n امین Argumant ارسالی رو برگردونه.
Argumant ها با ویرگول از هم جدا می شن.
اما همیشه حرف اولArgumant رو برنمی گردونه.
مشکل از کجاس یا می تونه از چی باشه؟
Public Function GetArgumant(ByVal strText As String, ByVal ArgumantNumber As Integer) As String
Dim Argumants() As String
Argumants() = Split(strText, Chr(161))
MsgBox Trim(Argumants(ArgumantNumber - 1))
GetArgumant = Trim(Argumants(ArgumantNumber - 1))
End Function