Обработка строк

[Tень]

Итак, попробую сформулировать вопрос:
Есть TextBox в который вводятся команды.
Команды выглядят так:
//Команда Параметр=значение Параметр=Значение ... ... Параметр=Значение ...
Тоесть таких Параметров с значением может быть сколько угодно(от пользователя зависит)
Но! Все возможные параметры любой из возможных команд мне известны. Например есть всего три команды и у каждой несколько значений:
Команда - Привет
Её значения - Шрифт-такой-то
Цвет - такойто
Размер - такой-то
положение - такое-то
И всё, больше не определено, а значит и быть не может.

И так три раза с разными значениями.(Разные команды, у каждой разное количество разных параметров и у каждого параметра есть своё значение)

И есть Процедуры обработки команд. Например:
Private Sub Привет ( ... ... )
... ...
End Sub

Как мне сделать так, что бы эта строка обработалась, проверилась на наличие ошибок в названиях команды и аргументов(и если ошибка, то перекинула на функцию обработки ошибок) И в случае если ошибки не оказалось отправила меня на обработку процыдуры соответствующей введённой мною команды + !! присвоив Параметрам(определённым ранее) значения, стоящие после знака "=". Вот.

[Cyrax]

ну примерно так:

Код: Выделить всё

Sub GetCmd(ByVal strCmd As String) ' первоначальная обработка команды
  ' strCmd строка содержащая введенную команду вместе с параметрами
  Dim strCommand As String ' сама команда
  Dim strParameters As String ' параметры
  strCommand = Split(strCmd, " ")(0) ' выделяем команду из strCmd
  ' функция Split() используется для разбиения строки, содержащей разделители на массив подстрок (без разделителей)
 
  ' выделяем параметры
  strParameters = Mid$(strCmd, Len(strCommand) + 2)

  ' теперь определяем что у нас за команда и вызываем соответствующую ей процедуру обработки
  Select Case str Command
  Case "commsnd1"
    Call Command1Sub (strParameters)
  End Select
  ' сделай столько Case, сколько у тебя комманд
End Sub

' ну и сама процедура разбора комманд
Sub Command1Sub(ByVal sParam As String)
  Dim ArrParam() As String ' массив под все параметры (обязательно динамический)
  Dim strParam As String ' имя параметра
  Dim strValue As String ' его значение

  Dim i As Integer ' счетчик для цикла

  ArrParam = Split(sParam, " ") ' загнали параметры в массив
  ' теперь в цыкле проходим по всем параметрам
  For i = 0 To Ubound(ArrParam) ' -1 (про минус 1 не помню. если будет ругатся, значит единицу надо отнять)
    strParam = Split(ArrParam(i), "=")(0)
    strValue =Split(ArrParam(i), "=")(1)
    ' получили временные переменные с именем параметра и значением
    ' даальше уже думай сам как их использовать
  Next i
End Sub

вот такой примерный набросок получился...

[Urvin]

Код: Выделить всё

dim a (100)
a = split(text1.text, " ")    'Выделение блоков
if a(0) = "PrintText" then
    i=1
    do until a(i) = ""
        s=a(i)
        s1 = left(s,instr(s,"=")
        s2 = right(s,instr(s,"=")
        if s1 = "text" then
           print s2
        elseif s1="font" then
           me.fontName = s2
        end if
        i=i+1
    loop
else ...
end if

И так далее...