stelle ich hier mein UserScript zur verfügung:
UserScript - Pure Basic Syntax Highlighting (V 1.6b) (21. Jun 2013)
_______________
Neuste Version hier: https://www.purebasic.fr/english/viewto ... 04#p571104
_______________
Beispiel-Code:
Code: Alles auswählen
#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')
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).
Einstellungen
Die 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 Debugger
Code: Alles auswählen
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
Der Code wandelt automatisch die Farben in HTMLFarben um, und kommentiert nicht ausgewählte Highlights aus.// ==PureBasicPreference==
// ==/PureBasicPreference==
Hilfe beim Installieren
Wer nicht weiß, wie er ein UserScrip bei sich und seinem Browser installiert, kann hier mal gucken, da ist es gut erklärt.
Hinweise
ES ist mir bereits bekannt, das nun auch nicht PB-Codes eingefärbt werden, zB php oder JS, ich versuche dort noch eine erkennung einzubauen...