Um die Codes hier im Forum besser lesbar zu machen, ohne den Code in PureBasic zu kopieren,
stelle ich hier mein UserScript zur verfügung:
UserScript - Pure Basic Syntax Highlighting (V 1.6b) (21. Jun 2013)(Link aktuallisiert 21.6.2013)Beispiel-Code:Code:
#Constant = "String, #Constants and ; Comments are ignored"
; One Comment, #Constants and "Strings" are ignored
Structure AnyStructure
Long.l
*Pointer.AnyStructure
String$
EndStructure
Procedure AnyProcedure(Parameter1, *Parameter2, Parameter3)
! MOV eax, 1
ProcedureReturn
EndProcedure
AnyStructureVarible.AnyStructure
AnyStructureVarible\Long = $FF00CC
AnyProcedure(3.14, @AnyProcedure(), 'Abc')
Beispiel-Ergebis::
Details:Das Script sucht alle DIVs nach der Classe für CODEs ab, und wendet dann auf den Inhalt ein regulären Ausdruck an.
Dieser ist erstaunlicherweise auch bei sehr langen Codes oder mehreren auf einer seite recht schnell (max 2s pro ganze Website).
EinstellungenDie SyntaxFraben kann jeder selber einstellen.
Entweder duch direkte änderum im UserScript, im Bereich:
// ==PureBasicPreference==oder nur zur Hilfe dieses Programms:
Eigene Editoreinstellungen benutzen:Um euern eigenen Editoreinstellungen zu benutzen, startet ihr bitte diesen Code
mit DebuggerCode:
Procedure.s HTMLColor(Color)
ProcedureReturn "#"+RSet(Hex(Red(Color)),2,"0")+RSet(Hex(Green(Color)),2,"0")+RSet(Hex(Blue(Color)),2,"0")
EndProcedure
Procedure Export(PreferencesFileName$)
If OpenPreferences(PreferencesFileName$)
PreferenceGroup("Global")
Debug " PBSH_Highlight['EnableKeywordBolding'] = "+ReadPreferenceString("EnableKeywordBolding", "1")+";"
PreferenceGroup("Editor")
Restore PreferenceKeys
Repeat
Read.s Keyword$
If Keyword$
String$ = ReplaceString(ReadPreferenceString(Keyword$, ""), ",", " ")
If Right(Keyword$, 5) = "Color" : String$ = HTMLColor(Val(String$)) : EndIf
If ReadPreferenceInteger(Keyword$+"_Disabled", 0)
Debug " //PBSH_Highlight['"+Keyword$+"'] = '"+String$+"';"
Else
Debug " PBSH_Highlight['"+Keyword$+"'] = '"+String$+"';"
EndIf
EndIf
Until Not Keyword$
ProcedureReturn #True
EndIf
EndProcedure
If Not Export(GetEnvironmentVariable("APPDATA")+"\PureBasic\PureBasic.prefs")
PreferencesFileName$ = OpenFileRequester("Preference File", GetHomeDirectory(), "PureBasic.prefs", 0)
Export(PreferencesFileName$)
EndIf
DataSection
PreferenceKeys:
Data.s "EditorFontName", "EditorFontSize", "EditorFontStyle", "BackgroundColor", "NormalTextColor"
Data.s "BasicKeywordColor", "CommentColor", "ConstantColor", "StringColor", "PureKeywordColor"
Data.s "ASMKeywordColor", "PointerColor", "NumberColor", "StructureColor", "LabelColor"
Data.s "OperatorColor", "SeparatorColor", ""
EndDataSection
Den Inhalt des Debuggers dann einfach in das UserScript kopieren, an die Stelle zwischen:
Zitat:
// ==PureBasicPreference==
// ==/PureBasicPreference==
Der Code wandelt automatisch die Farben in HTMLFarben um, und kommentiert nicht ausgewählte Highlights aus.
Hilfe beim InstallierenWer nicht weiß, wie er ein UserScrip bei sich und seinem Browser installiert, kann
hier mal gucken, da ist es gut erklärt.
HinweiseES ist mir bereits bekannt, das nun auch
nicht PB-Codes eingefärbt werden, zB php oder JS, ich versuche dort noch eine erkennung einzubauen...