Entry

TSE: String: Split: How to split a string in 2 parts at a given position?

Nov 7th, 2006 11:35
Knud van Eeden,

----------------------------------------------------------------------
--- Knud van Eeden --- 07 November 2020 - 08:14 pm -------------------
TSE: String: Split: How to split a string in 2 parts at a given 
position?
---
Use e.g. the SubStr() function to take out part of a string.
If you use this function, you will have to supply the given string,
the position where the substring has to start, and finally the
length of that substring.
===
You want thus to split the given string in 2 substrings.
A front string and a tail string.
The front string will start from character 1 of the given string and
end at the given position I. Thus that string will have a length of 1
to I, or thus I.
The tail string will start from the character after the given position
(thus at I + 1) and end at the end of the given string. That substring
will have a length of ( length of the given string, minus its starting
position, plus one). Or thus L - ( I + 1 ) + 1 = L - I, where L is the
total length of the given string.
===
--- cut here: begin --------------------------------------------------
// library: string: change: split (filenamemacro=chanstcs.s) [kn, ho, 
tu, 07-11-2020 20:18:20]
PROC PROCStringChangeSplit( STRING s, INTEGER I )
 IF ( I < 0 )
  Warn( "please choose a value of", " ", I, " ", "greater than zero" )
  RETURN()
 ENDIF
 Warn( SubStr( s, 1, I ) + SubStr( s, I + 1, Length( s ) - I ) )
END
PROC Main()
 INTEGER I = 0
 STRING s[255] = "testing"
 FOR I = 1 TO Length( s )
  Warn( I )
  PROCStringChangeSplit( s, I )
 ENDFOR
END
<F12> Main()
--- cut here: end ----------------------------------------------------
===
This should all the time show the original s, independent
of the value of I (where I between 0 and N (where N > 0)
===
Internet: see also:
---
----------------------------------------------------------------------