Durch Rechtsklick auf den Dateianzeige-Kopf=>Spalten=>Skript=>Zeilen kann die Spalte temporär angezeigt (siehe Screenshot) oder in den Ordneroptionen dauerhaft für einen Ordner gespeichert werden. Die Spalte zeigt die Anzahl der Zeilen für folgende Dateitypen an:
.txt .ini .htm .xml .rdf .html .url .shtml .lng .dcf .dop .omd .torrent .php .css.inc .js .tpl .sql .reg .bat .vbs .cmd .btm .ncl .m3u .pls .cue
Die Liste kann in der Script-Konfiguration editiert werden.
Das Script (oder das Scriptpaket Column.File_Lines.osp) muss nach /dopusdata\Script Addins\ kopiert werden.
Column.File_Lines.vbs
Code: Alles auswählen
Option Explicit
'
' Column.File_Lines
' (c) 2014 Kundal & tbone
'
Function OnInit(data)
Dim uid : uid = "2E645D28-20E6-4D26-AF7B-6C6774A48FCE"
Dim url : url = "http://www.haage-partner.de/forum/viewtopic.php?f=45&t=4725"
data.name = "Column.File: Lines"
data.desc = "Spalte um die Anzahl der Zeilen von textbasierten Dateien anzuzeigen"
data.copyright = "2014 Kundal und leicht verbessert von tbone"
data.version = "1.1"
data.default_enable = true
data.config.Extensions = ".txt.ini.csv.html.xml.rdf.html.url.shtml.lng.dcf." &_
"dop.omd.torrent.php.css.inc.js.tpl.sql.reg.bat.vbs.cmd.btm.ncl.m3u.pls" &_
".cue.pys.pl.ps1.psm1.hta.asp.vb.bas.sql"
Dim col : Set col = data.AddColumn
col.name = "Zeilen"
col.method = "OnLines"
col.justify = "right"
col.type = "number"
col.autogroup = true
End Function
Function OnAboutScript(data) 'v0.1
Dim cmd: Set cmd = DOpus.Create.Command()
If (Not cmd.Commandlist("s").exists("ScriptWizard")) Then
If (DOpus.Dlg.Request("Das Add-In 'ScriptWizard' wurde nicht gefunden."&vbCrLf&vbCrLf&_
"Installiere 'ScriptWizard' von [resource.dopus.com]."&vbCrLf&"Das Add-In aktiviert diesen Dialog und bietet ausserdem "&_
"einfaches updaten von Scripts und vieles mehr.","Ja, zum Download!|Abbrechen", "No About.. ", data.window)) Then _
cmd.RunCommand("http://resource.dopus.com/viewtopic.php?f=35&t=23179")
Else
cmd.RunCommand("ScriptWizard ABOUT WIN="&data.window&" FILE="""&Script.File&"""")
End If
End Function
'Implement the Lines column
Function OnLines(data)
Dim objFS, objTS
If data.item.is_dir = True Then Exit Function
If instr(Script.config.Extensions, lcase(data.item.ext)) = 0 Then Exit Function
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objTS = objFS.OpenTextFile(data.item)
If objTS.AtEndOfStream = True Then
data.value = 0
Exit Function
End If
objTS.ReadAll
data.value = objTS.Line
End Function
'MD5 = "c8eba1407d9cdc1de6861c9de7824133"; DATE = "2014.11.29 - 11:10:25"