[code=thinbasic]
' Usage of STRDELETE$ STRINSERT$ STRREVERSE$
'
' Written by Abraxas
DIM sMain as string value "HELLO WORLD"
DIM sNew as string value "TO THE "
DIM String_expression as string Value sMain
DIM sDEL as STRING
DIM sINS AS STRING
DIM sREV as STRING
DIM sSTR AS STRING
DIM Start as DWORD VALUE 4
DIM count as DWORD VALUE 7
DIM position as DWORD Value 7
DIM sMsg as string
sDEL = STRDELETE$ (string_expression, start, count)
sINS = STRINSERT$ (sMain, sNew, position)
sREV = STRREVERSE$(sMain)
sMsg += "sMain = " & sMain & $CRLF
sMsg += "sNew = " & sNew & $CRLF
sMsg += "StringExpression = " & String_Expression & $CRLF & $CRLF
sMsg += "Start = " & Start & $CRLF
sMsg += "Count = " & count & $CRLF
sMsg += "Position = " & position & $CRLF & $CRLF
sMsg += "STRDELETE$(string_expression, start, count) = " & sDEL & $CRLF & $CRLF
sMsg += "STRINSERT$(sMain, sNew, position) = " & sINS & $CRLF & $CRLF
sMsg += "STRREVERSE$(sMain) = " & sREV & $CRLF & $CRLF
MsgBox 0, sMsg
[/code]
Home Desktop : Windows 7 - Intel Pentium (D) - 3.0 Ghz - 2GB - Geforce 6800GS
Home Laptop : WinXP Pro SP3 - Intel Centrino Duo - 1.73 Ghz - 2 GB - Intel GMA 950
Home Laptop : Windows 10 - Intel(R) Core(TM) i5-4210U CPU @ 1.70GHz, 2401 Mhz, 2 Core(s), 4 Logical Processor(s) - 4 GB - Intel HD 4400
Work Desktop : Windows 10 - Intel I7 - 4 Ghz - 8GB - Quadro Fx 370
Got it.
www.thinbasic.com | www.thinbasic.com/community/ | help.thinbasic.com
Windows 10 Pro for Workstations 64bit - 32 GB - Intel(R) Xeon(R) W-10855M CPU @ 2.80GHz - NVIDIA Quadro RTX 3000
Bookmarks