[seyedsharifi]

با سلام
من چطوری میتونم از یک فایل که بصورت زیر میباشد تک تک عددهای هر سطر را بدست بیاورم و در یک متغییر جدا قرار دهم
من میتونم از داخل فایل بخونم ولی همه را یکجا
لطفا کمک کنید

کد:

1,1,1,5
1,1,1,6
1,1,37,39
1,1,37,40
1,1,37,43
1,1,37,44
1,1,37,47
1,1,37,48
1,1,37,49
1,1,37,50
1,1,38,17
1,1,38,18

 

[m.gooooolzar]

با درود
من چطوری میتونم از یک فایل که بصورت زیر میباشد تک تک عددهای هر سطر را بدست بیاورم و در یک متغییر جدا قرار دهم
من میتونم از داخل فایل بخونم ولی همه را یکجا
لطفا کمک کنید

کد:

1,1,1,5
1,1,1,6
1,1,37,39
1,1,37,40
1,1,37,43
1,1,37,44
1,1,37,47
1,1,37,48
1,1,37,49
1,1,37,50
1,1,38,17
1,1,38,18

 

 

درود
شما با این کد اول همه اطلاعات رو بخون و بذار تو یه لیست :

کد پی‌اچ‌پی:

Dim List1 As List
List1 = File.ReadList(File.DirAssets, "2.txt") 


حالا فرض کن سطر اول لیست این عدد باشه : 1,2,3,34,35
کافیه یه حلقه دیگه بذاری که این اعداد رو تک تک بخونه (باید از کارکتر اول شروع کنی و  "," رو جستجوی کنی )مثل :

کد پی‌اچ‌پی:

        For x1=0 To str.Length-1
            x2=str.IndexOf2(",",x1)
            If x2>-1 Then
                Msgbox(str.SubString2(x1,x2),i)
                x1=x2
            Else
                Msgbox(str.SubString2(x1,str.Length),i)
                Exit 
            End If
        Next 


کل کدی که باید بنویسی این میشه :

کد پی‌اچ‌پی:

    Dim List1 As List
    List1 = File.ReadList(File.DirAssets, "2.txt")

    For i=0 To List1.Size-1
        Dim str As String = List1.Get(i)
        Dim x2 As Int
        
        For x1=0 To str.Length-1
            x2=str.IndexOf2(",",x1)
            If x2>-1 Then
                Msgbox(str.SubString2(x1,x2),i)
                x1=x2
            Else
                Msgbox(str.SubString2(x1,str.Length),i)
                Exit 
            End If
        Next
    Next 


به همین راحتی


 

[vahid_d_0101]

اقای [size=16px][b]m.gooooolzar [/size][/b] شما یه مشکل در مورد اون اس ام اس دارید که گفتید چندتا اس ام اس را با هم برای یه شماره بفرستید چه طوری بفهمیم رسیده ؟ 
میتونید بگید چه طوری حل کردید

[m.gooooolzar]

اقای [size=16px][b]m.gooooolzar [/size][/b] شما یه مشکل در مورد اون اس ام اس دارید که گفتید چندتا اس ام اس را با هم برای یه شماره بفرستید چه طوری بفهمیم رسیده ؟ 
میتونید بگید چه طوری حل کردید

 

درود
اون مشکل هنوز سرجاش هست ،اگه تونستید حل کنید ،ممنون میشم به ماهم بگید
من تو برنامم یه متغییر گذاشتم که وقتی به یه شماره چنتا sms ارسال میشد ،به تعداد smsها به متغیر اضافه میشد و پس از دریافت تایید ارسال از متغییر کم میکرد
اینجوری حداقل میشه فهمید طرف چنتا sms رو دریافت کرده
به این کد دقت کنید :

کد پی‌اچ‌پی:

Sub pe_SmsDelivered (PhoneNumber As String, Intent As Intent)
    Msgbox("پیام تحویل داده شد" ,PhoneNumber )
End Sub 


من مطمئنم با Intent میشه فهمید که چه برنامه ای و کدوم اس ام اس رو ارسال کرده اما نمیدونم چطور باید ازش استفاده کرد .متاسفم برادر

 

[vahid_d_0101]

دارم کار میکنم روش 
ببخشید که این قدر سوال میپرسم دارم یه برنامه جالب مینویسم که اگر تمام بشه حتما با سورس اینجا میزارم 

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

[m.gooooolzar]

دارم کار میکنم روش 
ببخشید که این قدر سوال میپرسم دارم یه برنامه جالب مینویسم که اگر تمام بشه حتما با سورس اینجا میزارم 

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


 

خواهش میکنم داداش
منم اولین برنامه ای که نوشتم این کارهارو انجام میداد

1. ارسال و دریافت اس ام اس بدون اینکه در خود گوشی ذخیره شه و متن پیام رمز شده باشه
   
2. انجام رویداد های خواص برای شماره های مشخص شده ،یعنی اگه فلان شماره اس ام اس داد ،گوشی فقط ویبره بزنه یا اصلاً هیچ کاری نکنه و یا بطور پیشفرض خود گوشی به کاربر اعلام کن
   
3. برای ورود به برنامه رمز بخواد
   
4. گوشی رو از دور بشه کنترل کرد
   

خب بریم سراغ برنامت
اول کتابخونه Phone رو فعال کن
برای دریافت و ارسال اس ام اس از این کد استفاده کن :

کد پی‌اچ‌پی:

Sub Globals
    Dim PhoneEvents As PhoneEvents
    Dim SMSR As SmsInterceptor
    Dim sendsms As PhoneSms
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    'Activity.LoadLayout("Layout1")
    PhoneEvents.Initialize("PhoneEvents")
    SMSR.Initialize("SMSR")
    
    'ersale payam
    sendsms.Send("TXT","09370000000")
    
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub SMSR_MessageReceived (From As String, Body As String) As Boolean
    Msgbox(Body,From)
    Return True
End Sub

Sub SMSR_SmsDelivered (PhoneNumber As String, Intent As Intent)
    ToastMessageShow("تحویل داده شد",True)
End Sub

Sub SMSR_SmsSentStatus (Success As Boolean, ErrorMessage As String, PhoneNumber As String, Intent As Intent)
    If Success =False Then
        ToastMessageShow("خطا در ارسال ،لطفاً دوباره امتحان کنید:" & ErrorMessage , True)
    Else
        ToastMessageShow("ارسال شد",False)
    End If
End Sub 


واسه اطلاعات گوشی :

کد پی‌اچ‌پی:

Dim p As Phone
Msgbox(p.GetMaxVolume,"") 


مثلاً این کد مقدار صدای گوشی رو برمیگردونه
 

 

[vahid_d_0101]

ایول دمت گرم دادش

چه طوری میتونم شماره سیم کارت روی گوشی را پیدا کرد ؟؟؟

[m.gooooolzar]

ایول دمت گرم دادش

چه طوری میتونم شماره سیم کارت روی گوشی را پیدا کرد ؟؟؟

 

خب اگه طرف نرم افزار رو نصب کنه ، میتونی کدی بنویسی که اگه برای اولین بار اجرا میشه یه اس ام اس به شماره خودت بفرسته ،اینجوری میتونی شماره رو بدست بیاری یا اگه نمیخوای از اون سیم کارت شارژ کم شه میتونی کاری کنی مثلاً ساعت 4صبح به طور خودکار بهت زنگ برنه و درحالی که داره شماره گیری میکنه صفحه گوشی رو خاموش کنه .اینجوری شمارش میوفته رو گوشیت ،بعد از این کار آخرین شماره گرفته شده رو پاک کنه

اما این کار خوبی نیست

 

[vahid_d_0101]

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

[m.gooooolzar]

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

 

شماره سریال سیم کارت ،نام اپراتور و ... رو میشه اما شماره موبایل نمیدونم !