Главная страница
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.062 c
1-1141199372
Ньюб2
2006-03-01 10:49
2006.04.02
Чтение/запись 8 байт в материнке


6-1134831725
KvORubin
2005-12-17 18:02
2006.04.02
Мастера!!! как програмным путём передать файл.* по сети...


2-1142927487
hjkghjlghjkl
2006-03-21 10:51
2006.04.02
Кодировка


11-1123493830
Dodfr
2005-08-08 13:37
2006.04.02
Keep TListView.curindex visible when set out of view range


2-1142862337
Alex7
2006-03-20 16:45
2006.04.02
Операция :=