Работа с файлами

[AlexB]

Нужно записать в файл массив чисел, при этом чтобы они шли в строчку
через пробел. При использовании функции Print # получается только в столбик.
Может кто нибудь подскажет, как это сделать?

[Cyrax]

ну... можно для начала весь массив загнать в строковую переменную, а потом уже эту переменную скинуть в файл

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

Dim myArr(1 To 100) As Long
Dim strTemp As String

' заполняем массив
...
...
...

' копируем содержимое массива в строку
Dim i As Long
strTemp = ""
For i = 1 To 100
  strTemp = strTemp & CStr$(myArr(i)) & " "
Next i
strTemp = Mid$(strTemp, 1, Len(strTemp) - 1) ' обрезаем последний пробел

' ну а тут записываем переменную strTemp в файл
...
...
...

[AlexB]

А без использования строковых переменных нельзя?

[Amed]

Мона

Open "C:\temp.txt" For Output As #1
Print #1, "1000";
Print #1, "2000";
Close #1

[AlexB]

Open "C:\temp.txt" For Output As #1
Print #1, "1000";
Print #1, "2000";
Close #1

А если элементов массива не 2, а 1000

[AlexB]

Да, и при этом запись производится в столбик

[Amed]

Гхм...

'i - число элементов массива a

Open "C:\123.txt" for Output as #1
For j = 1 to i
Print #1, a(i);
Print #1, " ";
next j
Close #1

[Amed]

Гхм...

'i - число элементов массива a

Open "C:\123.txt" for Output as #1
For j = 1 to i
Print #1, a(i);
Print #1, " ";
next j
Close #1

[AlexB]

Тоже самое, только происходит чередование строк:
значение
пробел
значение
пробел
и т.д.

[Cornplay]

Ну что может быть проще!

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

open "myfile.dat" for output as #1
for i=lbound(array) to ubound(array)
print #1, array(i) & " ";
next i
close #1


[AlexB]

Это ты круто задвинул
Спасибо!!!

[AlexB]

Извини, Amed
Ты написал тоже самое, я как то не обратил внимание на ";".
А для чего нужна ";" и где еще она используется???

[A.A.Z.]

Если после кавычек - запятая, то следующий текст напечатается на некотором расстоянии от этого, если точка с запятой, то сразу же за этим, а если ничего - то на следующей строке.

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

Private Sub Command1_Click()
Me.AutoRedraw = True
MsgBox "Print ""бла1"";"
Me.Print "бла1";
MsgBox "Print ""бла2"","
Me.Print "бла2",
MsgBox "Print ""бла3"""
Me.Print "бла3"
MsgBox "Print ""бла4"""
Me.Print "бла4"
End Sub


[AlexB]

Спасибо A.A.Z., буду знать.