1 Тема от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,227
  • Репутация : 0

Тема: Lotusscript - оставить только нужные символы в строке.

Этот скрипт оставляет в строке mystr только нужные символы - удаляя крокозяблы и всякие спецсимволы, анализируя Asc код каждого символа.

Sub Click(Source As Button)
    Print "---"
    Dim mystr As String, ascx As String, tmpstr  As String
    tmpstr= ""
    mystr = "19 ая АЯ az AZ!@#!(*&^(o№#%(*?)БЮ,/*-123"
    lenstr% = Len(mystr)
    For x=1 To lenstr%
        ascx =  Mid$(mystr,x,1) 
        If (Asc(ascx)>31)  And (Asc(ascx)<128) Or (Asc(ascx)>144)  And (Asc(ascx)<153) Or (Asc(ascx)>191)  And (Asc(ascx)<256) Then        
            tmpstr = tmpstr + ascx
        End If
    Next
    Print tmpstr
End Sub

А возникла проблема с такого вопроса:

Как преобразовать строку mystr (String) в массив, чтобы потом я мог пройтись по каждому символу строки?
For x=0 To Ubound (mystr)
Или как-то по другому можно? с помощю Len и mid

Поделиться