Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Групповое переименование 
Author Message
Batya



PostPosted: Wed Oct 13, 2010 09:54    Post subject: Reply with quote

1076 wrote:
есть много файлов HTML, которые необходимо переименовать на содержимое строки 70 в этих файлах ??

Используем Script Content Plugin и vbs-скрипт:
Code:
'======================================================
' Колонка Result возвращает содержимое N-й строки файла
'======================================================
Const N = 70 'Номер строки
'======================================================

content = Result
Function Result
  Result = ""
  On Error Resume Next
  With CreateObject("Scripting.FileSystemObject").OpenTextFile(filename)
    For i = 1 To N - 1
      .SkipLine
    Next
    Result = .ReadLine
  End With
  On Error GoTo 0
End Function

_________________
Нет, я не сплю. Я просто медленно моргаю.
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group