Запись данных в файл

[Алексей К.]

У меня такая проблема:
Есть массив
а(1)=200
а(2)=234.234234
а(3)="ппппппп"
и т.д.
Когда я его записываю в файл output.txt.
То перед числами появляется пробел и после них. А перед символьными выражениями нет. Когда же я считываю их из файла через line input(мне только так надо) то они уже как string идут - а мне надо с ними арифмет. операции делать. Ругается несовпадением типов.
Как быть? Как от них избавится. А писать обработчик на удаление пробелов в начале и в конце не охота. Должно наверно быть более рационально решение. Помогите пожалуйста.

[soljen]

Привет!

Пробелы попробуй каким-нить Trim'ом рубануть!

А по поводу перевода воспользуйся стандартными CDbl, CInt...

Там много всего хорошего есть, что бы смоголо тебе помочь!!

[Ennor]

Более рациональное решение, конечно же, есть. Функция Trim() - рекомендовано Microsoft .

[Sirik]

Записываешь данные через Cstr. Просто когда делаешь Str перед переменной ставиться пробел.
А чтобы делать ареф. операци переводи строки в числа, т.е. Val

[codemaster]

У меня такая проблема:
Есть массив
а(1)=200
а(2)=234.234234
а(3)="ппппппп"
и т.д.
Когда я его записываю в файл output.txt.
То перед числами появляется пробел и после них. А перед символьными выражениями нет. Когда же я считываю их из файла через line input(мне только так надо) то они уже как string идут - а мне надо с ними арифмет. операции делать. Ругается несовпадением типов..

Ну очень странный у тебя массив.
особенно если помотреть математически ..............

А писать обработчик на удаление пробелов в начале и в конце не охота. Должно наверно быть более рационально решение. Помогите пожалуйста.

писать ничего не надо
лучше почитать книгу по vb там наверняка есть инфа по TRIM$ и по объявлению массивов

[Шурик]

Есть еще вариант с пробелами, правда не совсем скажем так хороший, но его тоже можно использовать MID$.

[Алексей К.]

Всем спасибо за столь оперативную помощь. С Val все работает как надо.

[Ennor]

Смотри, аккуратнее с этим Val'ом - она, насколько я помню, как-то своеобразно обрабатывает разделитель дробной части. На запятой может считать, что это уже другое число - у нас такое было.

[Sirik]

Смотри, аккуратнее с этим Val'ом - она, насколько я помню, как-то своеобразно обрабатывает разделитель дробной части. На запятой может считать, что это уже другое число - у нас такое было.

Это произойдёт только тогда когда у тебя разделитель дробной части числа есть точка. Тогда оператор VAL не поймёт запятую. А может быть и тогда когда у тебя число емеет тип Integer или Long... вобщем оно должно быть Currency

[Ennor]

К сожалению, когда у тебя число сидит в переменной типа String, то Val() понятия не имеет, Long оно или же все-таки Double. Нам пришлось в свое время перед каждым обращением к Val() делать так:

Код: Выделить всё

DblVar = Val(Replace(strVar, ",", ".", 1, 1))

Тут просто еще всплывает проблема непредсказуемости национальных настроек на компьютере пользователя.

[alibek]

Если используется пара CStr/CSng(CDbl,CCur), то в обоих случаях используются именно национальные настройки. Т.е. CSng всегда поймет то, что было создано при CStr. А Str/Val всегда использует фиксированные настройки (без ведущего нуля, разделитель целой и дробной - точка, разделителя групп нет).

[Faust]

Записываешь данные через Cstr. Просто когда делаешь Str перед переменной ставиться пробел.

Это когда значение переменной положительное, а когда отрицательное - на этом месте стоит минус. А интересно - Cstr имеет преимущество в скорости перед Format$'ом?

[Faust]

Записываешь данные через Cstr. Просто когда делаешь Str перед переменной ставиться пробел.

Не всегда - это место просто зарезервировано для минуса перед отрицательными числами. А интересно - использование Cstr дает преимущество в чем-то по сравнению с Format$'ом ?

[Ennor]

...
А интересно - использование Cstr дает преимущество в чем-то по сравнению с Format$'ом ?

Естественно. Format() - функция универсальная, и потому очень медленная. Сколько там наворочено на тему преобразования даты/времени, я вообще молчу. А CStr() - всего лишь конвертация в строку по строго определенному формату, а не по произвольному, в отличие от первого случая.

[alibek]

Эти функции могут пригодится

Код: Выделить всё

Function Num2Str(ByVal Value As Variant, Optional ByVal ValueType As VbVarType = -1) As String
On Error Resume Next
If ValueType < 0 Then ValueType = VarType(Value)
Select Case ValueType
  Case VbVarType.vbNull, VbVarType.vbEmpty
  Case VbVarType.vbError
  Case VbVarType.vbVariant
    Num2Str = CStr(Value)
  Case VbVarType.vbBoolean
    Num2Str = IIf(Value, "True", "False")
  Case VbVarType.vbByte
    Num2Str = Trim$(Str$(Fix(Value)))
  Case VbVarType.vbInteger, VbVarType.vbLong
    Num2Str = Trim$(Str$(Fix(Value)))
  Case VbVarType.vbDecimal
    Num2Str = Format$(Value, "0.00")
  Case VbVarType.vbSingle, VbVarType.vbDouble
    Num2Str = Format$(Value, "0.0#########")
  Case VbVarType.vbCurrency
    Num2Str = Format$(Value, "#,0.00 ")
  Case VbVarType.vbString
    Num2Str = Value
End Select
On Error GoTo 0
End Function

Function Str2Lng(ByVal Value As String) As Long
On Error Resume Next
Str2Lng = CLng(Value)
On Error GoTo 0
End Function

Function Str2Dbl(ByVal Value As String) As Double
On Error Resume Next
Str2Dbl = CDbl(Value)
On Error GoTo 0
End Function

Function Str2Cur(ByVal Value As String) As Currency
On Error Resume Next
Str2Cur = CCur(Value)
On Error GoTo 0
End Function

[_Vasya]

Самое разумное решение создать требуемый пользовательський тип и записовать в типизированый файл, тогда не надо ничего преобразовать.


Или можешь использовать ф-ю Join(SourceArray[,Delimiter]) и записовать уже строку
Вот её описание:
Новая функция,которая появилась в Visual Basic 6.0
Функция служит для слияния всех элементов заданного массива в одну строку со вставкой между ними необязательного разделителя

Возвращаемое значение
Возвращает строку, созданную путем объединения множества подстрок, содержащихся в массиве с разделителем между ними

Параметры
--------------------------------------------------------------------------------
SourceArray Обязательный аргумент - одномерный массив, содержащий объединяемые подстроки
Delimiter Необязательный аргумент - символ, используемый для разграничения подстрок в возвращаемой строке. Если параметр опущен, применяется символ пробела (" "). В том случае, когда аргумент является строкой нулевой длины (""), производится конкатенация всех элементов списка без добавления разделителей

Код: Выделить всё

' Соединяем два слова
Dim vArr(1 to 2)
Dim retval as String
vArr(1)="Русский"
vArr(2)="Проект"
retval=Join(vArr,"_")
Print retval

[Andrey Fedorov]

Вообще-то решение с пользовательским типом сброшенным в бинарный файл наиболее оптимальное - все операции с ним максимально простые и в то-же время он может иметь достаточно сложную структуру с полями содержащими массивы других пользовательских типов, к примеру...

[Tamahawk]

Слухай весь твой массив можно загнать в файл без каких либо проблем
сделай так:
a(1) as integer или long
и отрывай файл типа не for Input a for Random и ты сможеш получать все типы абсолютно точно без каких либо line input а GET #1 -ом
попробуй так