اصلاح لیست شماره تلفن ها و حذف سه شماره اول

برای مثال اگر یه لیست بزرگ شماره تلفن داشته باشید به این صورت:

۹۱۱۱۲۳۴۵۶۷
۹۳۸۱۲۳۴۵۶۷
۹۳۳۱۲۳۴۵۶۷

و میخواین سه شماره اول رو حذف و بجاش *** قرار بدید ۹۱۱***۴۵۶۷ میتونید از کد زیر استفاده کنید.

کد:

 

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)

 

نکته :

۱٫ لیست شماره ها به اسم list.txt در پوشه files باید باشه

۲٫ در پایان لیست جدید در حافظه گوشی به اسم listsh.txt سیو میشه

۳٫ اگه شماره تلفن ها اولش با ۰ شروع میشه در خط ۹ کدها، بجای ۰,۳ بگذارید ۰,۴

 

موفق باشید.