Нужна помощь (обрезает в начале 0 нули при сохранении таблицы в exel)

Вверх ↑

Форумы Между деломНужна помощь (обрезает в начале 0 нули при сохранении таблицы в exel) ← Ctrl12Ctrl →

Этот топик читают: Гость

Гость

Ответов: 17029

Рейтинг: 0

#1: 2013-09-08 00:24:28 правка | ЛС | профиль | цитата

Редактировалось 5 раз(а), последний 2021-05-21 08:43:32

карма: 0

Ответов: 16884

Рейтинг: 1239

#2: 2013-09-08 00:36:41 ЛС | профиль | цитата

37.215.16.159,
Просто 00000251 это строка, а сохраняешь её как число.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Голосовали:

DataEntry

Гость

Ответов: 17029

Рейтинг: 0

#3: 2013-09-08 00:43:42 правка | ЛС | профиль | цитата

Редактировалось 5 раз(а), последний 2021-05-21 08:43:32

карма: 0

Ответов: 113

Рейтинг: 15

#4: 2013-09-08 01:42:40 ЛС | профиль | цитата

Всю голову сломал уже)))

------------ Дoбавленo в 01.42:

Tad писал(а):

Просто 00000251 это строка, а сохраняешь её как число.

Будем ждать помощи пото му что мислей больше нету

карма: 0

Ученик

Ответов: 16884

Рейтинг: 1239

#5: 2013-09-08 08:17:16 ЛС | профиль | цитата

DataEntry, уточни. Работаешь из HiAsn или в Excel ?
Если в Excel, то выдели колонку > ПКИ > Формат ячеек > Все > Текст.
Как-то так. Дааавно Excel-ем не пользовался.

Если из HiAsm-а, то нужно смотреть схему.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 186

Рейтинг: 9

#6: 2013-09-08 10:53:05 ЛС | профиль | цитата

DataEntry, я так понял, тебе нужно сделать экспорт таблицы в xls?

При этом ты ее сохраняешь как HTML и изменяешь формат на .xls, по умолчанию Excel выставляет "Общий" формат ячеек и понимает 00000251 как число.

Tad, правильно указал, надо показать что 00000251 текст, посмотрел в HTML, сходу такой возможности не нашел.

Можно воспользоваться этим http://forum.hiasm.com/forum.html?q=3&p=65621, или поковырять xml.

карма: 0

Голосовали:

DataEntry

Ответов: 16884

Рейтинг: 1239

#7: 2013-09-08 14:45:17 ЛС | профиль | цитата

Chipset писал(а):

тебе нужно сделать экспорт таблицы в xls

37.215.16.159 писал(а):

При сохранении таблицы

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 113

Рейтинг: 15

#8: 2013-09-08 16:17:55 ЛС | профиль | цитата

Ребята спасибо что откликнулись...

Tad писал(а):

Можно воспользоваться этим http://forum.hiasm.com/forum.html?q=3&p=65621, или поковырять xml.

У меня тот пример не работает нажимаю подключить и тишина....

Впринцепе есть фиксированная длинна 7 знаков выглядит примеру так 0000897 у меня после експорта 897 есть ли возможность при экспорте добавить нули к числу что бы вообщем получилось 7 знаков?

с чего начать такую процедуру загрузил сижу даже не знаю с чего начать есть у кого какие идеи

карма: 0

Ученик

Ответов: 16884

Рейтинг: 1239

#9: 2013-09-08 16:26:53 ЛС | профиль | цитата

DataEntry, ты по человечески можешь ответить : Работаешь из HiAsn или в Excel ?

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 113

Рейтинг: 15

#10: 2013-09-08 16:36:12 ЛС | профиль | цитата

Tad писал(а):

DataEntry, ты по человечески можешь ответить : Работаешь из HiAsn или в Excel ?

HIASM!

карма: 0

Ученик

Ответов: 16884

Рейтинг: 1239

#11: 2013-09-08 16:45:47 ЛС | профиль | цитата

Кусок схеммы давай.
Просто текстовая колонка должна передаваться в кавычках.

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 113

Рейтинг: 15

#12: 2013-09-08 22:07:14 ЛС | профиль | цитата

Ну Вот попробывал кавычки подставить все равно

Add(MainForm,1350592,420,63)
{
 Width=422
 Height=322
 Caption="Библиотека 7 школа"
 BorderStyle=1
 Position=1
 link(onCreate,1412200:doEnum,[])
}
Add(StrList,7598394,728,301)
{
 Strings=#44:<table border=1 cellspacing=8 cellpadding=9>|17:  <tr> <!-- 0 -->|47:    <th> РЈС‡РµР±РЅРёРє  <th>  РќРѕРјРµСЂ  <th>|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|
 Point(doInsert)
}
Add(Button,3908359,567,210)
{
 Left=5
 Top=245
 Width=130
 Caption="Export"
 link(onClick,6789582:doEnum,[])
}
Add(StringTable,3505863,630,140)
{
 Left=1
 Top=15
 Width=385
 Height=95
 Columns=#7:Учебник|15:Номер в журнале|6:Ученик|0:|0:|0:|
 Grid=0
 StaticColumn=0
 Point(Strings)
 Point(Matrix)
}
Add(Replace,13404008,595,301)
{
 SubStr=";"
 DestStr="<th> "
 link(onReplace,9400969:doString,[])
}
Add(ArrayEnum,6789582,644,210)
{
 link(onItem,13404008:doReplace,[(688,216)(688,262)(583,262)(583,307)])
 link(onEndEnum,12459310:doExecute,[(692,223)(692,398)])
 link(Array,3505863:Strings,[])
}
Add(FormatStr,9400969,644,301)
{
 Mask="<tr> <!-- "%2" -->
   <th>%1  "
 Point(FString)
 link(onFString,7598394:doAdd,[])
 link(Str2,6789582:Index,[])
}
Add(SDialog,12459310,707,392)
{
 Filter="Файл Exel|*.xls"
 link(onExecute,7598394:doSave,[(856,398)(856,321)(716,321)(716,342)])
}
Add(ArrayEnum,1412200,511,77)
{
 link(onItem,3505863:doAdd,[(590,83)(590,146)])
 link(Array,5483496:Array,[(517,65)(587,65)(587,120)(657,120)])
}
Add(StrList,5483496,637,56)
{
 Strings=#29:Учебник 9 класс;000025;Иванов|29:Учебник 7 класс;000074;Петров|27:Учебник 10 класс;000213;Тад|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|3:3;0|21:000021;РќРµРїРѕРЅРёРј|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|0:|
 Point(doInsert)
}

Add(MainForm,1350592,420,63)
{
Width=422
Height=322
Caption="Библиотека 7 школа"
BorderStyle=1
Position=1
link(onCreate,1412200:doEnum,[])
}
Add(StrList,7598394,728,301)
{
Strings=#44:<table border=1 cellspacing=8 cellpadding=9>|17: <tr> |47: <th> РЈС‡РµР±РЅРёРє <th> РќРѕРјРµСЂ <th>|0

Point(doInsert)
}
Add(Button,3908359,567,210)
{
Left=5
Top=245
Width=130
Caption="Export"
link(onClick,6789582:doEnum,[])
}
Add(StringTable,3505863,630,140)
{
Left=1
Top=15
Width=385
Height=95
Columns=#7:Учебник|15:Номер в журнале|6:Ученик|0

Grid=0
StaticColumn=0
Point(Strings)
Point(Matrix)
}
Add(Replace,13404008,595,301)
{
SubStr=";"
DestStr="<th> "
link(onReplace,9400969:doString,[])
}
Add(ArrayEnum,6789582,644,210)
{
link(onItem,13404008:doReplace,[(688,216)(688,262)(583,262)(583,307)])
link(onEndEnum,12459310:doExecute,[(692,223)(692,398)])
link(Array,3505863:Strings,[])
}
Add(FormatStr,9400969,644,301)
{
Mask="<tr> 
<th>%1 "
Point(FString)
link(onFString,7598394:doAdd,[])
link(Str2,6789582:Index,[])
}
Add(SDialog,12459310,707,392)
{
Filter="Файл Exel|*.xls"
link(onExecute,7598394:doSave,[(856,398)(856,321)(716,321)(716,342)])
}
Add(ArrayEnum,1412200,511,77)
{
link(onItem,3505863:doAdd,[(590,83)(590,146)])
link(Array,5483496:Array,[(517,65)(587,65)(587,120)(657,120)])
}
Add(StrList,5483496,637,56)
{
Strings=#29:Учебник 9 класс;000025;Иванов|29:Учебник 7 класс;000074;Петров|27:Учебник 10 класс;000213;Тад|0

3:3;0|21:000021;РќРµРїРѕРЅРёРј|0

Point(doInsert)
}

карма: 0

Ученик

Ответов: 16884

Рейтинг: 1239

#13: 2013-09-08 23:47:03 ЛС | профиль | цитата

Кончаем дурью маяться :
code_31774.txt
Сохраняем в формате *.csv

При открытии файла в Excel,
1. выбираем тип разделителя ';'
2. и назначаем формат колонок текст ( вместо Стандартный)

Получаем

mycsv.png

DataEntry, [flood]спасибо, что посадил меня в 10-й класс.[/flood]

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

файлы: 2

code_31774.txt [964B] [452], mycsv.png [6.8KB] [850]

Ответов: 8930

Рейтинг: 823

#14: 2013-09-09 00:04:35 ЛС | профиль | цитата

DataEntry, а Excel какой у Вас, 2003 или старше? (расширение *.xls или другое? )
Если 2003, то из HiAsm-а можно непосредственно в Excel и читать, и писать, и что угодно делать, примеров на форуме много

карма: 19

Ответов: 16884

Рейтинг: 1239

#15: 2013-09-09 00:29:24 ЛС | профиль | цитата

Леонид, если честно, то я не понимаю зачем тут вообще нужен Excel ?
Если нужен печатный документ, то , благодаря nesco, тоже без проблем :


Add(MainForm,1350592,119,168)
{
 Width=1003
 Height=322
 Caption="Библиотека 7 школа"
 BorderStyle=1
 Position=1
 link(onCreate,1412200:doEnum,[])
}
Add(Button,3908359,112,252)
{
 Left=20
 Top=250
 Width=95
 Caption="Сохранить"
 link(onClick,4648286:doExecute,[])
}
Add(ArrayEnum,1412200,210,182)
{
 link(onItem,9459787:doMTString,[])
 link(onEndEnum,15435863:doColAction,[(263,195)(263,216)])
 link(Array,5483496:Array,[])
}
Add(StrList,5483496,196,112)
{
 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(MTStrTbl,11546581,336,126)
{
 Left=15
 Top=15
 Width=450
 Height=215
 Name="tab"
 Columns=#7:Учебник|15:Номер в журнале|6:Ученик|4:Дата|0:|0:|0:|
 Grid=0
}
Add(MST_RowAction,11319082,336,168)
{
 MSTControl="tab"
}
Add(MT_String,9459787,280,168)
{
 link(onResult,11319082:doRowAction,[])
}
Add(MST_ColAction,15435863,336,210)
{
 Action=9
 MSTControl="tab"
}
Add(MST_HTML,12336260,189,294)
{
 TitleText="Библиотека 7-й школы.

Ведомость выдачи учебников. "
 TitleFont=[MS Sans Serif,10,1,0,1]
 HeadFont=[MS Sans Serif,10,1,0,1]
 NoteText="

Выдал _________________________"
 MSTControl="tab"
 link(onTabToHTML,11234646:doFromText,[(303,300)(303,335)])
}
Add(MST_Save,16413624,336,252)
{
 FileName="mycsv.csv"
 SaveColProp=1
 MSTControl="tab"
}
Add(Button,5902944,112,336)
{
 Left=335
 Top=250
 Caption="Печать"
 link(onClick,11234646:doPrint,[])
}
Add(Button,6853432,112,294)
{
 Left=205
 Top=250
 Width=70
 Caption="Просмотр"
 link(onClick,12336260:doTabToHTML,[])
}
Add(WebBrowser,11234646,336,301)
{
 Left=475
 Top=15
 Width=500
 Height=215
 Point(doFromText)
 Point(doPrint)
}
Add(SDialog,4648286,189,252)
{
 Filter="Файлы Excel|*.csv"
 link(onExecute,16413624:doSave,[])
}

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Форумы Между деломНужна помощь (обрезает в начале 0 нули при сохранении таблицы в exel) ← Ctrl12Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)