HiAsm
HiAsm
Вверх ↑
ФорумыМежду деломНужна помощь (обрезает в начале 0 нули при сохранении таблицы в exel) ← Ctrl12Ctrl →
Этот топик читают: Гость
Ответов: 113
Рейтинг: 15
#16: 2013-09-11 10:24:59 ЛС | профиль | цитата
Tad писал(а):
При открытии файла в Excel,
1. выбираем тип разделителя ';'
2. и назначаем формат колонок текст ( вместо Стандартный)


У меня к сожалению нули ни прибавились при изменении формата столбца ((
------------ Дoбавленo в 10.24:
Леонид писал(а):
DataEntry, а Excel какой у Вас, 2003 или старше? (расширение *.xls или другое? )
Если 2003, то из HiAsm-а можно непосредственно в Excel и читать, и писать, и что угодно делать, примеров на форуме много



Версия 2010 примеры вроде все облазил ...
карма: 0
Ученик
0
Ответов: 758
Рейтинг: 112
#17: 2013-09-11 10:41:33 ЛС | профиль | цитата
DataEntry, Попробуй поставить перед значениями знак апострофа ('). В EXCEL он выставит в ячейке текстовый формат принудительно и отображаться не будет.
карма: 1

0
Ответов: 113
Рейтинг: 15
#18: 2013-09-11 11:24:34 ЛС | профиль | цитата
miver писал(а):
DataEntry, Попробуй поставить перед значениями знак апострофа ('). В EXCEL он выставит в ячейке текстовый формат принудительно и отображаться не будет


И так сяк ё-ма-ё все равно хоть ты лопни ))) без нулей.....
карма: 0
Ученик
0
Ответов: 8930
Рейтинг: 823
#19: 2013-09-11 11:58:59 ЛС | профиль | цитата
DataEntry, если Ваши индексы записывать не в виде "000027", а подставив в него любой символ не число, например, " 000027" или "000027 " или "'000027", то Excel будет воспринимать эту констукцию как текст.
карма: 19

0
Ответов: 223
Рейтинг: 24
#20: 2013-09-11 12:27:41 ЛС | профиль | цитата

Привет DataEntry так должно получиться...
code_31798.txt
карма: 0

1
файлы: 1code_31798.txt [1.7KB] [351]
Голосовали:DataEntry
Ответов: 113
Рейтинг: 15
#21: 2013-09-11 13:56:41 ЛС | профиль | цитата
wasya писал(а):
Привет DataEntry так должно получиться...
code_31798.txt


Привет ))) Супер буду разбираться...

Вопросик почему при копировании схем вместо русского абра-кадабра тоже и при создании файла в xls по примеру???
карма: 0
Ученик
0
Ответов: 223
Рейтинг: 24
#22: 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] [260]
Голосовали:DataEntry
Ответов: 186
Рейтинг: 9
#23: 2013-09-12 05:31:15 ЛС | профиль | цитата
DataEntry писал(а):
Вопросик почему при копировании схем вместо русского абра-кадабра тоже и при создании файла в xls по примеру???

У меня так же в Хроме, на IE нормально с кодировкой, а хром чёт подводит.
Мне тоже интересно узнать, можно ли это исправить.
Решение, скачивать код как txt файл, тогда все нормально.

wasya писал(а):
&nbsр %1 .Пропиши и все заработает.

&nbsр и правда срабатывает, и воротить ничего не пришлось, хороший способ.
карма: 0

0
Ответов: 113
Рейтинг: 15
#24: 2013-09-12 10:32:52 ЛС | профиль | цитата
Красавцы... Спасибо не бросили!
карма: 0
Ученик
0
Ответов: 113
Рейтинг: 15
#25: 2013-09-15 17:32:33 ЛС | профиль | цитата
Так тока ногами не бить

Господа Все что выше было разобрано теперь работает просто на ура безмерно благодарен за помощь....

Но ситуация в следующем пока то не работало накопилось данных в формате чисел 256,278,17 но они должны быть обязательно с 0 (нулями впереди) общая
длинна 7 знаков....

Каким образом можно автоматически подставлять 0 что бы в итоге получалось 0000256, 0000278, 0000017....

Пытаюсь сделать схему ... жесть стыдно выкладывать так как оттолкнуться не отчего ....

Подскажите....
карма: 0
Ученик
0
Ответов: 16884
Рейтинг: 1239
#26: 2013-09-15 17:48:36 ЛС | профиль | цитата 

Add(MainForm,2953706,329,91)
{
}
Add(Convertor,12204953,266,91)
{
 Digits=7
 SymbolFill="0"
 link(onResult,2953706:doCaption,[])
}
Add(Button,16550058,203,91)
{
 Left=165
 Top=80
 Data=Integer(1)
 link(onClick,12204953:doConvert,[])
}

}
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:DataEntry
Ответов: 113
Рейтинг: 15
#27: 2013-09-16 00:32:05 ЛС | профиль | цитата
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.29:
Вот такой шрифт Àâòîìàãíèòîëà
------------ Дoбавленo в 23.53:
Шрифт эксель говорит что Турецкий win-1254 пробывал с помощью Charset CP1254 to CP1251 не получилось
------------ Дoбавленo в 00.32:
Смотришь как страницу HTML все отлично в EXEL полная ж...а
карма: 0
Ученик
0
27
ФорумыМежду деломНужна помощь (обрезает в начале 0 нули при сохранении таблицы в exel) ← Ctrl12Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика