PRINT USING for non US numbers

[SMcNeill]

Wouldn't an easy solution here be to just print to a temp screen, read the output into a string, and then swap the periods and commas?

Here's a format$ routine that I worked up in the past.  All it needs is to swap periods for commas, correct?

Code: QB64: [Select]

1.  PRINT format$("###.###", "123.456789")
2. PRINT format$("###,.##", "123456789.987654321")
3.  
4.  
5. FUNCTION format$ (template AS STRING, text AS STRING)
6.     d = _DEST: s = _SOURCE
7.     n = _NEWIMAGE(80, 80, 0)
8.     _DEST n: _SOURCE n
9.     PRINT USING template; VAL(text)
10.     FOR i = 1 TO 79
11.         t$ = t$ + CHR$(SCREEN(1, i))
12.     NEXT
13.     IF LEFT$(t$,1) = “%” THEN t$ = MID$(t$,2)
14.     format$ = t$
15.     _DEST d: _SOURCE s
16.     _FREEIMAGE n
17. END FUNCTION

[RhoSigma]

Here's the new IndexFomat$() function, which I've mentioned earlier:
https://www.qb64.org/forum/index.php?topic=2932.0

[bplus]

Wouldn't an easy solution here be to just print to a temp screen, read the output into a string, and then swap the periods and commas?

Here's a format$ routine that I worked up in the past.  All it needs is to swap periods for commas, correct?

Code: QB64: [Select]

1.  PRINT format$("###.###", "123.456789")
2. PRINT format$("###,.##", "123456789.987654321")
3.  
4.  
5. FUNCTION format$ (template AS STRING, text AS STRING)
6.     d = _DEST: s = _SOURCE
7.     n = _NEWIMAGE(80, 80, 0)
8.     _DEST n: _SOURCE n
9.     PRINT USING template; VAL(text)
10.     FOR i = 1 TO 79
11.         t$ = t$ + CHR$(SCREEN(1, i))
12.     NEXT
13.     IF LEFT$(t$,1) = “%” THEN t$ = MID$(t$,2)
14.     format$ = t$
15.     _DEST d: _SOURCE s
16.     _FREEIMAGE n
17. END FUNCTION

Oh Steve added code to his post since I last looked. In meantime I worked up complete conversion starting with Fellippe's format$ function which is a little buggy, fixed the ones that started with comma but starting with zero's is more work!

Code: QB64: [Select]

1. _TITLE "Format$ Function by Fellippe"
2. ' ref  https://www.qb64.org/forum/index.php?topic=2932.msg121943#msg121943
3. RANDOMIZE TIMER
4. DO
5.     r = RND < .5
6.     IF r THEN x## = -1 * RND * 10 ^ INT(RND * 9) ELSE x## = RND * 10 ^ INT(RND * 9)
7.     x## = x## + RND
8.     PRINT swapAB$(format$("#####################,.####", x##), ",", ".")
9.     SLEEP
10. LOOP UNTIL _KEYDOWN(27)
11.  
12. FUNCTION format$ (template$, value##) 'this is not perfect some start with 0's
13.     DIM tempImage&, prevDest&, prevSource&
14.     DIM i AS INTEGER, result$
15.  
16.     tempImage& = _NEWIMAGE(LEN(template$) + 10, 1, 0)
17.  
18.     prevDest& = _DEST
19.     prevSource& = _SOURCE
20.     _DEST tempImage&
21.     _SOURCE tempImage&
22.  
23.     PRINT USING template$; value##;
24.     FOR i = 1 TO POS(0)
25.         result$ = result$ + CHR$(SCREEN(1, i))
26.     NEXT
27.  
28.     _DEST prevDest&
29.     _SOURCE prevSource&
30.     _FREEIMAGE tempImage&
31.     IF LEFT$(result$, 1) = "," THEN result$ = RIGHT$(result$, LEN(result$) - 1) ' fix results that start with comma
32.     format$ = result$
33. END FUNCTION
34.  
35. FUNCTION swapAB$ (s$, A$, B$)
36.     FOR i = 1 TO LEN(s$)
37.         IF MID$(s$, i, 1) = A$ THEN
38.             build$ = build$ + B$
39.         ELSEIF MID$(s$, i, 1) = B$ THEN
40.             build$ = build$ + A$
41.         ELSE
42.             build$ = build$ + MID$(s$, i, 1)
43.         END IF
44.     NEXT
45.     swapAB$ = build$
46. END FUNCTION
47.  
48.  
49.  

Perhaps someone who actually needs this will fix remainder of bugs.

[bplus]

OK this is slightly better, no problem with 0 starts except where they should be, is it the string parameter?
I bet, because then you dont have to worry about the dang Number type!

Code: QB64: [Select]

1. _TITLE "Format$ Function by Steve best so far 2021-01-02" ' b+ mod 2021-01-02
2. ' ref https://www.qb64.org/forum/index.php?topic=3426.msg127488#msg127488
3. RANDOMIZE TIMER
4. DO
5.     r = RND < .5
6.     IF r THEN x## = -1 * RND * 10 ^ INT(RND * 9) ELSE x## = RND * 10 ^ INT(RND * 9)
7.     x## = x## + RND
8.     PRINT swapAB$(format$("#####################,.####", STR$(x##)), ",", ".")
9.     SLEEP
10. LOOP UNTIL _KEYDOWN(27)
11.  
12. FUNCTION format$ (template AS STRING, text AS STRING)
13.     d = _DEST: s = _SOURCE
14.     n = _NEWIMAGE(80, 80, 0)
15.     _DEST n: _SOURCE n
16.     PRINT USING template; VAL(text)
17.     FOR i = 1 TO 79
18.         t$ = t$ + CHR$(SCREEN(1, i))
19.     NEXT
20.     IF LEFT$(t$, 1) = "%" THEN t$ = MID$(t$, 2)
21.     format$ = t$
22.     _DEST d: _SOURCE s
23.     _FREEIMAGE n
24. END FUNCTION
25.  
26. FUNCTION swapAB$ (s$, A$, B$)
27.     FOR i = 1 TO LEN(s$)
28.         IF MID$(s$, i, 1) = A$ THEN
29.             build$ = build$ + B$
30.         ELSEIF MID$(s$, i, 1) = B$ THEN
31.             build$ = build$ + A$
32.         ELSE
33.             build$ = build$ + MID$(s$, i, 1)
34.         END IF
35.     NEXT
36.     swapAB$ = build$
37. END FUNCTION
38.  
39.  
40.  

[zaadstra]

Wouldn't an easy solution here be to just print to a temp screen, read the output into a string, and then swap the periods and commas?

Here's a format$ routine that I worked up in the past.  All it needs is to swap periods for commas, correct?

Thanks for showing this code, I wasn't familiar with the posibility of temp screens.  This may open a lot of new ideas as your examples shows.  I am going to play with this one!

[bplus]

Thanks for showing this code, I wasn't familiar with the posibility of temp screens.  This may open a lot of new ideas as your examples shows.  I am going to play with this one!

Yes, an eye opener to me when I first came to QB64! from QB4.5 and early VB.

Screen 0 I think is the only one you can pull out characters on screen with SCREEN() Function.

[zaadstra]

It is the only screen I use,  graphics are not for me.
Only wishing it was somewhat more flexiible, bigger, resizeable, copy text from it (in win ctrl-C) ...

I'm still thinking I haven't seen all new goodies from QB64, compared to QB4.5! ;-)

[bplus]

It is the only screen I use,  graphics are not for me.
Only wishing it was somewhat more flexiible, bigger, resizeable, copy text from it (in win ctrl-C) ...

I'm still thinking I haven't seen all new goodies from QB64, compared to QB4.5! ;-)

screen0 = 0 ' no graphics
anySize& = _NEWIMAGE(anyWidth, anyHeight, screen0 )

_dest anySize&  'private area for working on screen stuff or whatever

_dest 0 'back to the screen for display to user or can
Screen anySize&

[zaadstra]

Amazing!  But so offtopic ;-)   I've got it working and will play around with this.

[SMcNeill]

Amazing!  But so offtopic ;-)   I've got it working and will play around with this.

You might also try adding a $RESIZE command to your code.  ;)

[zaadstra]

You might also try adding a $RESIZE command to your code.  ;)

Noted! :-)   I know my way around on the Wiki but do not always see the connection between the (new) commands.
Also, it sometimes takes some puzzling to see how the system 'thinks' (like with the screen and _dest commands). Before this I only discovered the Console as extra window, because of it's different properties (more shell window like, just like QB4.5).