PDA

View Full Version : Indent code



dco045
05-05-2024, 19:50
Hi Eros,


On february 17, we have some exchanges about ThinAir.



Thanks Dany for private feedback and testing

I've recoded from the ground up a new splitter and seems working quite fine.
There are still some little defects that I will try to solve in next versions

Soon will publish thinBasic 1.12.1 version with this fix.
Eros

I downloaded 1.12.1 , solving resizing issue.

But at the moment I didn't see that something disappeared.

When I select a part of code, and press right mouse button the popup line "Indent code" is no more displayed.

Is it a misconfiguration in my installation or a no more feature ?

Config : TB 1.12.1 Windows 7 sp 1

Works ok in TB 1.12.0 Windows 7 sp 1

When I look in https://www.thinbasic.com/downloads.html (https://www.thinbasic.com/downloads.html) the last version is still 1.12.0. ?

Thanks for help.

Best regards,

Dany

dco045
07-05-2024, 01:20
Can't edit previous post.:cry::confused:

The need for thinAir to indent code is the warning message appearing in this script.
I really don't see where a if/then block violation is



Uses "Console"

dim prg_version as string = "1.5.0"

dim buffer_by_lines as string = "2024-03-31 03:00:00+0200;746,4"
dim n_ligne as long ' compteur
dim c_yellow as integer value 14

printl "--------------------------------------------------------------------------------"

printl "starting"

for n_ligne = 2 to 4
print "in n_ligne loop n_ligne =" , n_ligne , " | "
if parsecount( buffer_by_lines , ";" ) = 2 then ' line with extra fields are ignored
else
printl "bad line"
endif

buffer_by_lines += " ; extra field"

next ' n_ligne = 2 to n_lines

printl "After n_ligne loop n_lines =" , n_ligne

printl $crlf, "waiting 10 seconds." in c_yellow
if waitkey (10) = "[TIMEOUT]" then stop
printl "Paused"
waitkey

Here is a screen snapshot of ThinAir showing the warning

10366

The script is a reduced part of a more complex script :comp1: but the script does correctly his work ?

Best regards,

Dany