Работа со строками

[Tok]

Хочу обрезать начало строки из Текстбокса (c:\programs\myprog\1.exe) и только если есть в строке "c:\programs\". Но знаю только как удалить:

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

Dim VarText$
Dim VarLen&

VarText = Text1.Text
VarLen = Len("c:\programs\") 'тут я вычисляю кол-во символов

    Text1.Text = Mid(VarText, InStr(VarText, "c:\programs\") + VarLen)



Посоветуйте как сделать это грамотнее и проще.

ps
Блин, никак не врубаюсь с этими Mid, InStr и т.п.

[Bethy]

Попробуй так:

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

Dim VarText$
Dim VarLen&

VarText = Text1.Text
VarLen = Len("c:\programs\") 'тут ты вычисляешь кол-во символов
if inStr(1, VarText, "c:\programs\")>0 then Text1.Text = Mid(VarText, varLen)


[Zer]

Хмм... А чем отличается STR$ от inSTR ???

[Шурик]

Str - возвращает строковое представление числа.
InStr - возвращает позицию первой найденной подстроки в строке.