27 lines
945 B
Text
27 lines
945 B
Text
DefStr S
|
|
|
|
' Qbasic /QuickBasic MID$ statement needs that string2 and substring
|
|
' to replace in string1 must have the same length,
|
|
' otherwise it overwrites the following part of string1
|
|
String1 = "Mary has a X lamb"
|
|
Print String1, "Original String1"
|
|
Print "Interpolation of string by MID$ statement"
|
|
String2 = "little"
|
|
Mid$(String1, InStr(String1, "X")) = String2
|
|
Print String1
|
|
|
|
String1 = "Mary has a X lamb"
|
|
String2 = "@"
|
|
Mid$(String1, InStr(String1, "X")) = String2
|
|
Print String1
|
|
|
|
Print "Interpolation by string's functions"
|
|
String1 = "Mary has a X lamb"
|
|
String2 = "little"
|
|
String1 = Mid$(String1, 1, InStr(String1, "X") - 1) + String2 + Mid$(String1, InStr(String1, "X") + 1, Len(String1) - InStr(String1, "X"))
|
|
Print String1, "by MID$"
|
|
|
|
String1 = "Mary has a X lamb"
|
|
String2 = "#§[]@"
|
|
String1 = Left$(String1, InStr(String1, "X") - 1) + String2 + Right$(String1, Len(String1) - InStr(String1, "X") + 1)
|
|
Print String1, "by LEFT$ and RIGHT$"
|