Текущий архив: 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.46 MB
Время: 0.04 c