about Replace$

[primo]

suppose i have a text file in which its words should be separated by one space only, and i don't want some one to cheat by inserting other spaces, i know there is a regular expression solution for such cases, but i prefer a ready to use functions
this is my approach using a string instead of a file, it seems to work, other solutions is appreciated.
also why the text in the TextBox selected ?

Uses "UI"
 
  Begin ControlID
    %ID_TextBox2
     
  End ControlID
     
  Function TBMain()  
    Dim hDlg, i As Long 
    Dim stringo As String
    stringo = "Goto          (goto , GOTO                    , GO TO or other case       combinations, depending on    the programming language) is a    statement found in many computer        programming languages. It performs a one-way transfer   of control to another line of code" 
    For i=1 To 100
    stringo = Replace$(stringo, "  ", " ")
    If InStr(1, Stringo, "  ") = 0 Then
    Exit For
    End If
    Next
    'msgbox 0, str$(i)
    Dialog New 0, "replace many spaces to one space", -1, -1, 500, 400, _
                                                  %WS_DLGFRAME Or %DS_CENTER Or %WS_CAPTION Or %WS_SYSMENU, _
                                                  0 To hDlg
 
    
    Control Add Textbox , hDlg, %ID_TextBox2, "test" , 5,  25, 450, 310,  %ES_WANTRETURN  Or _
                                                                          %ES_MULTILINE   Or _
                                                                          %ES_AUTOVSCROLL Or _ 
                                                                                        
     
Control Append Text hDlg, %ID_TextBox2, $CRLF & stringo & $CRLF     
 
    '---Show dialog in MODAL
    Dialog Show Modal hDlg, Call dlgCallback
  End Function
   
  CallBack Function dlgCallback() As Long
   
    Select Case CBMSG
      Case %WM_CLOSE
    End Select 
   
  End Function

EDIT:
this is a better solution:
replace:

For i=1 To 100
    stringo = Replace$(stringo, "  ", " ")
    If InStr(1, Stringo, "  ") = 0 Then
    Exit For
    End If
    Next

with:

Repeat
    stringo = Replace$(stringo, "  ", " ")
    Until InStr(1, Stringo, "  ") = 0

[ErosOlmi]

Ciao,

have a look at TrimFull$ too: http://www.thinbasic.com/public/products/thinBasic/help/html/index.html?trimfull$.htm

Eros

[primo]

Thank you Eros, this is unexpected that only stringo = TrimFull$(stringo) will remove All double spaces inside the stringo. very nice additions to thinbasic. and it makes the above code even shorter and speedier.

[ErosOlmi]

There are a lot of built in string functions in thinBasic, developed over the years thanks to suggestions and contributions from many users. Built in functions are much more faster because they are compiled.

Ciao
Eros

[primo]

This is the final version of the code above, added the Eros suggestion, also added :
Control Set Focus hDlg, %ID_TextBox
Control Send hDlg, %ID_TextBox, %EM_SETSEL, 0, 0
to deselect the text in the TextBox. if we change the 0,0 to 1,0 then we select the first character, if we change it to 7,0 then what selected is test from the first line and G from the second line. since 4+1+$CRLF(2 chars) = 7

Uses "UI"

Begin ControlID
%ID_TextBox

End ControlID

Function TBMain() 
Dim hDlg, i As Long
Dim MyStr As String
MyStr = "Goto (goto , GOTO , GO TO or other case combinations, depending on the programming language) is a statement found in many computer programming languages. It performs a one-way transfer of control to another line of code"
MyStr = TrimFull$(MyStr)

Dialog New 0, "replace many spaces to one space", -1, -1, 500, 400, _
%WS_DLGFRAME Or %DS_CENTER Or %WS_CAPTION Or %WS_SYSMENU, 0 To hDlg

Control Add Textbox , hDlg, %ID_TextBox, "test" , 5, 25, 450, 310, %WS_TABSTOP Or %ES_WANTRETURN  Or %ES_MULTILINE 
Control Send hDlg, %ID_TextBox, %EM_LIMITTEXT, 1000000, 0
Control Append Text hDlg, %ID_TextBox, $CRLF & MyStr & $CRLF 
Control Set Focus hDlg, %ID_TextBox
Control Send hDlg, %ID_TextBox, %EM_SETSEL, 0, 0
Static hFont2 As DWord Resource '---With Resource you will instruct thinBasic to 
hFont2 = Font_Create("Courier New" , 20) '---Select a mono space font
Control Send hDlg, %ID_TextBox, %WM_SETFONT, hFont2, 0
Control Set Color hDlg, %ID_TextBox, -1, Rgb(100, 240, 140) 


'---Show dialog in MODAL
Dialog Show Modal hDlg, Call dlgCallback
End Function

CallBack Function dlgCallback() As Long

Select Case CBMSG
Case %WM_CLOSE
End Select

End Function

remember if you want fonts with another sizes for the TextBox then look at my previous thread here http://www.thinbasic.com/community/s...teFont&p=93216