karim_orooji
|
پیدا کرد یک حرف بین دو کلمه
سلام
شاید برای شما پیش اومده باشه که خواسته باشید یه حرفی از داخل یک جمله که بین دو کلمه باشه رو بدست باید
مثلا
من عدد بین کد و قیمت رو نیاز دارم که کد محصول هست
با این کد زیر میتوان براحتی این عدد رو استخراجش کرد از متن مورد نظر
کد:
Dim sSource As String = ComboBox1.Text 'String that is being searched
Dim sDelimStart As String = "کد" 'First delimiting word
Dim sDelimEnd As String = "قیمت" 'Second delimiting word
Dim nIndexStart As Integer = sSource.IndexOf(sDelimStart) 'Find the first occurrence of f1
Dim nIndexEnd As Integer = sSource.IndexOf(sDelimEnd) 'Find the first occurrence of f2
If nIndexStart > -1 AndAlso nIndexEnd > -1 Then '-1 means the word was not found.
Dim res As String = Strings.Mid(sSource, nIndexStart + sDelimStart.Length + 1, nIndexEnd - nIndexStart - sDelimStart.Length) 'Crop the text between
TextBox2.Text = res 'Display
TextBox3.Focus()
Else
MessageBox.Show("کلمه مورد نظر پیدا نشد")
End If
یه توضیحی بدم
متن من درون یک کمبوباکس هست
و دوتا متغیر که باید کلمه های قبل و بعد اون کلمه مورد نظر رو معرفی کرد
و در اخر برای شما در داخل یک کادر تکس نمایش خواهد داد
موفق باشید
یا علی
|
|
جمعه 23 مهر 1395 - 14:56 |
|