Sorry your browser is not supported!

path$=cl$()
if path$>""
n=len(path$)
filename$=left$(right$(path$,n-1),n-2)
open to read 1,filename$
if file exist (filename$+"_decompressed.dba") then delete file filename$+"_decompressed.dba"
open to write 2,filename$+"_decompressed.dba"
repeat
read string 1,line$
words$=first token$(line$,":")
repeat
   write string 2,words$
   words$=next token$(":")
   inc linenumber
until words$=""
until file end(1)=1
close file 1:close file 2
print "Code was decompressed into ",linenumber-1," lines. Have a nice day."
wait key
endif

 path$=cl$()
if path$>""
n=len(path$):filename$=left$(right$(path$,n-1),n-2)
open to read 1,filename$:dim storeline$(20)
repeat
inc linenumber
  for commandnumber=1 to 25
    read string 1,stuff$
    if stuff$>"" then storeline$(linenumber)=storeline$(linenumber)+stuff$+":"
    if stuff$="" and file end(1)=0 then dec commandnumber
  next commandnumber
until file end(1)=1
close file 1
if file exist (filename$+"_compressed.dba") then delete file filename$+"_compressed.dba"
open to write 2,filename$+"_compressed.dba"
for printline=1 to linenumber
write string 2,storeline$(printline)
next printline
close file 2:print "Code was compressed into ",linenumber," lines. Have a nice day."
wait key:endif

Dim Quotes(100) as String

path$=cl$()
if path$>""

n=len(path$)
filename$=left$(right$(path$,n-1),n-2)

open to read 1,filename$
if file exist (filename$+"_IF_Then_Conv.dba") then delete file filename$+"_IF_Then_Conv.dba"
open to write 2,filename$+"_IF_Then_Conv.dba"

repeat
read string 1,line$
words$=IF_Then_Conv(line$)
write string 2,words$
until file end(1)=1

close file 1
close file 2

print "Code "IF Then" statements have been converted."

wait key
endif


Function IF_Then_Conv(text$)
   local if_pos as DWORD
   local thn_pos as DWORD
   local else_pos as DWORD
   local IfCount as Integer

   text$=Quote_Replace(text$)

   `Do a look through for IF's and THEN's.
   thn_pos=FIND SUB STRING$(lower$(text$)," then ")
   if thn_pos<1
      text$=Quote_Restore(text$)
      ExitFunction text$
   Endif
   if_pos=FIND SUB STRING$(lower$(text$),"if ")
   if if_pos<1
      text$=Quote_Restore(text$)
      ExitFunction text$
   Endif

   IfCount=0
   new_part1$=""
   Do
      thn_pos=FIND SUB STRING$(lower$(text$)," then ")
      if thn_pos<1 Then Exit

      if_pos=FIND SUB STRING$(lower$(text$),"if ")
      if if_pos<1 Then Exit

      if if_pos>thn_pos
         text$=Left$(text$,thn_pos-1)+" NEHT "+Right$(text$,len(text$)-(thn_pos+5))
      Else
         new_part1$=new_part1$ + Left$(text$,thn_pos-1)+":"
         text$=Right$(text$,len(text$)-(thn_pos+5))
         text$=Replace_Text(text$,": Else ",":Else ")
         text$=Replace_Text(text$," Else ",":Else ")
         Inc IfCount
      Endif
   Loop
   text$=new_part1$+text$
   For i = 1 to IfCount
      text$=text$+":Endif"
   Next i
   text$=Quote_Restore(text$)
Endfunction text$


Function Quote_Replace(text$)
   `Temporarily replace Quotes so we don't confuse them in the search strings
   place=0:qn=0
   Do
      place=place+1
      if place > len(text$) Then Exit
      l$=Mid$(text$,place)
      if l$=Chr$(34)
         t$=l$
         Do
            place=place+1
            l$=Mid$(text$,place)
            t$=t$+l$
            if l$=Chr$(34) Then Exit
         Loop
         Quotes(qn)=t$
         text$=Replace_Text(text$,t$,"QQuote"+Str$(qn))
         Place=0
         qn=qn+1
      Endif
   Loop
Endfunction text$

Function Quote_Restore(text$)
   `Replaces the quotes from a previous Quote Replace
   qn=0
   Do
      If Quotes(qn)="" Then Exit
      text$=Replace_Text(text$,"QQuote"+Str$(qn),Quotes(qn))
      Quotes(qn)=""
      qn=qn+1
   Loop
Endfunction text$


Function Replace_Text(text$,find$,replace$)
   local find_pos as DWORD
   find_pos=FIND SUB STRING$(lower$(text$),lower$(find$))
   if find_pos<1 Then ExitFunction text$
   new_text$=Left$(text$,find_pos-1)+replace$+Right$(text$,len(text$)-(find_pos+(len(find$)-1)))
Endfunction new_text$

`Test of IF_Then Converter

`Simple test
If a=1 then b=1

`Complex test
a=a+1: if a>3 then b=1:c=1:if a=5 then b=b-1 else b=b+1

`Ignore quotes test
If d$=" Then ": p$=" if I am then I am. ":Endif

Print
print
print
print
print "Hej"
print "det her virker!"
d=2
f=4
print d+f

   if d+f=7
   else
   cls
   print "COOL"

wait key
endif

Print:print:print:print:print "Hej":print "det her virker!":d=2:f=4:print d+f:   if d+f=7:   else:   cls:   print "COOL":wait key:endif: