قسمت قسمت کردن متن دیتابیس

[891263107 8]

سلام به همگی

کسی میدونه چجوری میشه قسمتی از متن دیتابیس را در یک لیبل و بقیه را در لیبل دیگری نمایش داد؟

منظورم اینه که از اول متن تا جایی که کلمه مورد نظر را نوشته در یک لیبل و متن بعد از اون کلمه را در یک لیبل دیگر نشان داد؟

ممنون

[891263107 8]

ممنون آقا مجید میشه یکم درباره این تابع توضیح بدین؟

[مهران محمودی 778]

درود،

با استفاده از توابع Substring2 و IndexOf که در رشته های متنی وجود دارن میتونید قسمتی از متن رو جدا کنید.

	Dim dbText = cur1.GetString("mm") As String
	
	' farz konim meghdari ke dar dbText gharar migire in bashe:
	'  "mehran mahmoudi mehdi izadi farzad mousavi majid arta" 
	
	Dim title,text As String
	title = dbText.SubString2(0,dbText.IndexOf("mehdi"))
	text = dbText.SubString2(dbText.IndexOf("mehdi"),dbText.Length)
	ToastMessageShow(title&CRLF&text,False)

Toast به اینصورت نمایش داده میشه:

mehran mahmoudi
mehdi izadi farzad mousavi majid arta

در واقع قسمتی از متن که قبل از mehdi قرار داره، از کل رشته جدا میشه.

[891263107 8]

 

سلام دوستم

استاد ارتا و محمودی که روش رو بهتون گفتن :gol:

این تابعی که استاد ارتا فرمودن، میاد و متن رو جایگزین میکنه

مثلا برای حذف شهاب از عبارت زیر به این شکل عمل  میشه

dim str as string = "salam shahab eskandary :)"
str.Replace("shahab","")

نتیجه میشه

salam eskandary

خوب این از سوالتون

 

برای سوال اولتون میتونید از ریجکس هم استفاده کنید

مثلا میگم

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

salam shahab#salam ali#salam sina :|

بعد متن رو میگیرید و تیکه تیکه میکنید

Dim str() As String = Regex.Split("#",cur.getstring("matn")
label1.text = str(0) & CRLF & str(1) & CRLF & str(2)

نتیجه میشه (خود شارپ هم حذف میشه)

salam shahab
salam ali
salam sina :|

ممنون آقا شهاب من کد شما رو استفاده کزدم ولی این ارور رو میده

An error has occurred in sub:actmatlab_activity_create(java line:388)

Java.lang.ArrayIndexOutOfBoundsException:length=1;index=1 Continue?

این هم از کد

Dim cu As Cursor
cu=All_codes.sql.ExecQuery("SELECT * FROM tbl WHERE fasl="&listmask.fasl)
cu.Position=0
Dim str() As String= Regex.Split("#",cu.GetString("matnmask"))

lblmatlab.Text=str(0)
lblmatlab1.Text=str(1)
lblmatlab2.Text=str(2)

[shahab.es 5,429]

سلام

یه دیباگ بگیر ببین به کدوم خط گیر میده

احتمالا یکی از قسمتارو نداره متنت(مثلا str(1) خالی مونده )

[891263107 8]

ممنون زحمت کشیدین

[891263107 8]

اگه بخوام خود کلمه مهدی حذف بشه باید چیکار کنم؟

[مجید آرتا 5,874]

از تابع Replace  استفاده کنید.

[arastooms 1,046]

سلام

یه دیباگ بگیر ببین به کدوم خط گیر میده

احتمالا یکی از قسمتارو نداره متنت(مثلا str(1) خالی مونده )

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

و لی همه رو مطالعه کردم متوجه نشدم 

من یه سری فایل دارم در پوشه اصلی که mp3 هست

به این اسم 

aaa.mp3

bbb.mp3

ccc.mp3

...

و تعداشش 1000 تا هست

اشتباه کردم و در دیتابیس به اسم 

aaa

bbb

ccc

,.....

معرفی کردم

حالا میخام به پلیر بگم شما برو فایل aaa.mp3 بخون 

نمیتونم aaa+.mp3 رو با ریجکس درست کنم 

در واقع میتونم مقدار رو از دیتابیس بگیرم و در یک استرینگ ذخیره کنم 

حالا باید به اون مقدار یک پسوند .mp3 اضافه  کنم که بتونم تو پلیر استفاده کنم 

ولی نتونستم 

استرینگ aaa رو به aaa.mp3 تبدیل کنم

ممنون میشم راهنمایی کنید

[891263107 8]

ممنون آقا مجید میشه یکم درباره این تابع توضیح بدین؟

[shahab.es 5,429]

سلام دوستم

استاد ارتا و محمودی که روش رو بهتون گفتن :gol:

این تابعی که استاد ارتا فرمودن، میاد و متن رو جایگزین میکنه

مثلا برای حذف شهاب از عبارت زیر به این شکل عمل  میشه

dim str as string = "salam shahab eskandary :)"
str.Replace("shahab","")

نتیجه میشه

salam eskandary

خوب این از سوالتون

 

برای سوال اولتون میتونید از ریجکس هم استفاده کنید

مثلا میگم

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

salam shahab#salam ali#salam sina :|

بعد متن رو میگیرید و تیکه تیکه میکنید

Dim str() As String = Regex.Split("#",cur.getstring("matn")
label1.text = str(0) & CRLF & str(1) & CRLF & str(2)

نتیجه میشه (خود شارپ هم حذف میشه)

salam shahab
salam ali
salam sina :|

[shahab.es 5,429]

سلام

cur.getstring("name") & ".mp3"