Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.02;
Скачать: CL | DM;

Вниз

Скажите как юзать параметр FieldInfo в методе OpenText   Найти похожие ветки 

 
TankMan ©   (2005-05-06 07:56) [0]

что используется в компоненте TExcelApplication...
А конкретно хотелось бы узнать, как заполнять и объявлять такой вот параметр, в VBA показывает что это (FieldInfo) массив массивов... но ведь это variant...


 
YurikGL ©   (2005-05-06 09:19) [1]

Переменной типа variant можно присвоить все что угодно.
Ты лучше скажи зачем тебе это надо.


 
TankMan ©   (2005-05-10 06:29) [2]

Я прикрасно понимаю, что это вАриант, и что вАриант - может хранить любой формат данных, но КАК?
Мне нужно открыть файл opentext, там хранятся данные и инвентарные номера, некоторые теряют нули, мне хотелось бы сразу указать что это текст...


 
YurikGL ©   (2005-05-10 21:18) [3]


> TankMan ©   (10.05.05 06:29) [2]

Приведи макрос...


 
TankMan ©   (2005-05-11 07:20) [4]

Да какая разница? Ну вот например такой вот:
Workbooks.OpenText Filename:="C:\1\01\08.TXT", Origin:=866, _
       StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
       ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, Comma:=False _
       , Space:=True, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 2), Array _
       (3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2)), TrailingMinusNumbers:= _
       True


 
YurikGL ©   (2005-05-11 09:37) [5]

Попробуй трехмерный массив


 
TankMan ©   (2005-05-12 14:34) [6]

Да это я и сам знаю, я спрашиваю КАК? Я не знаю как это реализовать, не помню в упор - наш учитель помниться говорил - "Дети вариант вообще бесполезный тип данных, очень опасный, лучше его не использовать,бла бла бла..." а далее его повествование о типе Variant заканчивалось, и он с увлечением продолжал рассказывать про string integer longint и т.д. :(, потому и спрашиваю КАК?


 
YurikGL ©   (2005-05-12 21:57) [7]

может поможет

var

 A: Variant;
begin
 A := VarArrayCreate([0, 4], varVariant);
 A[0] := 1;
 A[1] := 1234.5678;
 A[2] := "Hello world";
 A[3] := True;
 A[4] := VarArrayOf([1, 10, 100, 1000]);
 WriteLn(A[2]); { Hello world }
 WriteLn(A[4][2]); { 100 }

end;


 
TankMan ©   (2005-05-13 08:57) [8]

Ух ты, никогда такой конструкции не видал :)
Попробую, по виду - это то что нужно
Спасибо большое!


 
YurikGL ©   (2005-05-13 09:05) [9]


> TankMan ©   (13.05.05 08:57) [8]

Вообще-то из хелпа :)


 
TankMan ©   (2005-05-13 12:34) [10]

Получилось - работает



Страницы: 1 вся ветка

Текущий архив: 2006.04.02;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.038 c
10-1115984546
Chaser
2005-05-13 15:42
2006.04.02
Excel - формат ячейки


2-1142873793
mrAndersen
2006-03-20 19:56
2006.04.02
Активизация после нажатия на ENTER


15-1141820647
постигаю
2006-03-08 15:24
2006.04.02
нужно сохранить


2-1142438297
Vitalik__
2006-03-15 18:58
2006.04.02
stringgrid


2-1142492556
Darkwing
2006-03-16 10:02
2006.04.02
Скринсейвер