HiAsm
HiAsm
Вверх ↑
ФорумыМежду деломНужна помощь (обрезает в начале 0 нули при сохранении таблицы в exel) ← Ctrl12Ctrl →
Ответов: 223
Рейтинг: 24
#1: 2013-09-11 18:18:48 ЛС | профиль | цитата
Вот так все нормально
Возможно есть короче....
code_31800.txt
------------ Дoбавленo в 17.33:
извени не переключил клавиатуру
Add(MainForm,84792,231,98)
{
 Width=399
 Height=322
 Caption=""
 BorderStyle=1
 Position=1
 link(onCreate,1412200:doEnum,[])
}
Add(StrList,7598394,924,364)
{
 Strings=#44:<table border=1 cellspacing=8 cellpadding=9>|17:  <tr> <!-- 0 -->|25:    <th> фамилия  |0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|
 Point(doInsert)
}
Add(Button,3908359,266,175)
{
 Left=5
 Top=245
 Width=130
 Color=130
 Caption="Export"
 Data=Integer(1)
 link(onClick,2380734:doEvent1,[])
}
Add(StringTable,3505863,357,112)
{
 Left=1
 Top=15
 Width=385
 Height=225
 Columns=#5:Класс|0:|0:|0:|0:|0:|0:|
 Grid=0
 StaticColumn=0
 Point(Strings)
 Point(Matrix)
}
Add(FormatStr,9400969,588,182)
{
 Point(FString)
 link(onFString,11645309:doWork1,[(655,188)])
 link(Str2,13043453:Part,[(601,170)(517,170)(517,226)(433,226)])
}
Add(SDialog,12459310,875,399)
{
 Filter="*.xls"
 link(onExecute,7598394:doSave,[])
}
Add(ArrayEnum,1412200,308,112)
{
 link(onItem,3505863:doAdd,[])
 link(Array,5483496:Array,[])
}
Add(StrList,5483496,294,42)
{
 Strings=#41:Учебник 9 класс;000025;Иванов;01.09.2013 |40:Учебник 7 класс;000074;Петров;01.09.2013|41:Учебник 10 класс;000213;Пупкин;01.09.2013|42:Учебник 9 класс;000025;Сидоров;01.09.2013 |41:Учебник 7 класс;000074;Абрамов;01.09.2013|44:Учебник 10 класс;000213;Филоненко;01.09.2013|45:Учебник 9 класс;000025;Слободянюк;01.09.2013 |42:Учебник 7 класс;000074;Васильев;01.09.2013|42:Учебник 10 класс;000213;Хоменко;01.09.2013|41:Учебник 9 класс;000025;Усатюк;01.09.2013 |42:Учебник 7 класс;000074;Медведев;01.09.2013|40:Учебник 10 класс;000213;Орлов;01.09.2013|
 Point(doInsert)
}
Add(Str_Enum,13043453,420,182)
{
 Direct=1
 link(onEnum,3955365:doCompare,[])
 link(onEndEnum,13430366:doEvent1,[])
}
Add(If_else,3955365,497,182)
{
 Op2=Integer(3)
 link(onTrue,8639982:doData,[])
 link(onFalse,11645309:doWork2,[])
 link(Op1,13043453:NumSubStr,[(503,170)(465,170)(465,226)(426,226)])
}
Add(DoData,8639982,546,182)
{
 Data=String(&nbsp )
 link(onEventData,9400969:doString,[])
}
Add(HubEx,11645309,651,189)
{
 link(onEvent,9788555:doStrCatDlm,[])
}
Add(StrCatDelim,9788555,672,189)
{
 Delimiter=";"
 Point(doClear)
 link(onStrCatDlm,15953255:doText,[])
 link(Str2,9788555:Result,[(685,174)(714,174)(714,233)(678,233)])
}
Add(StrList,7585974,805,238)
{
 Strings=#44:<table border=1 cellspacing=8 cellpadding=9>|17:  <tr> <!-- 0 -->|25:    <th> фамилия  |0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|
 Point(doInsert)
}
Add(ArrayEnum,11372030,371,182)
{
 link(onItem,13043453:doEnum,[])
 link(Array,3505863:Strings,[])
}
Add(DoData,5456556,742,238)
{
 link(onEventData,7585974:doAdd,[])
 link(Data,15953255:Text,[])
}
Add(Memo,15953255,742,168)
{
 Left=395
 Top=15
 Width=1
 Height=1
 Visible=1
 AddType=1
 ScrollBars=3
}
Add(Hub,13430366,469,189)
{
 link(onEvent1,9788555:doClear,[(577,195)(577,202)])
 link(onEvent2,5456556:doData,[(613,202)(613,244)])
}
Add(Hub,2380734,322,175)
{
 OutCount=3
 link(onEvent1,7585974:doClear,[(570,181)(570,251)])
 link(onEvent2,11372030:doEnum,[])
 link(onEvent3,6789582:doEnum,[(578,195)(578,307)])
}
Add(Replace,4302511,770,364)
{
 SubStr=";"
 DestStr="<th>"
 link(onReplace,15224264:doString,[])
}
Add(ArrayEnum,6789582,819,301)
{
 link(onItem,4302511:doReplace,[(863,307)(863,348)(759,348)(759,370)])
 link(onEndEnum,12459310:doExecute,[(863,314)(863,405)])
 link(Array,7585974:Array,[])
}
Add(FormatStr,15224264,819,364)
{
 Mask="&nbsp <tr> <!--  %2 -->
   <th>%1  "
 Point(FString)
 link(onFString,7598394:doAdd,[])
 link(Str2,6789582:Index,[])
}


------------ Дoбавленo в 17.52:
Тут без ошибок
Add(MainForm,84792,231,98)
{
 Width=399
 Height=322
 Caption=""
 BorderStyle=1
 Position=1
 link(onCreate,1412200:doEnum,[])
}
Add(StrList,7598394,924,364)
{
 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(Button,3908359,266,175)
{
 Left=5
 Top=245
 Width=130
 Color=130
 Caption="Export"
 Data=Integer(1)
 link(onClick,2380734:doEvent1,[])
}
Add(FormatStr,9400969,588,182)
{
 Point(FString)
 link(onFString,11645309:doWork1,[(655,188)])
 link(Str2,13043453:Part,[(601,170)(517,170)(517,226)(433,226)])
}
Add(SDialog,12459310,875,399)
{
 Filter="*.xls"
 link(onExecute,7598394:doSave,[])
}
Add(ArrayEnum,1412200,308,112)
{
 link(onItem,16402455:doAdd,[])
 link(Array,10809805:Array,[])
}
Add(Str_Enum,13043453,420,182)
{
 Direct=1
 link(onEnum,3955365:doCompare,[])
 link(onEndEnum,13430366:doEvent1,[])
}
Add(If_else,3955365,497,182)
{
 Op2=Integer(3)
 link(onTrue,8639982:doData,[])
 link(onFalse,11645309:doWork2,[])
 link(Op1,13043453:NumSubStr,[(503,170)(465,170)(465,226)(426,226)])
}
Add(DoData,8639982,546,182)
{
 Data=String(&nbsp )
 link(onEventData,9400969:doString,[])
}
Add(HubEx,11645309,651,189)
{
 link(onEvent,9788555:doStrCatDlm,[])
}
Add(StrCatDelim,9788555,672,189)
{
 Delimiter=";"
 Point(doClear)
 link(onStrCatDlm,15953255:doText,[])
 link(Str2,9788555:Result,[(685,174)(714,174)(714,233)(678,233)])
}
Add(StrList,7585974,805,238)
{
 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,371,182)
{
 link(onItem,13043453:doEnum,[])
 link(Array,16402455:Strings,[])
}
Add(DoData,5456556,742,238)
{
 link(onEventData,7585974:doAdd,[])
 link(Data,15953255:Text,[])
}
Add(Memo,15953255,742,168)
{
 Left=395
 Top=15
 Width=1
 Height=1
 Visible=1
 AddType=1
 ScrollBars=3
}
Add(Hub,13430366,469,189)
{
 link(onEvent1,9788555:doClear,[(577,195)(577,202)])
 link(onEvent2,5456556:doData,[(613,202)(613,244)])
}
Add(Hub,2380734,322,175)
{
 OutCount=3
 link(onEvent1,7585974:doClear,[(570,181)(570,251)])
 link(onEvent2,11372030:doEnum,[])
 link(onEvent3,6789582:doEnum,[(578,195)(578,307)])
}
Add(Replace,4302511,770,364)
{
 SubStr=";"
 DestStr="<th>"
 link(onReplace,15224264:doString,[])
}
Add(ArrayEnum,6789582,819,301)
{
 link(onItem,4302511:doReplace,[(863,307)(863,348)(759,348)(759,370)])
 link(onEndEnum,12459310:doExecute,[(863,314)(863,405)])
 link(Array,7585974:Array,[])
}
Add(FormatStr,15224264,819,364)
{
 Mask="&nbsp <tr> <!--  %2 -->
   <th>%1  "
 Point(FString)
 link(onFString,7598394:doAdd,[])
 link(Str2,6789582:Index,[])
}
Add(StrList,10809805,294,35)
{
 Strings=#41:Учебник 9 класс;000025;Иванов;01.09.2013 |40:Учебник 7 класс;000074;Петров;01.09.2013|41:Учебник 10 класс;000213;Пупкин;01.09.2013|42:Учебник 9 класс;000025;Сидоров;01.09.2013 |41:Учебник 7 класс;000074;Абрамов;01.09.2013|44:Учебник 10 класс;000213;Филоненко;01.09.2013|45:Учебник 9 класс;000025;Слободянюк;01.09.2013 |42:Учебник 7 класс;000074;Васильев;01.09.2013|42:Учебник 10 класс;000213;Хоменко;01.09.2013|41:Учебник 9 класс;000025;Усатюк;01.09.2013 |42:Учебник 7 класс;000074;Медведев;01.09.2013|40:Учебник 10 класс;000213;Орлов;01.09.2013|
 Point(doInsert)
}
Add(StringTable,16402455,357,112)
{
 Left=1
 Top=15
 Width=385
 Height=225
 Columns=#0:|0:|0:|0:|
 Grid=0
 StaticColumn=0
 Point(Strings)
 Point(Matrix)
}

------------ Дoбавленo в 18.01:
Выслал не ту схему....
Add(MainForm,13427127,273,98)
{
 Width=399
 Height=322
 Caption=""
 BorderStyle=1
 Position=1
 link(onCreate,1412200:doEnum,[])
}
Add(StrList,7598394,966,364)
{
 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(Button,3908359,308,175)
{
 Left=5
 Top=245
 Width=130
 Color=130
 Caption="Export"
 Data=Integer(1)
 link(onClick,2380734:doEvent1,[])
}
Add(FormatStr,9400969,630,182)
{
 Point(FString)
 link(onFString,11645309:doWork1,[(697,188)])
 link(Str2,13043453:Part,[(643,170)(559,170)(559,226)(475,226)])
}
Add(SDialog,12459310,917,399)
{
 Filter="*.xls"
 link(onExecute,7598394:doSave,[])
}
Add(ArrayEnum,1412200,350,112)
{
 link(onItem,5173103:doAdd,[])
 link(Array,10809805:Array,[])
}
Add(Str_Enum,13043453,462,182)
{
 Direct=1
 link(onEnum,3955365:doCompare,[])
 link(onEndEnum,13430366:doEvent1,[])
}
Add(If_else,3955365,539,182)
{
 Op2=Integer(3)
 link(onTrue,8639982:doData,[])
 link(onFalse,11645309:doWork2,[])
 link(Op1,13043453:NumSubStr,[(545,170)(507,170)(507,226)(468,226)])
}
Add(DoData,8639982,588,182)
{
 Data=String(&nbsp )
 link(onEventData,9400969:doString,[])
}
Add(HubEx,11645309,693,189)
{
 link(onEvent,9788555:doStrCatDlm,[])
}
Add(StrCatDelim,9788555,714,189)
{
 Delimiter=";"
 Point(doClear)
 link(onStrCatDlm,15953255:doText,[])
 link(Str2,9788555:Result,[(727,174)(756,174)(756,233)(720,233)])
}
Add(StrList,7585974,847,238)
{
 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,413,182)
{
 link(onItem,13043453:doEnum,[])
 link(Array,5173103:Strings,[])
}
Add(DoData,5456556,784,238)
{
 link(onEventData,7585974:doAdd,[])
 link(Data,15953255:Text,[])
}
Add(Memo,15953255,784,168)
{
 Left=395
 Top=15
 Width=1
 Height=1
 Visible=1
 AddType=1
 ScrollBars=3
}
Add(Hub,13430366,511,189)
{
 link(onEvent1,9788555:doClear,[(619,195)(619,202)])
 link(onEvent2,5456556:doData,[(655,202)(655,244)])
}
Add(Hub,2380734,364,175)
{
 OutCount=3
 link(onEvent1,7585974:doClear,[(612,181)(612,251)])
 link(onEvent2,11372030:doEnum,[])
 link(onEvent3,6789582:doEnum,[(620,195)(620,307)])
}
Add(Replace,4302511,812,364)
{
 SubStr=";"
 DestStr="<th>"
 link(onReplace,15224264:doString,[])
}
Add(ArrayEnum,6789582,861,301)
{
 link(onItem,4302511:doReplace,[(905,307)(905,348)(801,348)(801,370)])
 link(onEndEnum,12459310:doExecute,[(905,314)(905,405)])
 link(Array,7585974:Array,[])
}
Add(FormatStr,15224264,861,364)
{
 Mask="  <tr> <!--  %2 -->
   <th>%1  "
 Point(FString)
 link(onFString,7598394:doAdd,[])
 link(Str2,6789582:Index,[])
}
Add(StrList,10809805,336,35)
{
 Strings=#41:Учебник 9 класс;000025;Иванов;01.09.2013 |40:Учебник 7 класс;000074;Петров;01.09.2013|41:Учебник 10 класс;000213;Пупкин;01.09.2013|42:Учебник 9 класс;000025;Сидоров;01.09.2013 |41:Учебник 7 класс;000074;Абрамов;01.09.2013|44:Учебник 10 класс;000213;Филоненко;01.09.2013|45:Учебник 9 класс;000025;Слободянюк;01.09.2013 |42:Учебник 7 класс;000074;Васильев;01.09.2013|42:Учебник 10 класс;000213;Хоменко;01.09.2013|41:Учебник 9 класс;000025;Усатюк;01.09.2013 |42:Учебник 7 класс;000074;Медведев;01.09.2013|40:Учебник 10 класс;000213;Орлов;01.09.2013|
 Point(doInsert)
}
Add(StringTable,5173103,399,112)
{
 Left=1
 Top=15
 Width=385
 Height=95
 Columns=#5:Класс|0:|0:|0:|
 Grid=0
 StaticColumn=0
 Point(Strings)
 Point(Matrix)
}


Проверил все нормально.
------------ Дoбавленo в 18.05:
На один елемент меньше
Add(MainForm,13427127,147,126)
{
 Width=399
 Height=322
 Caption=""
 BorderStyle=1
 Position=1
 link(onCreate,1412200:doEnum,[])
}
Add(StrList,7598394,840,392)
{
 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(Button,3908359,182,203)
{
 Left=5
 Top=245
 Width=130
 Color=130
 Caption="Export"
 Data=Integer(1)
 link(onClick,2380734:doEvent1,[])
}
Add(FormatStr,9400969,504,210)
{
 DataCount=1
 Mask="&nbsp %1"
 Point(FString)
 link(onFString,11645309:doWork1,[(571,216)])
 link(Str1,13043453:Part,[(510,198)(430,198)(430,254)(349,254)])
}
Add(SDialog,12459310,791,427)
{
 Filter="*.xls"
 link(onExecute,7598394:doSave,[])
}
Add(ArrayEnum,1412200,224,140)
{
 link(onItem,5173103:doAdd,[])
 link(Array,10809805:Array,[])
}
Add(Str_Enum,13043453,336,210)
{
 Direct=1
 link(onEnum,3955365:doCompare,[])
 link(onEndEnum,13430366:doEvent1,[])
}
Add(If_else,3955365,413,210)
{
 Op2=Integer(3)
 link(onTrue,9400969:doString,[])
 link(onFalse,11645309:doWork2,[])
 link(Op1,13043453:NumSubStr,[(419,198)(381,198)(381,282)(342,282)])
}
Add(HubEx,11645309,567,217)
{
 link(onEvent,9788555:doStrCatDlm,[])
}
Add(StrCatDelim,9788555,588,217)
{
 Delimiter=";"
 Point(doClear)
 link(onStrCatDlm,15953255:doText,[])
 link(Str2,9788555:Result,[(601,202)(630,202)(630,261)(594,261)])
}
Add(StrList,7585974,721,266)
{
 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,287,210)
{
 link(onItem,13043453:doEnum,[])
 link(Array,5173103:Strings,[])
}
Add(DoData,5456556,658,266)
{
 link(onEventData,7585974:doAdd,[])
 link(Data,15953255:Text,[])
}
Add(Memo,15953255,658,196)
{
 Left=395
 Top=15
 Width=1
 Height=1
 Visible=1
 AddType=1
 ScrollBars=3
}
Add(Hub,13430366,385,217)
{
 link(onEvent1,9788555:doClear,[(493,223)(493,230)])
 link(onEvent2,5456556:doData,[(529,230)(529,272)])
}
Add(Hub,2380734,238,203)
{
 OutCount=3
 link(onEvent1,7585974:doClear,[(486,209)(486,279)])
 link(onEvent2,11372030:doEnum,[])
 link(onEvent3,6789582:doEnum,[(494,223)(494,335)])
}
Add(Replace,4302511,686,392)
{
 SubStr=";"
 DestStr="<th>"
 link(onReplace,15224264:doString,[])
}
Add(ArrayEnum,6789582,735,329)
{
 link(onItem,4302511:doReplace,[(779,335)(779,376)(675,376)(675,398)])
 link(onEndEnum,12459310:doExecute,[(779,342)(779,433)])
 link(Array,7585974:Array,[])
}
Add(FormatStr,15224264,735,392)
{
 Mask="  <tr> <!--  %2 -->
   <th>%1  "
 Point(FString)
 link(onFString,7598394:doAdd,[])
 link(Str2,6789582:Index,[])
}
Add(StrList,10809805,210,63)
{
 Strings=#41:Учебник 9 класс;000025;Иванов;01.09.2013 |40:Учебник 7 класс;000074;Петров;01.09.2013|41:Учебник 10 класс;000213;Пупкин;01.09.2013|42:Учебник 9 класс;000025;Сидоров;01.09.2013 |41:Учебник 7 класс;000074;Абрамов;01.09.2013|44:Учебник 10 класс;000213;Филоненко;01.09.2013|45:Учебник 9 класс;000025;Слободянюк;01.09.2013 |42:Учебник 7 класс;000074;Васильев;01.09.2013|42:Учебник 10 класс;000213;Хоменко;01.09.2013|41:Учебник 9 класс;000025;Усатюк;01.09.2013 |42:Учебник 7 класс;000074;Медведев;01.09.2013|40:Учебник 10 класс;000213;Орлов;01.09.2013|
 Point(doInsert)
}
Add(StringTable,5173103,273,140)
{
 Left=1
 Top=15
 Width=385
 Height=95
 Columns=#5:Класс|0:|0:|0:|
 Grid=0
 StaticColumn=0
 Point(Strings)
 Point(Matrix)
}


------------ Дoбавленo в 18.13:
В компоненте FormatStr должно быть прописано &nbsp %1 .Пропиши и все заработает.
------------ Дoбавленo в 18.18:
&nbsр %1 .Пропиши и все заработает.
карма: 0

1
файлы: 1code_31800.txt [3.7KB] [259]
Голосовали:DataEntry
ФорумыМежду деломНужна помощь (обрезает в начале 0 нули при сохранении таблицы в exel) ← Ctrl12Ctrl →
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика