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

[mahfelsoft 130]

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

برای سرچ توی این متون خوب کد سرچ که مشخصه .

cur = sql1.ExecQuery("SELECT * FROM mytable WHERE matn like '%" & edittext1.Text & "%'")

خوب چون متن ها طولانیه من نتایج جستجو رو چطور باید نمایش بدم .ببینید مثلا میخوام اون قسمت سرچ شده رو یکمیشو توی لیست ویو نشون بده و بعد که روش کلیک کردم دقیقا بره متن همون قسمت سرچ شده رو کامل نشون بده. مثل عکس که گذاشتم . 

لطفا راهنمایی کنید . بعد لطفا با کد راهنمایید کنید .

دوستان من توی سایت هم خیلی سرچ کردم اما اون چیزی که میخوام رو پیدا نکردم .

[mahfelsoft 130]

دوستان یک هفته از ایجاد این تاپیک گذشته . اما هنوز نتونستم حلش کنم . میشه کمک کنید .؟

[امین مهدی نژاد 2,142]

در در 1395/10/05, 15:06:15، mahfelsoft گفته است :

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

برای سرچ توی این متون خوب کد سرچ که مشخصه .

cur = sql1.ExecQuery("SELECT * FROM mytable WHERE matn like '%" & edittext1.Text & "%'")

خوب چون متن ها طولانیه من نتایج جستجو رو چطور باید نمایش بدم .ببینید مثلا میخوام اون قسمت سرچ شده رو یکمیشو توی لیست ویو نشون بده و بعد که روش کلیک کردم دقیقا بره متن همون قسمت سرچ شده رو کامل نشون بده. مثل عکس که گذاشتم . 

لطفا راهنمایی کنید . بعد لطفا با کد راهنمایید کنید .

دوستان من توی سایت هم خیلی سرچ کردم اما اون چیزی که میخوام رو پیدا نکردم .

 

خوب چون متن ها طولانیه من نتایج جستجو رو چطور باید نمایش بدم .ببینید مثلا میخوام اون قسمت سرچ شده رو یکمیشو توی لیست ویو نشون بده

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

و بعد که روش کلیک کردم دقیقا بره متن همون قسمت سرچ شده رو کامل نشون بده. مثل عکس که گذاشتم . 

اینم که طرح ساده مولتی پنل هستش. در مولتی پنل ها هم معمولا با کلیک کردن روی هر آیتم میره و مثلا اون آیتم رو نمایش میده و یا کار دیگه ای که لازمه انجام میده.

اگه منظور خاصی دارید بگید.

واسه جستجو کردن و مشخص کردن موارد پیدا شده هم از ساب زیر استفاده کنید.

Sub SearchHighLight(str As String,srch As String)As RichString
	str=str.Replace(srch,"[srch]"&srch&"[srch]")
	Dim rs As RichString
	rs.Initialize(str)
	rs.BackColor2(Colors.Yellow,"[srch]")
	Return rs
End Sub

نحوه استفاده اش هم اینه

	Label1.Text=SearchHighLight(Label1.Text,"متن")

«موفق باشید.»

[mahfelsoft 130]

در 40 دقیقه قبل، امین مهدوی گفته است :

خوب چون متن ها طولانیه من نتایج جستجو رو چطور باید نمایش بدم .ببینید مثلا میخوام اون قسمت سرچ شده رو یکمیشو توی لیست ویو نشون بده

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

و بعد که روش کلیک کردم دقیقا بره متن همون قسمت سرچ شده رو کامل نشون بده. مثل عکس که گذاشتم . 

اینم که طرح ساده مولتی پنل هستش. در مولتی پنل ها هم معمولا با کلیک کردن روی هر آیتم میره و مثلا اون آیتم رو نمایش میده و یا کار دیگه ای که لازمه انجام میده.

اگه منظور خاصی دارید بگید.

واسه جستجو کردن و مشخص کردن موارد پیدا شده هم از ساب زیر استفاده کنید.

Sub SearchHighLight(str As String,srch As String)As RichString
	str=str.Replace(srch,"[srch]"&srch&"[srch]")
	Dim rs As RichString
	rs.Initialize(str)
	rs.BackColor2(Colors.Yellow,"[srch]")
	Return rs
End Sub

نحوه استفاده اش هم اینه

	Label1.Text=SearchHighLight(Label1.Text,"متن")

«موفق باشید.»

ممنون که جواب دادید ...

اما میشه یه خواهش ازتون بکنم . چیزی که گفتید رو به صورت یه سورس ساده کوچیک بنویسید توی سایت بزارید که همه استفاده کنن . چون هیچ کجا ندید کسی برای این کار راه درستی بده ...

 

ببینید دیتابیس من فقط 12 فیلد داره که هر فیلد متن خیلییی طولانی توش هست ...

حالا من میخوام توی این 12 فیلد سرچ کنم و ممکنه مثلا کلمه ای که سرچ میکنم توی یه فیلد مثلا 10 بار اومده باشه ... میخوام وقتی وقتی پنل مورد رو که متن طولانی توش پیدا شده آورد و روش کلیک کردم اسکرول بشه به همون نقاط پیدا شده .. ( بشه بین نقاط پیدا شده سویچ کرد )

 

[امین مهدی نژاد 2,142]

در 28 دقیقه قبل، mahfelsoft گفته است :

ممنون که جواب دادید ...

اما میشه یه خواهش ازتون بکنم . چیزی که گفتید رو به صورت یه سورس ساده کوچیک بنویسید توی سایت بزارید که همه استفاده کنن . چون هیچ کجا ندید کسی برای این کار راه درستی بده ...

 

ببینید دیتابیس من فقط 12 فیلد داره که هر فیلد متن خیلییی طولانی توش هست ...

حالا من میخوام توی این 12 فیلد سرچ کنم و ممکنه مثلا کلمه ای که سرچ میکنم توی یه فیلد مثلا 10 بار اومده باشه ... میخوام وقتی وقتی پنل مورد رو که متن طولانی توش پیدا شده آورد و روش کلیک کردم اسکرول بشه به همون نقاط پیدا شده .. ( بشه بین نقاط پیدا شده سویچ کرد )

 

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

تا زمان زیادی وقت نبره

«موفق باشید.»

[softir 459]

سلام

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

Dim page As String = "علی امروز در خانه گلدان ها را شکست ، ربا در حامعه امروزی توسط بانک ها شیوع پیدا کرده"
Dim ss as string

ss = page.SubString2(0,20) 

این مثلا متنی که پیدا کرده شما یه متغییر می نویسید متن رو درون اون میریزید و بعد با متد ساب استرین 20 تا از کاراکتر های اول رو می گیرید بعد می ریزید تو یه متغییر دیگه و بعد متگر دیگه رو هر جا خواستید می تونید به نمایش در بیارید

[mahfelsoft 130]

ممنون که جواب دادید . اما متاسفانه اینطوری متوجه نمیشه . اگه بتونید یک سورس کوچسک بنویسید . ممنون میشم . اگر هزینه داشته باشه هم مهم نیست

[mahfelsoft 130]

در در 1395/10/07, 14:13:48، seyed_27 گفته است :

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

1- جستجو در بانک که کدش معلومه

2- هایلایت کردن که با کتابخونه بنده اینکار رو میکنید

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

 

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

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

اینجا


 

 

آقای Seyed منظر جوابتون هستم . میشه اینجا رو بخونید ؟

[mahfelsoft 130]

کسی راهی برای این موضوع نداره دوستان ؟؟؟؟ تا حالا کسی انجام نداده ؟

[seyed_27 170]

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

1- جستجو در بانک که کدش معلومه

2- هایلایت کردن که با کتابخونه بنده اینکار رو میکنید

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

 

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

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

اینجا


 

[بهزاد میرزائی 36]

 

در در 1395/10/11, 21:26:04، امین مهدی نژاد گفته است :

خوب چون متن ها طولانیه من نتایج جستجو رو چطور باید نمایش بدم .ببینید مثلا میخوام اون قسمت سرچ شده رو یکمیشو توی لیست ویو نشون بده

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

و بعد که روش کلیک کردم دقیقا بره متن همون قسمت سرچ شده رو کامل نشون بده. مثل عکس که گذاشتم . 

اینم که طرح ساده مولتی پنل هستش. در مولتی پنل ها هم معمولا با کلیک کردن روی هر آیتم میره و مثلا اون آیتم رو نمایش میده و یا کار دیگه ای که لازمه انجام میده.

اگه منظور خاصی دارید بگید.

واسه جستجو کردن و مشخص کردن موارد پیدا شده هم از ساب زیر استفاده کنید.

Sub SearchHighLight(str As String,srch As String)As RichString
	str=str.Replace(srch,"[srch]"&srch&"[srch]")
	Dim rs As RichString
	rs.Initialize(str)
	rs.BackColor2(Colors.Yellow,"[srch]")
	Return rs
End Sub

نحوه استفاده اش هم اینه

	Label1.Text=SearchHighLight(Label1.Text,"متن")

«موفق باشید.»

سلام 

خسته نباشید .

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

[mahfelsoft 130]

در در 1395/10/07, 08:24:22، seyed_27 گفته است :

در توضیحاتش گفته شده سرچ در لیبل و ادیت تکست

سرچ در دیتا بیس رو با کد بنویسید

خیلی راحته

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

 

 

در 20 ساعت قبل، seyed_27 گفته است :

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

1- جستجو در بانک که کدش معلومه

2- هایلایت کردن که با کتابخونه بنده اینکار رو میکنید

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

 

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

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

اینجا


 

ممنونم که وقت گذاشتید و جواب دادید . اگه امکانش هس همون بخش جستجوش رو فقط بدید ببینم میتونم کاری کنم . الان خوبه که پیدا میکنه . اما آیا امکانش هست اونجایی که داره سرچ میکنه موقع سرچ مثلا سه خط از مطلب اصلی رو که مثلا اون کلمه سرچ شده داخلش هست رو نمایش بده بعد که روش زدیم کاملش رو بیاره ؟

 

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