Sovrascrivere una stringa con uno o più caratteri

Da Gambas-it.org - Wikipedia.

Per sovrascrivere una stringa di caratteri mediante uno o più caratteri, quindi in sostanza cambiando alcuni caratteri preesistenti, è possibile utilizzare almeno due modalità.


Uso della funzione nativa "Mid()"

Con questa modalità si assegnerà uno o più caratteri alla funzione nativa di Gambas "Mid()", avendo anche l'accortezza di impostare al suo terzo parametro un valore numerico uguale alla quantità di caratteri da cambiare.

Mostriamo un semplice esempio:

Public Sub Main()
 
 Dim s As String = "abcdefg"
 
 Mid(s, 3, 3) = "CDE"
 
 Print s
 
End


Uso delle funzioni esterne del API di Libglib-2.0

E' possibile sovrascrivere una parte ben determinata di una stringa con uno o più caratteri, a cominciare da una specificata posizione, utilizzando alcune funzioni della libreria esterna libglib-2.0 .

Sarà necessario aver installato nel sistema e richiamare nell'applicazione Gambas la libreria: "libglib-2.0.so.0.7200.4 ".

Mostriamo un esempio, nel quale una stringa preesistente verrà sovrascritta con la parola "GAMBAS" a partire dal 5° carattere (num. indice 4) della stringa medesima:

Library "libglib-2.0:0.7200.4 "

Public Struct GString
  gstr As Pointer
  len As Long
  allocated_len As Long
End Struct

' GString * g_string_new (const gchar *init)
' Creates a new GString, initialized with the given string.
Private Extern g_string_new(init As String) As GString

' GString * g_string_overwrite (GString *string, gsize pos, const gchar *val)
' Overwrites part of a string, lengthening it if necessary.
Private Extern g_string_overwrite(gstr As GString, gpos As Integer, gval As String) As GString

' gchar * g_string_free (GString *string, gboolean free_segment)
' Frees the memory allocated for the GString.
Private Extern g_string_free(gstr As GString, free_segment As Boolean) As String


Public Sub Main()

 Dim s As String
 Dim gs As GString
 
 s = "abcde fghilm nopqrstuvz"
 
 gs = g_string_new(s)
     
 gs = g_string_overwrite(gs, 4, "GAMBAS")
   
 Print String@(gs.gstr)
   
' Va in chiusura liberando memoria occupata dalla Struttura "GString":
 g_string_free(gs, True)
 
End

Sovrascrivere una stringa con una determinata quantità di caratteri di un'altra stringa

E' anche possibile sovrascrivere una stringa originaria con un numero determinato di caratteri, iniziando da sinistra, facendit parte di un'altra stringa.

Mostriamo un esempio, nel quale una stringa verrà sovrascritta a partire dalla posizione di indice 6 con i soli primi tre caratteri della stringa "GAMBAS":

Library "libglib-2.0:0.7200.4"

Public Struct GString
  gstr As Pointer
  len As Long
  allocated_len As Long
End Struct

' GString * g_string_new (const gchar *init)
' Creates a new GString, initialized with the given string.
Private Extern g_string_new(init As String) As GString

' GString * g_string_overwrite_len (GString *string, gsize pos, const gchar *val, len As Long)
' Overwrites part of a string, lengthening it if necessary.
Private Extern g_string_overwrite_len(gstr As GString, gpos As Integer, gval As String, llen As Long) As GString

' gchar * g_string_free (GString *string, gboolean free_segment)
' Frees the memory allocated for the GString.
Private Extern g_string_free(gstr As GString, free_segment As Boolean) As String


Public Sub Main()

 Dim s As String
 Dim gs As GString
 
 s = "abcde fghilm nopqrstuvz"
 
 gs = g_string_new(s)
      
 gs = g_string_overwrite_len(gs, 6, "GAMBAS", 3)
   
 Print String@(gs.gstr)
   
' Va in chiusura liberando memoria occupata dalla Struttura "GString":
 g_string_free(gs, True)
 
End