Рисунок 1 Рисунок 2 |
Функция TranslateImg(Str) Start=instr(str, "[picture]") 'Проверяем начальную позицию метки. Если start=0, то выходим из функции 'Начальная позиция равна 0, что означает, что такой метки нет, то программа завершается End=instr( start, str,"[/ Picture]" 'Проверьте положение конечной метки, которая появляется после начальной позиции. Если end=0, выйдите из функции 'Позиция конечной метки равна 0, что означает отсутствие конечной метки и. программа завершается MidStr=mid(str, start+4, end-start-4) 'Отмечаем контент посередине. replaceStr=mid(str, start, end-start+5) 'Отмечаем контент посередине знаком в качестве заменяемого содержимого Str=replace(instr, replaceStr,"<img src= ”&MidStr&”>”) 'Перевести разметку в HTML TranslateImg Str 'Выполнить эту функцию рекурсивно Конечная функция |