| Вопрос: Пустые строки | Добавлено: 05.12.05 19:09 |
Автор вопроса:  -=Fenix=-
|
|
Всем привет, помогите пожалуйста, как дуалить из файда *.txt пусты строки
к примеру в файле 1
2 3 4 5 6 а нада получить 1
2 3 4 5 6 |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 06.12.05 01:24 |
|
Private Sub Form_Load()
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"
(не тестил, но примернотак...) |
||
Страница: 1 |