Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Split в VBS Script / 4 сообщений из 4, страница 1 из 1
27.10.2006, 14:16
    #34087072
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Split в VBS Script
Возможно ли это

tmp = xlApp.Split( buf , ";" ) - выдает ошибку

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim fso, ts1, xlApp
Dim buf
Dim tmp()

Set fso = CreateObject("Scripting.FileSystemObject")
Set xlApp = CreateObject("Excel.Application")

Set ts1 = fso.OpenTextFile(  "S:\articles.txt",  1 , False)
    Do While Not ts1.AtEndOfStream
        buf = ts1.ReadLine
tmp = xlApp.Split( buf , ";" )

    Loop
ts1.Close
Set ts1 = Nothing
Set xlApp = Nothing
Set fso = Nothing
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2006, 14:36
    #34087181
michael R
michael R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Split в VBS Script
попробуй

Dim tmp 'без ()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2006, 14:38
    #34087194
michael R
michael R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Split в VBS Script
добавка

tmp = Split( buf , ";" )
без xlApp.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2006, 14:42
    #34087214
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Split в VBS Script
Блин.
Огромное спасибо.
2 часа убил
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Split в VBS Script / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]