Страница: 1 |
Страница: 1 |
Вопрос: Пустые строки
Добавлено: 05.12.05 19:09
Автор вопроса: -=Fenix=-
Всем привет, помогите пожалуйста, как дуалить из файда *.txt пусты строки
к примеру в файле
2
3
4
5
6
а нада получить
2
3
4
5
6
Ответы
Всего ответов: 3
Номер ответа: 1
Автор ответа:
HACKER
Разработчик Offline Client
Вопросов: 236
Ответов: 8362
Профиль | | #1
Добавлено: 06.12.05 01:24
Dim txt As String: txt$ = LoadTextFile("C:\1.txt"
Dim tmpArr() As String: tmpArr = Split(txt$, vbCrLf)
txt$ = ""
For i = 0 To UBound(tmpArr)
If Trim(tmpArr(i)) <> "" Then txt$ = txt$ & tmpArr(i) & vbCrLf
Next i
Call SaveToFile(txt$, "C:\1.txt"
End Sub
Public Sub SaveToFile(Data$, PathFile As String)
On Error Resume Next
Kill PathFile
'Сохранение переменной в файл
n = FreeFile
Open PathFile For Binary As #n
Put n, , Data$
Close #n
End Sub
Public Function LoadTextFile(path As String) As String
'Загрузка файла в переменную
Dim l As Long
Dim s As String
n = FreeFile
Open path For Binary As #n
l = LOF(n)
s = String(l, vbNullChar)
Get n, , s
Close #n
LoadTextFile = s
End Function
Номер ответа: 2
Автор ответа:
-=Fenix=-
Вопросов: 33
Ответов: 81
Профиль | | #2
Добавлено: 10.12.05 16:39
Ещё вопросик, как можно теперь найти определённыу строку и заменить её, и потом перезаписать файлик?
Номер ответа: 3
Автор ответа:
HACKER
Разработчик Offline Client
Вопросов: 236
Ответов: 8362
Профиль | | #3
Добавлено: 10.12.05 16:58
txt$ = LoadTextFile ("C:\1.txt"
Dim tmpArr$()
tmpArr = Split (txt$, vbCrLf)
'tmpArr(1) вторая строка (c нуля)
tmpArr(1) = "Нужная тебе строка"
txt$ = Join(tmpArr, vbCrLf)
call SaveToFile (txt$ , "C:\1.txt"
(не тестил, но примернотак...)