• 0
salmana

حذف مخاطب بر اساس شماره

سوال

سلام بر انجمن بیسیک4ایکس

 

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

 

 

سوالم : من میخام مخاطبیایی را که بدون شماره هستن را حذف کنم( فقط بدون شماره ها)

مهمان پسند دیده است

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

6 پاسخ به این سوال تا کنون داده شده است

  • 0

درود


به انجمن بیسیک فور ایکس خوش اومدید


نظر لطف شماست


 


خوب دوست عزیز این کار خعلی راحت انجام میشه من براتون ی سورس آماده کردم که داخل این سورس همه چیز رو توضیح دادم


البته با تاکیدی که کردید روی شماره اگه نباشه من پروژه ی اگه نام نداشته باشه رو نوشتم


 


طوری نیست خعلی راحت تر می تونید اگه شماره نداشت رو حذف کنید با دستور زیر(این دستور رو باید خط 59 پروژه پیوستی با دستور if قبلی جایگزین کنید)



If phone.Number=Null Then
cu.DeleteContact(c.Id)
End If

در صورت هرگونه مشکل حتما بگید


Delete UnName Contacts.zip

salmana پسند دیده است

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

درود بر سید


خوب اگه شرط برقرار نباشه از Else استفاده می کنیم


 


بدنه دستور اینجوری میشه



If درصورت برقراری شرط Then
اجرای کد
Else در غیر این صورت
اجرای کد
End If

امیدوارم منظورتون همین بوده


در پناه حق


به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

دقیقا منظورم همین بود استاد ولی چه کدی باید براش بزاریم که اگر تو لیست مخاطبین شماره ای بی نام و مخاطبی بی شماره نبود بگه در لیست مخاطبین مخاطبی بدون نام یا مخاطبی بدون شماره نداری و اگر داشت این پیغام رو نده و برنامه شروع به کار کنه. شرطش که همون با آیفه کدش منظورمه استادم

شما بین else , end if هرچی بذارید میشه همین حرفی که شما گفتید

مثال به صورت کد :

If c.DisplayName=phone.Number Then
cu.DeleteContact(c.Id)
Else
ToastMessageShow("در لیست مخاطبین مخاطبی بدون نام یا مخاطبی بدون شماره نداری",True)        
End If

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

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



If phone.Number=Null Then
cu.DeleteContact(c.Id)
End If

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



If c.DisplayName=phone.Number Then
cu.DeleteContact(c.Id)
End If

سورس بالا رو گذاشتم برای همین کار


به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

منم همین مشکل رو داشتم . دیگه روم نشد دوباره مزاحمش بشم

اگه حلش کنی خوبه

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0

با سلام

این کد مخاطبایی که اسم ندارن رو حذف میکنه

Sub btn_Click
	Dim p As  Contacts2
	Dim item As Contact
	Dim l As List
	l.Initialize
	l=p.GetAll(True,True)
	For i=0 To l.Size-1
		item=l.Get(i)
		If item.Name="" Then
			delete(item.id)
		End If
	Next
End Sub

Sub delete(id As Int)
	Dim cu As ContactsUtils 'ketbkhune ContactPicker
	cu.DeleteContact(id)
End Sub

بعد بیاید با این کد ازشون لیست بگیرید

Dim lst As ListView
	l.Initialize
	l=p.GetAll(True,True)
	For i=0 To l.Size-1
		item=l.Get(i)
		lst.AddTwoLines(item.Name,item.PhoneNumber)
	Next

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

Sina و salmana پسند شده است

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری