frs
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
'simple plugin on VBScript
'wlx_vbscript.vb
'Script plugin-maker 0.5.1 (http://wincmd.ru/plugring/wlx_vbscript.html)
font_name = "Fixedsys"
font_size = 12
view_end = "false"
view_wrap = "true"
view_scroll = "both"
view_backgroundcolor = "white"
view_textcolor = "black"
result_text = ""
Dim fso, ts, s
Set fso = CreateObject("Scripting.FileSystemObject")
sExt = LCase(fso.GetExtensionName(file_name))
Select Case sExt
Case "abbrev"
readfile
process "(^|\n)([^=\n]*)=", vbCrLf & "----------" & vbCrLf & "[$2]" & vbCrLf
process "\\\\", "ItIsADoubleSlash"
process "\\r", vbCr
process "\\n", vbLf
process "\\t", vbTab
process "ItIsADoubleSlash","\"
Case Else
'result_text = sExt + " file type"
End Select
Sub readfile()
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(file_name, ForReading)
s = ts.ReadAll
AddLine s
ts.Close
End Sub
Sub process(a, b)
Dim re
Set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.MultiLine = False
re.Pattern = a
result_text = re.Replace(result_text, b)
End Sub |
Всего записей: 35 | Зарегистр. 20-02-2003 | Отправлено: 02:40 14-11-2007 | Исправлено: frs, 02:40 14-11-2007 |
|
