[sundead]

Мне необходимо загрузить текст типа
1 456 986 468
2 452 546 656
.....
453 546 654 464
из файла data.txt в матрицу и потом обработать..
Как это реализировать.
Желательно с примером кода

[fixo]

Приветствую на форуме!
Вообще-то все это есть в Help'e

Попробуй:

Код:

[Выделить все]

Option Explicit
Sub ReadTabulatedData()
Dim coll As New Collection
Dim stroka, tmparr
' открываем файл для чтения (измени полный путь файла):
Open "C:\Temp\\data.txt" For Input As #1
Line Input #1, stroka   ' считываем строку в переменную
' считываем построчно до конца файла:
Do While Not EOF(1)
   tmparr = split(stroka, " ")
' заполняем коллекцию (поскольку не знаем количество строк):
coll.Add tmparr
Line Input #1, stroka   ' считываем строку в переменную в продолжении цикла
Loop
' закрываем файл
Close #1
' конвертируем коллекцию в двумерный массив 'ar'
ReDim ar(0 To coll.Count - 1, 0 To UBound(coll.Item(1)))
Dim i, j
For i = 1 To UBound(ar, 1) + 1
For j = 0 To UBound(ar, 2)
ar(i - 1, j) = coll.Item(i)(j)
Next
Next
' << далее работаешь с массивом >>
End Sub

~'J'~

[Vildar]

sundead, можно вопрос в этой теме задам, близко очень.
Как удалить строчку в файле. Допустим с текстом "2 452 546 656"?
Спасибо, )

[fixo]

Это делается так (готовый код привести нет времени)
Читаешь построчно файл и в цикле ставишь условие
на сравнение с нужной строкой, если условие не совпадает,
записываешь строку в новый файл, в конце кода
убиваешь старый файл и переименовываешь новый
на старое имя

~'J'~

[sundead]

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

[fixo]

Ну бес ним, уговорил, вот так удалять строку:
(следи за именами файлов)

Код:

[Выделить все]

Option Explicit
'' обязательна ссылка на библиотеку: Microsoft Scripting Runtime
Sub TestForComma()

Dim a, b, s, fa, fb, fs, ForReading, fname
Dim cs As String
cs = "2 452 546 656"
ForReading = 1
fname = "data.txt" '' короткое имя!!
Set fs = CreateObject("Scripting.FileSystemObject")
Set b = fs.OpenTextFile("C:\data.txt", ForReading, False) ''исходный файл
Set a = fs.CreateTextFile("C:\data2.txt", True) ''файл временной копии

Do While Not b.AtEndOfStream
'' читаем файл
s = b.Read(0)
'' построчно
s = b.ReadLine
'' определяем условие
If s <> cs Then
a.WriteLine s
End If
Loop

a.Close
b.Close

Set fb = fs.GetFile("C:\data.txt")
fb.Delete
Set fb = Nothing

Set fa = fs.GetFile("C:\data2.txt")
fa.Name = fname

Set a = Nothing
Set b = Nothing
Set fa = Nothing
Set fs = Nothing

End Sub

[Vildar]

Код не нужно и так понятно.
И еще вопрос. Возражений не было)
У меня не txt, а ini файл.
Для него есть функции по удалению строк? Или как с текстовым работать.

[Vildar]

Ништяк)

[fixo]

Сообщение от Vildar Код не нужно и так понятно. И еще вопрос. Возражений не было) У меня не txt, а ini файл. Для него есть функции по удалению строк? Или как с текстовым работать.

Как с текстовым файлом, конечно, а какая разница
Единственно чтобы не удалить атрибуты файла,
если эта строка связана с которым из них
Ты попробуй сначала на копии файла вручную все
это проделай в Блокноте, если все сростется, то
дерзай программно

~'J'~