PureBasic Forums - English

Code: Select all

Procedure.s BeautifyCode(Source.s)
	Protected q$, t.i, k, t$=Source.s, i.i, delimiter.s, dp.s
	For i=1 To 16
		Select i
			Case 1
				delimiter=";"
				dp=" "+delimiter+" "
			Case 2
				delimiter="("
				dp=delimiter+" "
			Case 3
				delimiter=")"
				dp=" "+delimiter+" "
			Case 4
				delimiter=","
				dp=" "+delimiter+" "
			Case 5
				delimiter=":"
				dp=" "+delimiter+" "
			Case 6
				delimiter="<>"
				dp=" "+delimiter+" "
			Case 7
				delimiter="<="
				dp=" "+delimiter+" "
			Case 8
				delimiter=">="
				dp=" "+delimiter+" "
			Case 9
				delimiter="=>"
				dp=" "+delimiter+" "
			Case 10
				delimiter="=<"
				dp=" "+delimiter+" "
			Case 11
				delimiter="+"
				dp=" "+delimiter+" "
			Case 12
				delimiter="|"
				dp=" "+delimiter+" "
			Case 13
				delimiter="="
				dp=" "+delimiter+" "
			Case 14
				delimiter="; {"
				dp=";{ "
			Case 15
				delimiter="; }"
				dp=";{ "
			Case 16
				delimiter=") \"
				dp=")\"
		EndSelect
		t=CountString(t$, delimiter)+1
		For k = 1 To t
			If k<t
				q$+Trim(StringField(t$, k, delimiter))
				q$+dp
			Else
				q$+Trim(StringField(t$, k, delimiter))
			EndIf
		Next
		t$=q$ : q$=""
	Next
	ProcedureReturn t$
EndProcedure

 f$=OpenFileRequester("","","", 0)
 
 Global j$

If ReadFile(0,f$)
	While Eof(0)=0
		a$=Trim(ReadString(0, ReadStringFormat(0)))
		a$=RemoveString(a$, Chr(10)+Chr(13))
		a$=RemoveString(a$, Chr(9))
		t$+a$+#CRLF$
	Wend
	CloseFile(0)
	
	j$= BeautifyCode(t$)
	SetClipboardText(j$)
	
	If CreateFile(0, f$)
		WriteString(0, j$)
		CloseFile(0)
		RunProgram(f$)	
	Else
		MessageRequester("file error",GetLastErrorAsText(GetLastError()))
	EndIf
EndIf
End

Code: Select all

  Protected.i np = CountProgramParameters()
  If np
    Protected.i hSci = Val(GetEnvironmentVariable("PB_TOOL_Scintilla"))
    Protected.i hIDE = Val(GetEnvironmentVariable("PB_TOOL_MainWindow"))
    If hSci
      Protected.s r$
      Select UCase(ProgramParameter())  ; 0-based index
      Case "COPYALL"    ; Arguments: COPYALL, Shortcut = [Ctrl+Shift+k]
        SendMessageTimeout_(hSci,#SCI_SELECTALL,0,0,#SMTO_ABORTIFHUNG,#SCI_TMO_MS,@np)
        Delay(10)
        win_SendKeys(hIDE, #NULL$, "{CONTROLDOWN}c{CONTROLUP}")
      Case "INDENTALL"  ; Arguments: INDENTALL, Shortcut = [Ctrl+Shift+i]
        SendMessageTimeout_(hSci,#SCI_SELECTALL,0,0,#SMTO_ABORTIFHUNG,#SCI_TMO_MS,@np)
        Delay(10)
        win_SendKeys(hIDE, #NULL$, "{CONTROLDOWN}i{CONTROLUP}")