Вопрос № 152538: Здравствуйте! У меня вопрос: как в VB6 можно обратиться с КОНКРЕТНОМУ символу строки, т.е. изменить или считать КОНКРЕТНЫЙ символ строки? По крайней мере, в Паскале это выглядит так: S[i], где s - строка, а i - номер символа, как это сделать в ...
Вопрос № 152.538
Здравствуйте! У меня вопрос: как в VB6 можно обратиться с КОНКРЕТНОМУ символу строки, т.е. изменить или считать КОНКРЕТНЫЙ символ строки? По крайней мере, в Паскале это выглядит так: S[i], где s - строка, а i - номер символа, как это сделать в VB6 не знаю, подскажите, пожалуйста. Спасибо!
Отправлен: 01.12.2008, 19:28
Вопрос задал: AkaProc (статус: 4-й класс)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 9)
Отвечает: AlexanderZh
Здравствуйте, AkaProc! Воспользоватся функцей или командой MID()! Mid( Target As String, Start As Integer[, Length As Integer] ) = StringExpression или StringExpression = Mid( str As String, Start As Integer[, Length As Integer])
пример:
A="BASIC" mid(A,2)="x" Debug.print A Debug.print mid (A,3,1)
---------- BxSIC S
--------- Плохому танцору - один раз отрежь...
Ответ отправил: AlexanderZh (статус: Специалист)
Ответ отправлен: 01.12.2008, 19:54
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 237269 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5 Комментарий оценки: Спасибо!
Отвечает: Иноземцева Ольга Степановна
Здравствуйте, AkaProc! Получить i-й символ: ch1 = mid(s,i,1)
Изменить i-й символ на сh2: s = left(s,i-1) & ch2 & mid(s,i+1)
изменить все символы ch1 на ch2 в строке s: s=replace(s,ch1,ch2)
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.