Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
20.10.2005, 11:44
|
|||
|---|---|---|---|
Поменять кодировку HTML! |
|||
|
#18+
Доброго дня всем! Вот такой вопросик! Как из Powera 7.0, можно открыть Html -файл и сохранить его (SaveAs)предварительно поменяв кодировку, мне нужно поставить Сirilic (Windows) к примеру! Для чего это нужно , для того чтобы не было проблем с русскими надписями, с ним потом usera в Excel- е работают(фильтры и всё такое)! Я задавал такой вопрос раннее, но корректно мне на него не ответили, очень рад буду примерам! Спасибо! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
20.10.2005, 16:41
|
|||
|---|---|---|---|
|
|||
Поменять кодировку HTML! |
|||
|
#18+
бацаешь такую функцию global function integer clear_html (string filename);long i1,i4,i5 string arr[],arr1[],s1,s2 boolean f1,f2 if alltrim(filename)="" then return 0 end if if not fileexists(filename) then return -1 end if file2array(alltrim(filename),arr) if alltrim(my_headhtml)<>"" then aadd(arr1,alltrim(my_headhtml)) end if f1=false f2=false for i1=1 to upperbound(arr) if upper(alltrim(arr[i1]))<>"<TR>" then if pos(upper(alltrim(arr[i1])),"<TH")>0 and f2=false then f1=true if pos(upper(alltrim(arr[i1])),"<TD>")>0 then s2="" s1=arr[i1] do while true i4=pos(upper(s1),"<TD>") if i4>0 then if i4>1 then s2+=mid(s1,1,i4 - 1) end if s1=mid(s1,i4+len("<TD>")) else s2+=s1 exit end if loop arr[i1]=s2 end if else if f1 then f2=true end if end if aadd(arr1,alltrim(arr[i1])) end if next array2file(arr1,filename) return 0 end function переменная my_headhtml примерно типа равна <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1251"> а функции file2array и array2file понятны ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
20.10.2005, 18:28
|
|||
|---|---|---|---|
Поменять кодировку HTML! |
|||
|
#18+
Некрасиво! Наверняка есть более изящное решение! Но всё равно спасибо! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=15&tablet=1&tid=1338075]: |
0ms |
get settings: |
10ms |
get forum list: |
19ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
85ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
46ms |
get tp. blocked users: |
1ms |
| others: | 250ms |
| total: | 429ms |
| 0 / 0 |
