tor_shiftВладимирМ,
Просмотрите ещё раз пожалуйста мои файлы,только мысленно как бы отбросьте эти точки(...).
Представьте что числовые значения по столбцу NUMLS повторяются(изначально так построена структура таблицы Excel,кот.нужно переконвертировать в dbf),они также повторяются и в готовой "таблице" dbf(foxpro 5.0),
но проблема с столбцом SH1 в уже преобразованной таблице dbf.
В некоторых ячейках данные неправильные.(
к примеру таблица в Excel
NUMLS NUMSH SH1 .. .. .. MESTO
.
38414 161.000
38414 145.000
.
.
38421 3.000 <<<<<<
38421 1.000 <<<<<<обратите внимание
.
.
38426 1.233
после преобразования и просмотра через Фокса:
NUMLS NUMSH SH1 .. .. .. MESTO
.
38414 161.000
38414 145.000
.
.
38421 36586.0 <<<<<<<обратите внимание
38421 36526.0 <<<<<<<
.
.
38426 1.233
Посмотрите, все-таки, пример автора кода по преобразованию содержимого Excel в DBF. У него в примере используется в качестве символа-разделителя - запятая. Точнее, тот символ, который указан как символ-разделитель целой и дробной части в том экземпляре Excel, где Вы этот код и запускаете.
У Вас же в качестве символа разделителя выступает точка.
Понимаете, конвертацией в формат DBF занимается сам Excel. Поэтому, данные в самом Excel должны быть в таком формате, чтобы не было разночтений в том, что Вы хотите получить в DBF и в том, что у Вас есть в Excel. Это именно Excel таким образом выполнил преобразование.
Если Вы указываете, что поле SH1 должно быть числовое, то и в Excel этот столбец должен быть отформатирован как числовой. И разделитель целой и дробной части должен быть такой же, как в Excel.
Повторю еще раз. Все проблемы связаны с тем, как данные
отформатированы в самом Excel.
Если Вы сможете понять макрос Excel, то преобразованием там занимается вот этот метод
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Public Function ValToDBF(val As Variant) As String
' Преобразование в строку
If DBFType = dftCharacter Then
ValToDBF = Space(Size)
LSet ValToDBF = CStr(val)
End If
' Преобразование в дату
If DBFType = dftDate Then
ValToDBF = format(val, "YYYYMMDD")
End If
' Преобразование в логическое значение
If DBFType = dftLogical Then
ValToDBF = IIf(CBool(val), "T", "F")
End If
' Преобразование в числовое значение
If DBFType = dftNumeric Then
ValToDBF = Space(Size)
RSet ValToDBF = Trim(format(val, "0" + IIf(Precision > 0 , "." + String(Precision, "0"), "")))
ValToDBF = Replace(ValToDBF, ",", ".")
End If
End Function
По сути, преобразование в числовое значение выполняет внутренняя функция Excel с именем format(). Вот у этой функции и "сносит крышу", когда она пытается преобразовать в число явную символьную строку. Во что она это преобразует, заранее сказать невозможно. Как только Вы вместо "3.00" напишете "3,00" (т.е. просто вместо точки укажите запятую), то все встает на место.
Нет, ну можно, конечно, модифицировать функцию преобразования в числовое значение следующим образом
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
' Преобразование в числовое значение
If DBFType = dftNumeric Then
' Замена не корректных символов-разделителей на текущий символ-разделитель Excel
val = Replace(val, ",", Application.International(xlDecimalSeparator))
val = Replace(val, ".", Application.International(xlDecimalSeparator))
ValToDBF = Space(Size)
RSet ValToDBF = Trim(format(val, "0" + IIf(Precision > 0 , "." + String(Precision, "0"), "")))
ValToDBF = Replace(ValToDBF, ",", ".")
End If
Только это до тех пор, пока вместо символа-разделителя целой и дробной части не окажется, к примеру, дефис
