Batya
|
 Posted: Tue May 10, 2011 18:29 Post subject: |
 |
|
vegg
vbs:
| Code: | '=====================================================
' Добавление нескольких строк в файлы из файла-списка
' Параметры:
' {файл-список}
' Пример параметров при вызове из TC:
' %L
'=====================================================
Dim FSO, F, FF
Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO.OpenTextFile(WScript.Arguments(0), 1)
Do While Not .AtEndOfStream
F = Trim(.ReadLine)
If F <> "" Then
If FSO.FileExists(F) Then
Set FF = FSO.OpenTextFile(F, 8, True)
FF.WriteLine "<?php add_action('wp_footer', 'mth');"
FF.WriteLine "function mth() { $content =' · <a href=""http://xxx/"" target=""_blank"">xxx</a> · ';"
FF.WriteLine "echo $content;} ?>"
FF.Close
End If
End If
Loop
.Close
End With
Set FF = Nothing
Set FSO = Nothing
Wscript.Quit()
|
Содержимое строк указываем внутри скрипта после "FF.WriteLine".
Если в тексте содержатся кавычки, их нужно задвоить (как во второй строке примера).
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
