Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.14.83.223] |
|
Сообщ.
#1
,
|
|
|
Очень нужна функция фильтрации строки текста. Выкидование из неё символов: \%&[]\<>{}`~ Чем быстрее она будет работать, тем круче! Заранее сенкс!
|
Сообщ.
#2
,
|
|
|
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim sTemplate As String 'Replace the '\%&[]\<>{}`~' какие символы игнорировать sTemplate = "\%&[]\<>{}`~ " If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then KeyAscii = 0 End Sub |
Сообщ.
#3
,
|
|
|
Pasiba! No ja uze nashel reshenije
Function FilterSMS(byVal strLine As String) As String Dim strTmp As String, strOne As String Dim i As Integer For i = 1 To Len(strLine) strOne = Mid(strLine, i, 1) If strOne = "~" Then strOne = "\%7E" ElseIf strOne = "`" Then strOne = "\%60" ElseIf strOne = "!" Then strOne = "\%21" ElseIf strOne = "#" Then strOne = "\%23" End If strTmp = strTmp & strOne Next i FilterSMS = strTmp End Function |