- Сообщения
- 14,072
- Реакции
- 5,791
Привет.
Мне кажется, решение где то на поверхности - но я его пропускаю.
Имеется:
Чтение файла, построчно.
Когда достигается определенная строка в цикле - присваиваем значение label.
Когда пытаюсь число типа 123 123 из string преобразовать через val - то получаю только 123
Если через cdbl - несовпадение типов.
Это странно - потому что раньше так работало....
В файле C:\Logg\planlog.txt - строки и символы
Запись производится верно, число отображаются строковым типом с разделением по разрядам.
Как производить арифметические операции с ними тогда?
Мне кажется, решение где то на поверхности - но я его пропускаю.
Имеется:
Чтение файла, построчно.
Когда достигается определенная строка в цикле - присваиваем значение label.
Когда пытаюсь число типа 123 123 из string преобразовать через val - то получаю только 123
Если через cdbl - несовпадение типов.
Это странно - потому что раньше так работало....
Код:
Dim MyFile, FIO As String, i As Integer, y(76) As Integer
Dim r(9) As Long, u As Long
MyFile = FreeFile
Open ("C:\Logg\planlog.txt") For Input As MyFile
For i = 0 To 76
y(i) = i
Line Input #MyFile, FIO
FIO = Strings.Format$(FIO, "0,0")
...............
If i = 63 Then Label95.Caption = FIO
If i = 64 Then Label96.Caption = FIO
Label103.Caption = CDbl(Label96.Caption) - CDbl(Label95.Caption)
Next i
Close #MyFile
В файле C:\Logg\planlog.txt - строки и символы
Запись производится верно, число отображаются строковым типом с разделением по разрядам.
Как производить арифметические операции с ними тогда?