پیدا کردن متن های موجود بیت دو تا کاراکتر

[kiapmc]

با سلام
داشتم یک پروژه کار میکردم به یک مشکلی برخوردم


مثلا یک متنی داریم به شکل زیر


from pleasure ("I loved that meal") to interpersonal attraction ("I love my partner"). "Love" may refer specifically to the passionate desire "and intimacy of" romantic love, "to the sexual love of eros, to" the emotional closeness " of familial " love, or the "platonic love that defines" friendship.


یک نمونه متن هست حالا میخواستم با vb تمام متن هایی که داخل دوتا " " هست را بدست بیاوردم و در داخل یک تکست جدید گذاشته بشه کسی میتواند یک راهنمایی کنید

[سید حمید حق پرست]

سلام
نمونه متن در خود برنامه هست یا در یه فایل مثل txt ؟


یا علی (ع)

[kiapmc]

در داخل تکست داخل برنامه مثلا text1.text داخل text1 این متن وجود دارد و میخواهم کاراکترهای متن بین دو تا " " را در بیاورد

[بهروز عباسی]

درود

اول موقعیت کاراکتر( " ) رو از یه جای مشخص بدست بیار(چندمین کاراکتره) از اونجا به بعد هرکاراکتری که دیدی بریزتوی یک متغییر در همین حال که این کاررو میکنی کاراکترهارو چک کن که اگه دوباره به (") برخوردی این کار متوقف بشه
حالا متغیری که داری حاوی کاراکتر های بین "و" هستو

موفق باشی
این نظرمن بود.:لبخند:

[kiapmc]

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

[سید حمید حق پرست]

from pleasure ("I loved that meal") to interpersonal attraction ("I love my partner"). "Love" may refer specifically to the passionate desire "and intimacy of" romantic love, "to the sexual love of eros, to" the emotional closeness " of familial " love, or the "platonic love that defines" friendship

تو متن بالا میخوای هرچی متنه بین " " بیرون بیاری . همشو یا فقط یکی هست ؟

[kiapmc]

نه همشون را بیرون بیاورم هرچی متن بین دوتا " " هست را بیرون بیاورم

[سید حمید حق پرست]

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

[kiapmc]

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

[سید حمید حق پرست]

نمونه سورس زیر اینکار رو میکند (اما از فایل txt که خودتان میتونید ویرایشش کنید و از داخل برنامه بخونیدش)

[سید حمید حق پرست]

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

[M.T.P]

البته من سورس آقای حق پرست رو ندیدم اما این کد هم هست:

متن باید داخل Text1 باشه و خروجی میره تو Text2
خصوصیت MultiLine مربوط به Text2 رو True کنید.




Private Sub Command1_Click()
On Error GoTo EndLine
Dim StrSrc As String
Dim StrDes As String
Dim IntFound As Long

StrSrc = Text1.Text
IntFound = InStr(1, StrSrc, Chr$(34))

While IntFound
IntFound = IntFound + 1
StrDes = StrDes & Mid$(StrSrc, IntFound, InStr(IntFound, StrSrc, Chr$(34)) - IntFound) & vbCrLf
IntFound = InStr(IntFound, StrSrc, Chr$(34)) + 1
StrSrc = Mid$(StrSrc, IntFound, Len(StrSrc) - IntFound)
IntFound = InStr(1, StrSrc, Chr$(34))
Wend

EndLine:
Text2.Text = StrDes
End Sub

[kiapmc]

واقعا دستت درد نکنه خوب بود

[سید حمید حق پرست]

یه نمونه سورس بزاری تا برسیش کنیم

[shahabbasic]

فقط با 3 خط کد برات نوشتم
دانلود (http://www.faupload.com/upload/90/Esfand/Halaji.zip)

[Mr'Jamshidy]

فقط با 3 خط کد برات نوشتم
دانلود (http://www.faupload.com/upload/90/Esfand/Halaji.zip)

این 3 خط شما فقط داخل دابل کوتیشن اول رو بر میگردونه

در ضمن خود سایت قابلیت آپلود داره

موفق باشید