یه کد بسکام میخوام که واسه چک کردن مقدار شارژ ایرانسل
شارژ شگفت انگیزم باشه
شارژ شگفت انگیزم باشه
str="AT+CUSD=1,"+chr(34)+"*140*1#"+chr(34)+",15" Print str
Total credit is: 45005 Rials,...
45005 Rials
Shoru = Instr(st1 , ": ") ' مختصات کاراکتر : Payan = Instr(st1 , ",") ' مختصات کاراکتر , tool= payan-shoru ' مشخص کردن طول رشته مورد نیاز sharj= mid(st1, shoru,tool) ' جدا کردن مقدار مبلغ از : به طول مشخص شده
دیدگاه