Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / есть 100 Word файлов, внутри таблица , нужно получит содержимое таблицы в базе данных / 5 сообщений из 5, страница 1 из 1
03.09.2010, 02:09
    #36827101
Юрий Горбунов
Юрий Горбунов
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
есть 100 Word файлов, внутри таблица , нужно получит содержимое таблицы в базе данных
есть 100 Word файлов,
внутри файла таблица, по сути форма для заполнения, слева название поля, спава данные (ФИО>Вася Пупкин)
нужно получит содержимое таблицы в базе данных или хотябы в Экселе
Как это максимально дёшево и быстро сделать?
joj@hotmail.ru
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.09.2010, 02:15
    #36827102
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
есть 100 Word файлов, внутри таблица , нужно получит содержимое таблицы в базе данных
Да, собственно, никаких проблем-то нет.
Цикл открытия файлов, внутри цикл по таблице, как я понимаю, все файлы типовые, цикл будет типовой. Извлекаемые данные отправляются в БД.
Это дешево.

А быстро... тут надо смотреть и думать, БД локальная или сервер?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.09.2010, 03:31
    #36827115
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
есть 100 Word файлов, внутри таблица , нужно получит содержимое таблицы в базе данных
Shocker.Pro,

авторЦикл открытия файлов, внутри цикл по таблице, как я понимаю, все файлы типовые, цикл будет типовой. Извлекаемые данные отправляются в БД.
s1=dir
' [] уголки
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
open "c:\rab\word00.xls" for outpur as # 1 
print # 1 ,"[html]"
print # 1 ,"[meta http-equiv=Content-Type content=""text/html; charset=windows-1251"" ]"
print # 1 ,"[body]"
print # 1 ,"[table]"
do while len(s1)> 0 
word.documents.open s1
j1k=word.activedocument.tables( 1 ).rowcount
do while j1<j1k
j1=j1+ 1 
print # 1 ,"[tr][td]" & word.activedocument.tables( 1 ).cells(j1, 1 ) & "[td]" & word.activedocument.tables( 1 ).cells(j1, 1 )
loop
word.activedocument.close
s1=dir
loop
print # 1 ,"[/table]"
close # 1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.09.2010, 03:37
    #36827116
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
есть 100 Word файлов, внутри таблица , нужно получит содержимое таблицы в базе данных
Юрий Горбунов,

правка
print #1,"[tr][td]" & word.activedocument.tables(1).cells(j1,1) & "[td]" & word.activedocument.tables(1).cells(j1,2)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.09.2010, 09:47
    #36827269
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
есть 100 Word файлов, внутри таблица , нужно получит содержимое таблицы в базе данных
ПЕНСИОНЕРКАправка
можно еще поправить слово outpur , добавить определения переменных и инициализацию s1, без чего цикл не начнется.

А по хорошему, надо проверять код на работоспособность, прежде чем выкладывать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / есть 100 Word файлов, внутри таблица , нужно получит содержимое таблицы в базе данных / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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