QB64.org Forum

Active Forums => Programs => Topic started by: SpriggsySpriggs on June 02, 2020, 10:03:13 am

Title: String.Insert
Post by: SpriggsySpriggs on June 02, 2020, 10:03:13 am

I'm sure you all already have all sorts of ways to manipulate strings but I figured I'd add this little function if anyone wants some feeling of the .NET string methods. I borrowed the Replace method from Steve McNeil in another post and then did a light edit to make the Remove function.

Code: QB64: [Select]

1. PRINT String.Insert("Helloworld", ", you ridiculously stupid ", 6)
2. PRINT String.Replace("Hello Earth","Earth","World")
3. PRINT String.Remove("Hello, crazy world",", crazy")
4.  
5. FUNCTION String.Insert$ (toChange AS STRING, insert AS STRING, position AS INTEGER)
6.     toChange = MID$(toChange, 1, position - 1) + insert + MID$(toChange, position, LEN(toChange) - position + 1)
7.     String.Insert = toChange
8. END FUNCTION
9.  
10. FUNCTION String.Replace$ (a AS STRING, b AS STRING, c AS STRING)
11.     j = INSTR(a, b)
12.     IF j > 0 THEN
13.         r$ = LEFT$(a, j - 1) + c + String.Replace(RIGHT$(a, LEN(a) - j + 1 - LEN(b)), b, c)
14.     ELSE
15.         r$ = a
16.     END IF
17.     String.Replace = r$
18. END FUNCTION
19.  
20. FUNCTION String.Remove$ (a AS STRING, b AS STRING)
21.     DIM c AS STRING
22.     c = ""
23.     j = INSTR(a, b)
24.     IF j > 0 THEN
25.         r$ = LEFT$(a, j - 1) + c + String.Remove(RIGHT$(a, LEN(a) - j + 1 - LEN(b)), b)
26.     ELSE
27.         r$ = a
28.     END IF
29.     String.Remove = r$
30. END FUNCTION

Text Only | Text with Attachments