Printable View
با سلام و درود
دوستان و اساتید بنده ی تکس فایل دارم که متن زیر داخلش هست :
bootloader) version-cpld: None
bootloader) version-microp: 0622
bootloader) version-main: 2.37.415.1
میخوام با ی کلیک :
None بره داخل ی تکس باکس
0622 بره داخل ی تکس باکس دیگه
2.37.415.1 هم بره داخل ی تکس باکس دیگه
کلمه های آبی رنگ که نوشتم ، متغیر هست
ممنون میشم راهنمایی بفرمایید
تشکر
با سلام
Dim txt As String = "bootloader) version-cpld:None" + vbCrLf + _
"bootloader) version-microp:0622" + vbCrLf + _
"bootloader) version-main:2.37.415.1"
Dim Lnt, Ind As Byte
For Each s As String In txt.Split(Chr(13))
Ind = s.IndexOf(":") + 1
Lnt = s.Length
Me.ListBox1.Items.Add(s.Substring(Ind, Lnt - Ind))
Next
توی کدی که نوشتم، فرض بر این است که رشته شما سطرهاش با enter از هم جدا شدن.
در این کد برای تعداد سطرها محدودیتی وجود ندارد.
اگه شما فقط همین سه سطر رو دارین، و قرار به کنترل های از قبل تعیین شده مقدار بدین، می تونین از کد زیر استفاده کنین:
Dim txt As String = "bootloader) version-cpld:None" + vbCrLf + _
"bootloader) version-microp:0622" + vbCrLf + _
"bootloader) version-main:2.37.415.1"
Dim Lnt, Ind As Byte
Dim s() As String = txt.Split(Chr(13))
' TextBox1
Ind = s(0).IndexOf(":") + 1
Lnt = s(0).Length
Me.TextBox1.Text = s(0).Substring(Ind, Lnt - Ind)
' TextBox2
Ind = s(1).IndexOf(":") + 1
Lnt = s(1).Length
Me.TextBox2.Text = s(1).Substring(Ind, Lnt - Ind)
' TextBox3
Ind = s(2).IndexOf(":") + 1
Lnt = s(2).Length
Me.TextBox3.Text = s(2).Substring(Ind, Lnt - Ind)
تشکر ، جواب داد
حالا برفرض این 3 خط جابجا آمدن، و ما برای هر تکس باکس مخصوص خود اون رو انتخاب کرده ایم، اون موقع میشه جابجاش کرد، یا باید داخل کد نویسی تغییر ایجاد کرد؟
مثلا داخل متن اصلی از سرچ استفاده کنیم..
ممنون میشم این رو هم راهنمایی بفرمایید
سلام
حالا اگه بخوایم بر فرض مثال in the name of god برای نرم افزار دیکشنری
رو تک تک کلمه ها شو در یک ارایه ویا ... بریزیم و و در بانک طلاعاتی جستجو کنیم چطوریه ممنون میشم راهنماییم کنید
اگه منظورتون رو درست متوجه شده باشم. می تونید قبل از ریختن مقدار هر سطر درون تکس باکس ها با شرط یکی از ویژگی های خاص آن سطر رو چک کنید و بعد مقدارش رو درون تکس باکس مورد نظر بریزید.نقل قول:
نوشته شده توسط Rain_Saeid
نقل قول:
نوشته شده توسط systam
Dim txt As String = "in the name of god"
Dim s() As String = txt.Split(" ")
در کد بالا فرض شده که شما کلمات درون رشته تون رو با فاصله از هم جدا کردید