PureBasic Forums - English

Waltz! (1-2-3, 1-2-3…)
https://www.youtube.com/watch?v=WDHPsbKx1sw

Databases?
Do you mean poor AIs forcibly interpreting data in a biased way?

Dear AZJIO, I'm subcoscious in this moment (did a lot of stuff past night; I'm very tired…) but hope the Wise Admins will let me communicate to you a Glorious, never-heard-before, Heavenly Message: please get a Mac

You almost seem to be an AI from your answers, anyway who cares?
Recently, I tried to ask some programming stuff to google gemini (free, no login) and sometimes it was a great help… (I said sometimes; on other occasions it was FAR worse than getting no response………)

SMaag wrote: Thu Mar 12, 2026 7:08 amWhat is your goal to reach?

Having optional parameters anywhere, not only at the end of the "parameter list"

viewtopic.php?p=652619#p652619

Just remember that anything you find MAY need some tweaking (to work on the latest PB version)

viewtopic.php?t=83956

If you mean simple stuff for beginners (not github repositories full of "complex" stuff…) there are some on PB explorer tab…

PS: Welcome!

I would have proposed to implement it also for procedures, but probably it would be confusing to see:
DoStuff(,,,2,,4,,"Pizza",,1)
directly in procedures… that's not the case with macros; they CAN be a little cryptic (# stuff etc.)
DoStuff(,,,2,,4,, Pizza, ,1) ; ', ,' same as ',,'

PS: in any ...

Procedure.s MakePath(FullPath$)
Protected Path$, cs, i
FullPath$ = RTrim(FullPath$, #PS$)
cs = CountString(FullPath$, #PS$) + 1
For i = 1 To cs
Path$ + StringField(FullPath$, i, #PS$) + #PS$
If FileSize(Path$) <> -2 And Not CreateDirectory(Path$)
ProcedureReturn Path$ ; Error Folder
EndIf ...

It would be cool if this worked:

Thanks, I know; I could have used #PB_Default too
I WANT to get 2 as result!

Is this possible in some easy way?

Fun fact: for PB Mac FileSize, "/a/path/" <> "/a/path" if there is a "path" file, but not on windows (so I edited my previous post a bit)

:mrgreen:
Procedure Makepath(Sample$)
Protected PS$, Path$, Path2$, cs, D, fs
Sample$ = Trim(Sample$, #PS$)
If #PS$ = "/" : PS$ = #PS$ : EndIf
cs = CountString(Sample$, #PS$) + 1
For D = 1 To cs
Path2$ + StringField(Sample$, D, #PS$) + #PS$
Path$ = PS$ + Path2$
fs = FileSize(Path$)
If fs ...