Weird Code Comment's String ERROR

[VB6_to_PBx]

Weird Code Comment's String ERROR

tested in PureBasic 5.72LTS to newer 6.0LTS

Alt + 0149 = •
using • in Procedure TAB Comments sections
causes artifact errors at ends of Comment Strings
see Lite-Green colored "artifacts" at ends of Comment strings ( Red Arrows locations )

Solution Fix :
was to change all the Alt + 0149 = • to :
in my Program ... that solved it !

i probably had around 40 or less • characters in my Comment Strings
however, when i replaced all the • with the character #58 = :
PureBasic reported it had changed 1188 instances ????? ... very strange !
i could only see less than 40 instances in a very thorough search thru every Line of my Code

Also it reduced the size of my .PB file to 2KB less

Looks like you should never use Alt + 0149 = •
in your Comments

[VB6_to_PBx]

try this Code and see if Comments show artifacts ??

i pasted it in my Forum
then copied it back into PureBasic IDE
and it still shows artifacts at comment's ends

Code: Select all

Procedure CalcStart()

  ;------ select DragStrip Length
  Select GetGadgetState(Var(209))
  Case 0 : Calc660()                        ;-  660 Ft • 1/8th Mile • 60Ft ET • 330Ft ET • 660 Ft ET + MPH
  Case 1 : Calc1000_Nitro()                 ;- 1000 Ft • Nitro Dragster  •  Nitro FunnyCar  •  1000Ft MPH
  Case 2 : Calc1320_Default()               ;- 1320 Ft • 1/4 Mile •••  Highest Accuracy  ••• Default Choice
  Case 3 : Calc1320_no_MPH()                ;- 1320 Ft • Validate all ET's MPH  •• 2nd Highest Accuracy ••
  Case 4 : Calc1320_60ET()                  ;- 1320 Ft • calculate missing 60Ft ET
  Case 5 : Calc1320_330ET()                 ;- 1320 Ft • calculate missing 330Ft ET
  Case 6 : Calc1320_660ETMPH()              ;- 1320 Ft • calculate missing 660Ft ET and 660Ft MPH
  Case 7 : Calc1320_1000ET()                ;- 1320 Ft • calculate missing 1000Ft ET
  Case 8 : Calc1320_1320MPH()               ;- 1320 Ft • calculate missing 1320Ft MPH
  Case 9 : Calc1320_330ET_1320ET_1320MPH()  ;- 1320 Ft • Front-Half to Back-Half : 330ET • 1320 ET + MPH
  Case 10: Calc1320_660ET_1000ET_1320ET()   ;- 1320 Ft • Back-Half simulation : 660ET • 1000ET • 1320ET
  Case 11 : Calc1320_990ET()                ;- 1320 Ft • 990 Ft  ET  Dragstrip  •••  Highest Accuracy  •••
  EndSelect
  ;

this next Code solves the comments problem

Code: Select all

Procedure CalcStart()

  ;------ select DragStrip Length
  Select GetGadgetState(Var(209))
  Case 0 : Calc660()                        ;-  660 Ft : 1/8th Mile : 60Ft ET : 330Ft ET : 660 Ft ET + MPH
  Case 1 : Calc1000_Nitro()                 ;- 1000 Ft : Nitro Dragster  :  Nitro FunnyCar  :  1000Ft MPH
  Case 2 : Calc1320_Default()               ;- 1320 Ft : 1/4 Mile :::  Highest Accuracy  ::: Default Choice
  Case 3 : Calc1320_no_MPH()                ;- 1320 Ft : Validate all ET's MPH  :: 2nd Highest Accuracy ::
  Case 4 : Calc1320_60ET()                  ;- 1320 Ft : calculate missing 60Ft ET
  Case 5 : Calc1320_330ET()                 ;- 1320 Ft : calculate missing 330Ft ET
  Case 6 : Calc1320_660ETMPH()              ;- 1320 Ft : calculate missing 660Ft ET and 660Ft MPH
  Case 7 : Calc1320_1000ET()                ;- 1320 Ft : calculate missing 1000Ft ET
  Case 8 : Calc1320_1320MPH()               ;- 1320 Ft : calculate missing 1320Ft MPH
  Case 9 : Calc1320_330ET_1320ET_1320MPH()  ;- 1320 Ft : Front-Half to Back-Half : 330ET : 1320 ET + MPH
  Case 10: Calc1320_660ET_1000ET_1320ET()   ;- 1320 Ft : Back-Half simulation : 660ET : 1000ET : 1320ET
  Case 11 : Calc1320_990ET()                ;- 1320 Ft : 990 Ft  ET  Dragstrip  :::  Highest Accuracy  :::
  EndSelect
  ;