دانلود آهنگ جدیدclose
پیدا کرد یک حرف بین دو کلمه
::: در حال بارگیری لطفا صبر کنید :::

نام کاربری :   پسورد :



تابلو اعلانات

◘ نتایج مسابقات انتخاب مدیر برای انجمن ویدئو لرن ◘


تعداد بازدید : 367
نویسنده پیام
karim_orooji آفلاین



ارسال‌ها: 345
عضویت: 31 /4 /1393
تشکر ها: 206
تشکر شده: 441
پیدا کرد یک حرف بین دو کلمه
سلام
شاید برای شما پیش اومده باشه که خواسته باشید یه حرفی از داخل یک جمله که بین دو کلمه باشه رو بدست باید
مثلا



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



کد:

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
وب کاربر ارسال پیام نقل قول تشکر / موافقم / آفرین گزارش


تازه سازي پاسخ ها



برای ارسال پاسخ ابتدا باید لوگین یا ثبت نام کنید.



تاپیک های مرتبط
موضوع تاریخ تعداد پاسخ آخرین ارسال بازدید
[Post_Title] [Post_Date] [Post_Answer] [Post_Last_User] [Post_Hit]
پرش :
صفحه اصلی | انجمن | ورود | عضویت | خوراک | نقشه | تماس با ما | طراح