Преглед садржаја
Овај водич ће показати како се користи метода ОпенТектФиле ФилеСистемОбјецт.
Отворите текстуалну датотеку
Ова лекција користи ФилеСистемОбјецт. Да бисте га користили, мораћете да поставите референцу на библиотеку времена извођења ВБ скрипте. За више информација погледајте овде.
Постојећу текстуалну датотеку можете отворити за читање:
| 1 | Подесите ФилеТоРеад = ФСО.ОпенТектФиле ("Ц: \ Тест \ ТестФиле.ткт", ФорРеадинг) |
а затим залепите његов садржај у прву ћелију тренутног радног листа, нпр .:
| 12345678910 | Под ФСОРеадФромТектФиле ()Затамните ФСО као нови ФилеСистемОбјецтПостави ФСО = ЦреатеОбјецт ("Сцриптинг.ФилеСистемОбјецт")Подесите ФилеТоРеад = ФСО.ОпенТектФиле ("Ц: \ Тест \ ТестФиле.ткт", ФорРеадинг)ТектСтринг = ФилеТоРеад.РеадАллФилеТоРеад.ЦлосеТхисВоркбоок.Схеетс (1) .Ранге ("А1"). Валуе = ТектСтрингЕнд Суб |
За више опција са режимом ФорРеадинг погледајте овде.
У ФорВритинг режиму можете заменити садржај постојеће датотеке новим подацима, али не можете читати из датотеке.
| 123456789 | Суб ФСОВритеТоТектФиле ()Затамните ФСО као нови ФилеСистемОбјецтПостави ФСО = ЦреатеОбјецт ("Сцриптинг.ФилеСистемОбјецт")Подесите ФилеТоВрите = ФСО.ОпенТектФиле ("Ц: \ Тест \ ТестФиле.ткт", ФорВритинг)ФилеТоВрите.Врите "тест линија"ФилеТоВрите.ЦлосеЕнд Суб |
За више опција са ФорВритинг режимом погледајте овде.
У ФорАппендинг моду можете писати до краја датотеке. Не можете читати из ове датотеке.
| 123456789 | Суб ФСОАппендТоТектФиле ()Затамните ФСО као нови ФилеСистемОбјецтПостави ФСО = ЦреатеОбјецт ("Сцриптинг.ФилеСистемОбјецт")Подесите ФилеТоАппенд = ФСО.ОпенТектФиле ("Ц: \ Тест \ ТестФиле.ткт", ФорАппендинг)ФилеТоАппенд.Врите "додат садржај"ФилеТоАппенд.ЦлосеЕнд Суб |
