Tad писал(а):
Да ты красавчик....))))
Очевидное всегда рядом....
------------ Дoбавленo в 22.50:
Chipset писал(а):
Вот так все нормальноВозможно есть короче....
code_31800.txt
------------ Дoбавленo в 17.33:
извени не переключил клавиатуру
код
------------ Дoбавленo в 17.52:
Тут без ошибок
код
------------ Дoбавленo в 18.01:
Выслал не ту схему....
код
Проверил все нормально.
------------ Дoбавленo в 18.05:
На один елемент меньше
код
------------ Дoбавленo в 18.13:
В компоненте FormatStr должно быть прописано %1 .Пропиши и все заработает.
------------ Дoбавленo в 18.18:
&nbsр %1 .Пропиши и все заработает.
Ситуация в чем может быть проблема что прохожу уже по 20 кругу
Если в таблице 3 столбца то все ок я сделал 8 ну еще разные параметры тут же перестали работать 0 и шрифт крякозябрами пошел(((
------------ Дoбавленo в 22.55:
Add(MainForm,2953706,21,105)
{
Width=415
link(onCreate,3693186:doEnum,[(103,125)(103,146)])
}
Add(StrList,20400,805,399)
{
Strings=#44:<table border=1 cellspacing=8 cellpadding=9>|17: <tr> <!-- 0 -->|9: <th> |0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|
Point(doInsert)
}
Add(FormatStr,2801275,469,217)
{
DataCount=1
Mask=" %1"
Point(FString)
link(onFString,11645309:doWork1,[(536,223)])
link(Str1,13043453:Part,[(475,205)(395,205)(395,261)(314,261)])
}
Add(SDialog,12574998,756,434)
{
Filter="Exel file|*.xls"
link(onExecute,20400:doSave,[])
}
Add(Str_Enum,13043453,301,217)
{
Direct=1
link(onEnum,3955365:doCompare,[])
link(onEndEnum,13430366:doEvent1,[])
}
Add(If_else,3955365,378,217)
{
Op2=Integer(3)
link(onTrue,2801275:doString,[])
link(onFalse,11645309:doWork2,[])
link(Op1,13043453:NumSubStr,[(384,205)(346,205)(346,289)(307,289)])
}
Add(HubEx,11645309,532,224)
{
link(onEvent,9788555:doStrCatDlm,[])
}
Add(StrCatDelim,9788555,553,224)
{
Delimiter=";"
Point(doClear)
link(onStrCatDlm,15953255:doText,[])
link(Str2,9788555:Result,[(566,209)(595,209)(595,268)(559,268)])
}
Add(StrList,7585974,686,273)
{
Strings=#44:<table border=1 cellspacing=8 cellpadding=9>|17: <tr> <!-- 0 -->|8: <th>|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|
Point(doInsert)
}
Add(ArrayEnum,11372030,252,217)
{
link(onItem,13043453:doEnum,[])
link(Array,5173103:Strings,[])
}
Add(DoData,5456556,623,273)
{
link(onEventData,7585974:doAdd,[])
link(Data,15953255:Text,[])
}
Add(Memo,15953255,623,203)
{
Left=395
Top=15
Width=1
Height=1
Visible=1
AddType=1
ScrollBars=3
}
Add(Hub,13430366,350,224)
{
link(onEvent1,9788555:doClear,[(458,230)(458,237)])
link(onEvent2,5456556:doData,[(494,237)(494,279)])
}
Add(Hub,2380734,203,210)
{
OutCount=3
link(onEvent1,7585974:doClear,[(451,216)(451,286)])
link(onEvent2,11372030:doEnum,[])
link(onEvent3,12777810:doEnum,[(459,230)(459,342)])
}
Add(Replace,4302511,651,399)
{
SubStr=";"
DestStr="<th>"
link(onReplace,15224264:doString,[])
}
Add(ArrayEnum,12777810,700,336)
{
link(onItem,4302511:doReplace,[(744,342)(744,383)(640,383)(640,405)])
link(onEndEnum,12574998:doExecute,[(744,349)(744,440)])
link(Array,7585974:Array,[])
}
Add(FormatStr,15224264,700,399)
{
Mask=" <tr> <!-- %2 -->
<th>%1 "
Point(FString)
link(onFString,20400:doAdd,[])
link(Str2,12777810:Index,[])
}
Add(StringTable,5173103,238,147)
{
Left=1
Top=15
Width=385
Height=95
Columns=#5:Класс|1:2|1:3|1:4|1:5|1:6|1:7|1:8|0:|0:|0:|
Grid=0
StaticColumn=0
Point(Strings)
Point(Matrix)
}
Add(StrList,10809805,154,56)
{
Strings=#52:Учебник 9 класс;000025;Иванов;01.09.2013;2;2;2;Пара |51:Учебник 7 класс;000074;Петров;01.09.2013;2;2;2;Пара|52:Учебник 10 класс;000213;Пупкин;01.09.2013;2;2;2;Пара|53:Учебник 9 класс;000025;Сидоров;01.09.2013;2;2;2;Пара |52:Учебник 7 класс;000074;Абрамов;01.09.2013;2;2;2;Пара|55:Учебник 10 класс;000213;Филоненко;01.09.2013;2;2;2;Пара|56:Учебник 9 класс;000025;Слободянюк;01.09.2013;2;2;2;Пара |53:Учебник 7 класс;000074;Васильев;01.09.2013;2;2;2;Пара|53:Учебник 10 класс;000213;Хоменко;01.09.2013;2;2;2;Пара|52:Учебник 9 класс;000025;Усатюк;01.09.2013;2;2;2;Пара |53:Учебник 7 класс;000074;Медведев;01.09.2013;2;2;2;Пара|51:Учебник 10 класс;000213;Орлов;01.09.2013;2;2;2;Пара|
Point(doInsert)
}
Add(ArrayEnum,3693186,154,140)
{
link(onItem,5173103:doAdd,[(212,146)(212,153)])
link(Array,10809805:Array,[(160,124)(174,124)])
}
Add(Button,4380803,112,210)
{
Left=330
Top=115
Caption="Start"
link(onClick,2380734:doEvent1,[])
}
Вот такой шрифт Àâòîìàãíèòîëà
------------ Дoбавленo в 23.53:
Шрифт эксель говорит что Турецкий win-1254 пробывал с помощью Charset CP1254 to CP1251 не получилось
------------ Дoбавленo в 00.32:
Смотришь как страницу HTML все отлично в EXEL полная ж...а