Modificare un carattere di una stringa - Cronologia

Vuott il 13:46, 24 giu 2023

2023-06-24T13:46:58Z

Vuott il 22:22, 9 gen 2017

2017-01-09T22:22:01Z

← Versione meno recente		Versione delle 16:22, 9 gen 2017
Riga 40:		Riga 40:

	==Uso delle funzioni ''Left( )'' e ''Right( )''==		==Uso delle funzioni ''Left( )'' e ''Right( )''==
	Mostriamo un semplice esempio di quest'altra modalità che fa uso di ben tre funzioni Stringa: <SUP>[[[#Note\| Nota 2]]]</sup>		Mostriamo un semplice esempio di quest'altra modalità che fa uso di ben tre funzioni Stringa, seppur quelle fondamentali risultino essere ''Left( )'' e ''Right( )'': <SUP>[[[#Note\| Nota 2]]]</sup>
	'''Public''' Sub Main()		'''Public''' Sub Main()

Vuott il 22:20, 9 gen 2017

2017-01-09T22:20:54Z

← Versione meno recente		Versione delle 16:20, 9 gen 2017
Riga 40:		Riga 40:

	==Uso delle funzioni ''Left( )'' e ''Right( )''==		==Uso delle funzioni ''Left( )'' e ''Right( )''==
	Mostriamo un semplice esempio di quest'altra modalità: <SUP>[[[#Note\| Nota 2]]]</sup>		Mostriamo un semplice esempio di quest'altra modalità che fa uso di ben tre funzioni Stringa: <SUP>[[[#Note\| Nota 2]]]</sup>
	'''Public''' Sub Main()		'''Public''' Sub Main()

Vuott il 22:11, 9 gen 2017

2017-01-09T22:11:11Z

@@ Riga 36: / Riga 36: @@
     Print s
   '''End'''
@@ Riga 93: / Riga 108: @@
 =Note=
 [1] Questa modalità è stata proposta dal membro [http://www.gambas-it.org/smf/index.php?action=profile;u=1249 Gianluigi] del forum gambas-it.org .

Vuott il 19:38, 9 gen 2017

2017-01-09T19:38:48Z

← Versione meno recente		Versione delle 13:38, 9 gen 2017
Riga 28:		Riga 28:
	'''End'''		'''End'''
	Va sottolineato che l'uso della funzione ''Replace( )'' esige l'esatta distinzione ed individuazione del carattere da modificare. Qualora, come nell'esempio precedente, l'individuazione del carattere necessiti di inserire nel secondo parametro della funzione il carattere, da cambiare, accompagnato da qualche altro carattere precedente o seguente, se dovesse paventare il rischio di identicità con altre parti della stringa, è opportuno formare un adeguato gruppo di caratteri distintivi.		Va sottolineato che l'uso della funzione ''Replace( )'' esige l'esatta distinzione ed individuazione del carattere da modificare. Qualora, come nell'esempio precedente, l'individuazione del carattere necessiti di inserire nel secondo parametro della funzione il carattere, da cambiare, accompagnato da qualche altro carattere precedente o seguente, se dovesse paventare il rischio di identicità con altre parti della stringa, è opportuno formare un adeguato gruppo di caratteri distintivi.
	<BR>Così dunque se avessimo la seguente stringa "''abczabczafgzhil''", e volessimo trasformare la seconda "z" in uno spazio, saremmo costretti a prendere in ~~codsiderazione~~ - in questo caso - almeno 4 caratteri per evitare che il ripiazzamento del carattere condizioni anche la prima lettera "z" della stringa:		<BR>Così dunque se avessimo la seguente stringa "''abczabczafgzhil''", e volessimo trasformare la seconda "z" in uno spazio, saremmo costretti a prendere in considerazione - in questo caso - almeno 4 caratteri per evitare che il ripiazzamento del carattere condizioni anche la prima lettera "z" della stringa:
	'''Public''' Sub Main()		'''Public''' Sub Main()

Vuott il 19:37, 9 gen 2017

2017-01-09T19:37:27Z

← Versione meno recente		Versione delle 13:37, 9 gen 2017
Riga 11:		Riga 11:
	Mid$(s, 8, 1) = " "		Mid$(s, 8, 1) = " "

			Print s

			'''End'''

			==Uso della funzione ''Replace( )''==
			Un'altra modalità è rappresentata dall'uso della funzione ''[[Replace\|Replace( )]]''. <SUP>[[[#Note\| Nota 1]]]</sup>

			Esempio pratico:
			'''Public''' Sub Main()

			Dim s As String = "aaazbbbzccczddd"

			s = Replace(s, "zc", " c")
			Print s

			'''End'''
			Va sottolineato che l'uso della funzione ''Replace( )'' esige l'esatta distinzione ed individuazione del carattere da modificare. Qualora, come nell'esempio precedente, l'individuazione del carattere necessiti di inserire nel secondo parametro della funzione il carattere, da cambiare, accompagnato da qualche altro carattere precedente o seguente, se dovesse paventare il rischio di identicità con altre parti della stringa, è opportuno formare un adeguato gruppo di caratteri distintivi.
			<BR>Così dunque se avessimo la seguente stringa "''abczabczafgzhil''", e volessimo trasformare la seconda "z" in uno spazio, saremmo costretti a prendere in codsiderazione - in questo caso - almeno 4 caratteri per evitare che il ripiazzamento del carattere condizioni anche la prima lettera "z" della stringa:
			'''Public''' Sub Main()

			Dim s As String = "abczafczafgzhil"

			s = Replace(s, "zafg", " afg")

	Print s		Print s

Vuott il 16:50, 9 gen 2017

2017-01-09T16:50:06Z

← Versione meno recente		Versione delle 10:50, 9 gen 2017
Riga 37:		Riga 37:
	Questa modalità è più complessa, e prevede l'azione in scrittura su un Puntatore ad una variabile di tipo ''Stringa'' mediante i ''Memory Stream'':		Questa modalità è più complessa, e prevede l'azione in scrittura su un Puntatore ad una variabile di tipo ''Stringa'' mediante i ''Memory Stream'':

	'''Public Sub Main()		'''Public''' Sub Main()

	Dim p As Pointer		Dim p As Pointer

Vuott il 16:45, 9 gen 2017

2017-01-09T16:45:35Z

← Versione meno recente		Versione delle 10:45, 9 gen 2017
Riga 32:		Riga 32:
	Print bb.ToString(0, bb.Count)		Print bb.ToString(0, bb.Count)

	'''End'''		'''End'''

	==Uso dei ''Memory Stream''==		==Uso dei ''Memory Stream''==

Vuott il 16:45, 9 gen 2017

2017-01-09T16:45:13Z

← Versione meno recente		Versione delle 10:45, 9 gen 2017
Riga 14:		Riga 14:

	'''End'''		'''End'''

			==Uso di un vettore di tipo ''Byte[ ]''==
			Questa modalità prevede l'uso di una variabile vettoriale di tipo ''Byte[ ]''.

			Basterà caricare in detta variabile mediante il Metodo ''.FromString( )'' l'intera stringa, quindi cambiare il valore dell'elemento corrispondente al carattera da modificare. In fine riconvertire in stringa mediante il Metodo ''.ToString( )''.

			Esempio pratico:
			'''Public''' Sub Main()

			Dim s As String = "aaazbbbzccczddd"
			Dim bb As Byte[]

			bb = Byte[].FromString(s)

			bb[7] = 32

			Print bb.ToString(0, bb.Count)

			'''End'''

	==Uso dei ''Memory Stream''==		==Uso dei ''Memory Stream''==

Vuott il 16:13, 9 gen 2017

2017-01-09T16:13:28Z

← Versione meno recente		Versione delle 10:13, 9 gen 2017
Riga 12:		Riga 12:

	Print s		Print s

			'''End'''

			==Uso dei ''Memory Stream''==
			Questa modalità è più complessa, e prevede l'azione in scrittura su un Puntatore ad una variabile di tipo ''Stringa'' mediante i ''Memory Stream'':

			'''Public Sub Main()

			Dim p As Pointer
			Dim st As Stream
			Dim s As String

			<FONT Color=gray>' ''Assegnamo del testo alla variabile di tipo "String":''</font>
			s = "aaazbbbzccczddd"

			<FONT Color=gray>' ''Assegnamo l'indirizzo di memoria della variabile "s" ad una variabile di tipo Puntatore:''</font>
			p = VarPtr(s)

			<FONT Color=gray>' ''Generiamo dalla variabile "Puntatore" una variabile di tipo "Stream" in scrittura:''</font>
			st = Memory p For Write

			<FONT Color=gray>' ''Scriviamo ora il valore del codice ASCII corrispondente allo "spazio" nel byte di indice 7 dell'area di memoria puntata dal Puntatore:''</font>
			Seek #st, 7
			Write #st, &20 As Byte

			<FONT Color=gray>' ''Chiudiamo il flusso:''</font>
			st.Close

			<FONT Color=gray>' ''...vediamo nella variabile "s" la modifica apportata:''</font>
			Print s

	'''End'''		'''End'''