در آوردن عدد

[sibil]

سلامی دوباره به دوستان ...

یه سوال دیگه هم دارم که ممنون می شم جواب بدین ....

یه متغیر داریم به اسم مثلا X که محتوای اون هست :

X$='salam (2)a'

می خواهیم عدد 2 را از داخل این متغیر در بیاوریم و در متغیری دیگر بریزیم .... چطوری ؟؟؟

یا بهتر بگویم مثلا CHAR متغیر را به رشته تبدیل می کند ... اما تابعی هست که به او ورودی ترکیب عدد و رشته بدهیم

و در خروجی به ما تنها عدد موجود در آن ترکیب را بدهد .....؟؟

متشکر ...

 

[loo30fer]

دوست عزیز میتونید از این تابع استفاده کنید

X$='salam (2)a'
ReturnExt$ = StrCopy(X$,8,1)
VAL = VAL(ReturnExt$)

 

[the_king]

اگه موقعیت عدد در رشته معلوم نیست و یا ممکنه بیش از یک عدد در رشته وجود داشته باشه، مثل این نمونه :

x$ = 'A=45,B=123,C=59.4,D=8'

توصیه می کنم از این کد استفاده کنید :

count = 0
first = 0
c = LEN(x$) + 1
For i = 1 To c
  ch$ = StrGet(x$,i)
  If (POS(ch$,'0123456789.') > 0) Then
    If (first = 0) Then
      first = i
      count = count + 1
    End
  Else
    If (first > 0) Then
      n = i - first
      s$ = StrCopy(x$,first,n)
      If (s$ <> '.') Then
        v[count] = VAL(s$)
      Else
        count = count - 1
      End
      first = 0
    End
  End
Next i

بعد از اجرا کردن کد بالا، هر کدوم از اعداد 45 و 123 و 59.4 و 8 در آرایه V ذخیره می شوند ،تعداد اعداد در متغیر
count مشخص میشه :

v[1] = 45
v[2] = 123
v[3] = 59.4
v[4] = 8
count = 4