اصلاح لیست شماره تلفن ها و حذف سه شماره اول
برای مثال اگر یه لیست بزرگ شماره تلفن داشته باشید به این صورت:
و میخواین سه شماره اول رو حذف و بجاش *** قرار بدید ۹۱۱***۴۵۶۷ میتونید از کد زیر استفاده کنید.
✨ نکات مهم:
• کد آماده و تستشده (1 قطعهکد)
• کار با کتابخانههای: File
• کپی و استفاده مستقیم در پروژه B4A
📚 کتابخانههای مورد نیاز:
File
(از مسیر Libraries در محیط B4A تیک بزنید.)
🚀 نحوه استفاده:
کد زیر را کپی کنید و در Sub یا ماژول مناسب پروژه خود قرار دهید؛ کتابخانههای اعلامشده را تیک بزنید.
| دستهبندی | تکه کدها |
| تاریخ انتشار | ۲۷ شهریور ۱۴۰۵ - ۰۱:۴۹ |
| تعداد بازدید | ۱ |
| تعداد فروش | ۰ |
| فرمت تحویل | فایل دانلودی (بعد از پرداخت آنی فعال میشود) |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگیهای کلیدی
- تکهکد آماده B4A
- کاملاً رایگان
- کد تستشده با توضیح فارسی
- کتابخانه: File
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال میشود)
Dim list1 As List
list1=File.ReadList(File.DirAssets,"list.txt")
Dim list2 As List
list2.Initialize
Dim str As String
For i=0 To list1.Size-1
str=list1.Get(i)
Log(str)
list2.Add(str.SubString2(0,3)&"***"&str.SubString2(6,10))
Next
LogColor("payan",Colors.Red)
File.WriteList(File.DirRootExternal,"listsh.txt",list2)محصولات مشابه