Batya
|
 Posted: Wed Sep 07, 2011 11:17 Post subject: |
 |
|
slideray
Если необходимо только отображение (без формирования дополнительных файлов), то можно использовать Script plugin-maker.
Для треуемой задачи файл wlx_vbscript.vb:
| Code: | font_name = "Fixedsys"
font_size = 12
view_end = "false"
view_wrap = "true"
view_scroll = "both"
view_backgroundcolor = "white"
view_textcolor = "black"
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
result_text = ""
If LCase(FSO.GetFileName(file_name)) = "descript.ion" Then
ReadFile
RegReplace "\r", ""
RegReplace "^([^ ""]+)\s+", """$1"" "
RegReplace "^""([^""]+)""\s+(.+)$", "$1" & vbNewLine & " $2"
RegReplace "\\n", vbNewLine & " "
RegReplace Chr(4) & "В$", ""
End If
Sub ReadFile()
AddLine FSO.OpenTextFile(file_name, 1).ReadAll
End Sub
Sub RegReplace(a, b)
With New RegExp
.Global = True
.IgnoreCase = True
.MultiLine = True
.Pattern = a
result_text = .Replace(result_text,b)
End With
End Sub |
| slideray wrote: | | дискомфорт вызывает необходимость укладывать файл ssed.exe в папку рядом c descript.ion |
Этого не нужно делать: | Tol!k wrote: | | Или прописать полный путь %commander_path%\Utils\ssed.exe |
Т.е. в кнопке пиши не просто ssed.exe, а с путём.
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
