Batya
|
 Posted: Tue Jul 29, 2008 10:36 Post subject: |
 |
|
Lev
На мой взгляд, не стОит пользоваться Helper-ом, когда можно обойтись без него (не у всех же он установлен). Лучше имя файла передать через входной параметр %P%N.
| Code: | 'Удаление дублирующихся строк
'Параметр вызова из TC:
' %P%N
File = WScript.Arguments(0)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Dic = CreateObject("Scripting.Dictionary")
StrArr = Split(FSO.OpenTextFile(File, 1, False).ReadAll, vbNewLine)
For Each S In StrArr
If Not Dic.Exists(S) Then
NewText = NewText & vbNewLine & S
Dic.Add S, ""
End If
Next
FSO.CreateTextFile(File & ".filtered").Write Mid(NewText, Len(vbNewLine) + 1) |
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
