VB6.
Нужно пропарсить масив строк. Строки состоят из набора данных, разделенных "табом". Потом добавить все эти данные в базу (mdb). Позиции данных и поля в таблице соответствуют (по номеру). В таблице форматы полей соответствуют.
Данные считываю в массив и, через рекордсет (DAO) заношу в таблицу БД.
Но проблема вот в чем : даты и числа могут иметь разные форматы. Например :
дата 01.02.2010,
01.02.10;

число 56.55,
56,55,
-56,55
-56.55.
Так вот, надо проверить все элементы масива и, если данный элемент не соответствует типу в таблице, преобразовать его в этот тип.
Вот пример:
Код Название Дата Цена Наценка
---------------------------------------------------------------------------------------
12833 Актиферрин сироп фл. 100 мл 27.01.2010 28,98 8,94
12608 Бисептол сусп. фл. 80 мл 05.03.10 19.00 -3,22
---------------------------------------------------------------------------------------

Повлиять на однородность соответствующих данных в файле не возможно.
Количество записей не очень большое.

Прошу помочь написать функцию проверки.
Спасибо.

Shocker.Pro,

С точкой - это понятно, надо привести. Но обрабатываю данные в цикле и для замены запятой на точку, мне надо знать,что я обрабатываю сумму, а не, допустим, "название"(пример).

С датой тоже проблем не будет.
Суть проблемы - определить: строка,дата или число. Дальше я умею.

Shocker.Pro,

Не совсем.
Вот пример кода:

Dim Lines As Variant, v As Variant, i As Long, j As Long

Open strPath For Input As #filenum: Lines = Input(LOF(1), 1): Close #filenum
Lines = Split(Lines, vbCrLf)

Set rstInvDet = dbs.OpenRecordset("InvoiceDet")
For j = 3 To UBound(Lines)
If Len(Lines(j)) > 0 Then
v = Split(Lines(j), vbTab) 'Преобразуем строку в массив элементов
rstInvDet.AddNew
For i = 0 To UBound(v)
If Len(v(i)) > 0 Then rstInvDet.Fields(i) = v(i)
Next
rstInvDet.Update
End If
Next j

При таком методе я должен знать тип данныч v(i) , чтобы вставить в поле таблицы. Тип я смогу преобразовать. но при замене запятой на точку мне надо знать , что это не "название" а "сумма".

Shocker.Pro,

Надо определить не тип поля рекордсета, а тип данных, для коректной обработки.

Shocker.Pro,

Например:

rstInvDet.AddNew
For i = 0 To UBound(v)
If Len(v(i)) > 0 Then
If (v(i)) Число Then
rstInvDet.Fields(i) = Преобразовать в Double(v(i))
Else
rstInvDet.Fields(i) = v(i)
End If
Next

Shocker.Pro,

Я наверно не очень внятно все объяснил. Прошу прощения. Попробую еще раз.

Мне нужна функция, что то типа такой:

автор
funType(v(i))' Функция, которая определяет тип данных.

Select Case funType
Case "Строка"
Что-то делаем со строкой
Case "Число"
Что-то делаем с числом
Case "Дата"
Что то делаем с датой
End Select


?isnumeric("-20.022010")
False
?isnumeric("-20,022010")
True

А я не знаю какой будет разделитель.

Shocker.Pro,

Да, но если я сделаю замену до проверки, то поменяются запятые и в строке(если они там будут).

P.S. Спасибо.

Shocker.Pro,

Ну , некрасиво будет: вместо Анальгин, табл. -> Анальгин.табл.

Shocker.Pro,

Спасибо за консультации. Кое-что почерпнул полезное (после более внимательного чтения Ваших сообщений). Попробую использовать. Еще раз спасибо.

Shocker.Pro,

Спасибо. Я знаю. Сейчас вношу изменения в БД и код для использования Currency.

Shocker.Pro,

Что-то получилось . Сейчас тестирую.


Использовал функцию от Гетца,Джилберта.

Пока работа с несколькими файлами данных нормальная, без ошибок.
Дальше буду проверять.

Shocker.Pro,

Да, ошибочка :-(. Я уже заметил. Тут проверка по первому знаку. Надо попробовать проверить всю переменную.

Shocker.Pro,

?isnumeric("45,5")
True

?isnumeric("45.5")
False

Shocker.Pro,

Очень хорошо. Кажется, то что надо. Спасибо.