Ich habe hier ein waaaaaaahnsinnig grosses IDE-Tool
Code: Alles auswählen
EnableExplicit
Define a$ = GetClipboardText()
Define b$ = ""
Define LineFeeds = CountString(a$, #LF$) + 1
Define i
For i= 1 To LineFeeds
b$ + "; " + StringField(a$, i, #LF$)
Next i
SetClipboardText(b$ + #LF$)
Kaff... Nein, es nimmt sich den vorhandenen Clipboardtext und fügt vor jede Zeile (sofern sie gefunden wird) ein "; ".
Warum ?
Texte die nicht PB Code enthalten, mal eben schnell in die IDE zu kopieren, ohne das lästige umformen des Lexers bei Schlüsselwörtern wie Else, To, If usw.
Im Normalfall sollte das auch Cross Platform sein (es sei denn die #LF$ sind bei anderen OS etwas anderes im Clipboard).
Ganz einfach kompilieren und ohne weitere Parameter in die Tools eintragen.
Einen Text ins Clipboard per Strg-C ... Das Tool aufrufen... und an gewünschte Stelle Strg-V.... fertig ist der Kommentar.
Ich habe mir das auf eine Taste gelegt, sowie in die Toolbar integriert. Einfach aber effizient.