при экспорте .csv в .mdb при наличии пустых полей проблема.

@krems · Регистрация: 03.07.2011

Author24 — интернет-сервис помощи студентам

Esli v posledney stroke fila .csv est pustie polya, comp zavisaet.
Kakaya mozhet bit' prichina?
code takoy:

const ForReading = 1
dim objOpenFile, objFSO, strPath, strText, arr, str

strPath = Server.MapPath(strPath)
set objFSO = server.CreateObject("Scripting.FileSystemObject")
set objOpenFile = objFSO.OpenTextFile (strPath, ForReading)
do while not objOpenFile.AtEndOfStream

rst.addnew
strText = objOpenFile.ReadLine
arr = split(strText,",")
rst("Parcel") = arr(1)
rst.update
rst.movenext
loop

@bazile · 07.02.2012, 11:13

Не совсем понял в чем именно проблема. Может тебе добавить проверку не является ли строка пустой?
strText = objOpenFile.ReadLine
If "" <> strText Then
...
End If
Loop

Новые блоги и статьи Все статьи Все блоги /
Next.js для разработки React: преимущества серверного рендеринга Reangularity 20.03.2025 Next. js решает классическую проблему React-приложений: медленную первоначальную загрузку и плохую индексацию поисковиками. Вместо того чтобы заставлять браузер пользователя выполнять всю работу по. . .	JUnit или TestNG: Выбираем Java-фреймворк для тестирования Javaican 20.03.2025 История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .	Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .	Python и PDF: Создание и редактирование файлов py-thonny 20.03.2025 Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .	Корутины в Unity и производительность WaitForSeconds GameUnited 20.03.2025 Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .
Криптография в PHP Jason-Webb 20.03.2025 PHP предоставляет много криптографических возможностей: от встроенных функций хеширования до полноценных библиотек шифрования — арсенал средств довольно обширен. Но всё это бесполезно без понимания. . .	Lineedge (Semi-Alpha) 0.75@20: Что мы потеряли Etyuhibosecyu 20.03.2025 С каждым новым стандартом Lineedge обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление. . .	Реализация перечислений в Go golander 19.03.2025 Если вы перешли на Go с других языков программирования (как я), таких как C#, Java или Python, вы наверняка заметили, что Go не имеет встроенной поддержки перечислений (enumerations). Это может стать. . .	Шаблон API Gateway в микросервисной архитектуре MatrixArchitect 19.03.2025 API Gateway — один из основных компонентов микросервисной архитектуры. Фактически, API Gateway представляет собой сервис, который располагается между клиентскими приложениями и бэкенд-микросервисами,. . .	C++26: Что мы потеряли bytestream 19.03.2025 С каждым новым стандартом C++ обретает новые возможности — это ясно, как божий день. Однако есть и другая сторона — избавление от устаревших и проблемных элементов. Обычно удаление функциональности. . .

@krems 0 / 0 / 0 Регистрация: 03.07.2011 Сообщений: 86
		1
	при экспорте .csv в .mdb при наличии пустых полей проблема. 05.02.2012, 15:24. Показов 1847. Ответов 1 Метки нет (Все метки) Esli v posledney stroke fila .csv est pustie polya, comp zavisaet. Kakaya mozhet bit' prichina? code takoy: const ForReading = 1 dim objOpenFile, objFSO, strPath, strText, arr, str strPath = Server.MapPath(strPath) set objFSO = server.CreateObject("Scripting.FileSystemObject") set objOpenFile = objFSO.OpenTextFile (strPath, ForReading) do while not objOpenFile.AtEndOfStream rst.addnew strText = objOpenFile.ReadLine arr = split(strText,",") rst("Parcel") = arr(1) rst.update rst.movenext loop 0

@bazile 86 / 62 / 69 Регистрация: 15.03.2007 Сообщений: 6,906
	07.02.2012, 11:13	2
	Не совсем понял в чем именно проблема. Может тебе добавить проверку не является ли строка пустой? strText = objOpenFile.ReadLine If "" <> strText Then ... End If Loop 0

Опции темы