PDA

View Full Version : سوال درباره توابع کار با متن



albalooband
جمعه 21 فروردین 1388, 18:14 عصر
چند تا سوال دارم:
چطور میتونم کاراکتر های space یک متن رو پاک کنم؟
چطور میتونم کاراکترهای عددی 0-9 رو از یک متن پاک کنم؟
چطور یک رشته رو معکوس کنم؟

M_P_1374
جمعه 21 فروردین 1388, 18:34 عصر
سوال اول و دومتون تکراریه ولی سول سومی رو میتونی با گذاشتن دو تا دکمه یا هر چیز دیگری و با استفاده از شروط ویبی حل کنی

vbhamed
جمعه 21 فروردین 1388, 19:01 عصر
سلام


Dim s$, i%

1
s = "this is a test"
s = Replace("this is a te st", " ", "")
MsgBox s

2
s = "my telephone is 0123456789, this is a test"
For i = 0 To 9
s = Replace(s, CStr(i), "")
Next
MsgBox s

3
s = "this is a test"
s = StrReverse(s)
MsgBox s