Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Как заменить строку в середине текстового файла Добавлено: 02.04.09 15:43  

Автор вопроса:  Lion | Web-сайт: lammeru.net | ICQ: 367220539 
Подскажите плиз! Как заменить строку в середине текстового файла? И как удалить из него произвольную строку?

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | Цитата | #1 Добавлено: 02.04.09 16:33
Текстовый файл это тхт?
И сделать это нужно средствами вб а не ворда, верно?
Если да, то
считай весь файл в строковую переменную и удали его
разбей строку по vbCrLf на массив строк
циклом сливай строки массива в новый тхт файл в зависимости от номера строки.

Ответить

Номер ответа: 2
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | Цитата | #2 Добавлено: 03.04.09 03:58
Вот тебе шедевр :-)
  1.     Dim tmpLng As Long
  2.     Dim tmpStr As String
  3.     Dim tArr() As String
  4.  
  5.     Open "Старый.txt" For Input As 1
  6.         tmpStr = Input$(LOF(1), #1)
  7.     Close
  8.     'Kill "Мой.txt"
  9.     tArr = Split(tmpStr, vbCrLf)
  10.     Open "Новый.txt" For Output As 1
  11.         For tmpLng = 0 To UBound(tArr)
  12.             If tmpLng <> 10 Then Print #1, tArr(tmpLng)
  13.         Next
  14.     Close

Ответить

Номер ответа: 3
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
  Профиль | Цитата | #3 Добавлено: 03.04.09 03:59
Сливает в новый файл все строки старого кроме десятой.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам