snippet for debugging constants

[#NULL]

this code grabs your clipboard text, searches it for constants
and generates a new clipboard text, a PB-code to debug these constants.

Code: Select all

; conDeb.pb
; (constant debugger)
; searches clipboard text for constants
; and sets a PureBasic Debug code for these
; constants as new clipboard text.

; http://www.purebasic.fr/german/viewtopic.php?t=14517
; by '#null' (thanks to 'sibru')



text.s = GetClipboardText()

NewList const.s()
AddElement(const())

For i=1 To Len(text)
  char = Asc( Mid(text,i,1) )
  If char = 35;"#"
    switch = 1
    const()+"#"
  ElseIf switch And Not FindString("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_", Chr(char), 1)
    switch = 0
    AddElement(const())
  ElseIf switch
    const()+Chr(char)
  EndIf
Next

text=""
ForEach const()
  If const()
    text + ";" + const() + #CRLF$
  EndIf
Next
text + #CRLF$
ForEach const()
  If const()
    text + "Debug " + Chr(34) + const() + " = " + Chr(34) + " + Str(" + const() + ")" + #CRLF$
  EndIf
Next

SetClipboardText(text)

[PB]

Useful, thanks!