PDA

View Full Version : سوال: کار با replace


adib202
پنج شنبه 19 شهریور 1394, 10:40 صبح
سلام
یه تابع هست به این صورت

Replace(text1.text, " " ", "")

توی تکس باکس متنی وجود داره که کوتیشن داره.حالا با Replace میخوام کاراکتر کوتیشن " رو پاک کنم. ولی چون خودش بین دوتا کوتیشن دیگه هست ارور میده.
از دوستان کسی میتونه راهنمایی کنه
بیتا حکمت
پنج شنبه 19 شهریور 1394, 11:00 صبح
سلام

Dim StringWithQuotes As String = "Hello, I've got ""Quotes""!"

MessageBox.Show(StringWithQuotes)

MessageBox.Show(Replace(StringWithQuotes, """", ""))
samiasoft
پنج شنبه 19 شهریور 1394, 13:47 عصر
درود
شما بایستی این رو داخل یه تکست باکس وارد کنید و از اون فراخوانی کنید :

Replace(text1.text, text2.text, "")
roo.row
جمعه 20 شهریور 1394, 14:20 عصر
با سلام

در vb6 علامت " به معنای پایان رشته است

اگر شما می خواهید در دخل یک شته از " استفاده کنید باید یک " به قبل از آن اضافه کنید تا برنامه متوجه شود منظور شما خروج از رشته نبوده و " خود یک کاراکتر است چون بدینگونه برنامه ریخته شده
برای مثال برای نمایش آدرس فایلی که در مسیر C/F"f باید از C/F""f در رشته ها استفاده کرد
همانگونه که در سی شارپ برای نوشتن درایو :/C در رشته ها باید ://C را نوشت

با تشکر
vbhamed
جمعه 20 شهریور 1394, 19:58 عصر
سلام
از یکی از روشهای زیر استفاده نمایید :
1:
Text1 = Replace(Text1, """", "")

2:
Text1 = Replace(Text1, Chr$(34), "")

3:
Dim g$

g = """"
'or
g = Chr$(34)

Text1 = Replace(Text1, g, "")