Cambiare un carattere all'interno di una stringa fra molti uguali

[vuott]

Vorrei creare una specifica  pagina su detto argomento.

Indicate le possibili modalità che suggerireste per modificare un solo carattere fra due o più identici presenti in una stringa.

Per essere più chiaro, avendo ad esempio questa stringa: aaazbbbzccczddd, indicate tutte le modalità (scrivendo breve, ma adeguato codice) che vi vengono in mente per mutare la sola seconda " z " in uno spazio (ossia codice ASCII &h20), cosicché al termine si abbia questa stringa: aaazbbb ccczddd .

Gli autori degli algoritmi, adottati nella pagina da creare, saranno lì citati.

[vuott]

Dai.... esco io per primo dalla trincea, usando i Memory Stream.

Vedi la pagina della Wiki che si va scrivendo. Il collegamento è in fondo a questa pagina.

[Gianluigi]

Riedizione di Mid$ :

Codice: [Seleziona]

Public Sub Main()
   
  Dim s As String = "aaazbbbzccczddd"
  
  Mid$(s, 8, 1) = " "
  
  Print s
   
End

[Gianluigi]

Altro uso di Mid con vettore:

Codice: [Seleziona]

Public Sub Main()
   
  Dim s As String = "aaazbbbzccczddd"
  Dim c As String
  Dim ss As New String[]
  Dim i As Byte
  
  For i = 1 To Len(s)
    c = Mid(s, i, 1)
    If i = 8 Then c = " "
    ss.Push(c)
  Next
  For i = 0 To ss.Max
    Print ss[i];
  Next
  
End

 

[vuott]

Il secondo esempio, però, è una mera complicazione della prima modalità, da te suggerita (e che io ho posto come primo esempio nella pagina della Wiki), in quanto usi nuovamente la funzione Mid( ) come risorsa comunque principale dell'algoritmo. 

Pertanto non la riporterei lì.

[vuott]

E' possibile anche usare una variabile vettoriale di tipo Byte( ).

Vedi la pagina della Wiki che si va scrivendo. Il collegamento è in fondo.

[Gianluigi]

Pertanto non la riporterei lì.

Va bene capo, sei tu quello che decide 
Non ho capito perché se il codice lo propongo io o un altro ne riporti il nome mentre se lo proponi tu no.

Se mi è concesso l'ardire, ti suggerirei un esempio  con il puntatore tipo questo 

 

[vuott]

Non ho capito perché se il codice lo propongo io o un altro ne riporti il nome mentre se lo proponi tu no.

Perchè io nel caso come questo appaio comunque come creatore della pagina, e pertanto io, essendo appunto autore della pagina, penso che si capisca che gli esempi privi di nota di rimando ad uno specifico autore, si intendono suggeriti dal redattore della pagina Wiki, ossia in questo caso da me.

Se mi è concesso l'ardire, ti suggerirei un esempio  con il puntatore tipo questo

Giusta osservazione. Infatti il mio esempio con i Memory Stream come anche quello da te suggerito, si basa sulla capacità di tale risorsa di Gambas di scrivere nelle aree di memoria riservate accedendovi tramite gli indirizzi di memoria contenuti nelle corrispondenti variabili di tipo Puntatore.
Il tuo giusto suggerimento si intende pertanto già pienamente soddisfatto con il mio primo esempio.

[Gianluigi]

Se mi è concesso l'ardire, ti suggerirei un esempio  con il puntatore tipo questo

Giusta osservazione. Infatti il mio esempio con i Memory Stream come anche quello da te suggerito, si basa sulla capacità di tale risorsa di Gambas di scrivere nelle aree di memoria riservate accedendovi tramite gli indirizzi di memoria contenuti nelle corrispondenti variabili di tipo Puntatore.
Il tuo giusto suggerimento si intende pertanto già pienamente soddisfatto con il mio primo esempio.

Ops! Non me n'ero accorto, eppure è la prima voce dell'algoritmo 

[Gianluigi]

Volendo usare Replace:

Codice: [Seleziona]

Public Sub Main()
   
  Dim s As String = "aaazbbbzccczddd"
  s = Replace(s, "zc", " c")
  Print s
  
End

 

[vuott]

Volendo usare Replace:

Va bene.

[tornu]

Un metodo come un'altro

Codice: [Seleziona]

Public Sub Main()
  Dim s, sValore1, sValore2 As String

  s = "aaazbbbzccczddd"

  sValore1 = Left(s, 7)
  sValore2 = Right(s, 7)

  Print sValore1 & Space(1) & sValore2
End

[Top Fuel]

Un pò lunghino ma funge:

Codice: [Seleziona]

Dim i, conto As Byte
Dim stringa$ As String = "aaazbbbzccczddd"
For i = 1 To Len(stringa$)
   If Mid$(stringa$, i, 1) = "z" Then Inc conto
   If conto = 2 Then
      stringa$ = Replace(stringa$, "bz", "b ")
   Endif
Next
Print stringa$

[vuott]

Un metodo come un'altro

Questa va bene, la inserisco, perché hai utilizzato funzioni - Left( ), Right( ) ed anche Space( ) - non usate prima.

Un pò lunghino ma funge:

Apprezzo il tuo contributo e ti ringrazio, ma - seppur funzionante e valido - il tuo esempio utilizza funzioni - Mid( ) e Replace( ) - comunque già usate in modalità più semplice nei precedenti esempi, e già riportati quindi nella pagina della Wiki.
Grazie moltissimo, comunque.
Riprova: magari c'è qualche altra soluzione che ci sfugge.   

[vuott]

Abbiamo riportato nella nuova pagina della Wiki su questo tema finora 5 modalità !

http://www.gambas-it.org/wiki/index.php?title=Modificare_un_carattere_di_una_stringa