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

[Gianluigi]

Per questo quesito mi era venuto in mente che si sarebbe anche potuta usare la funzione scan.
Allora ho scritto questo:

Codice: [Seleziona]

Public Sub Main()
  
  Dim i As Byte
  Dim ss As String[]
  Dim s As String = "aaazbbbzccczddd"
  Dim z As String
  
  Print s
  For i = 1 To Len(s)
    z &= "*"
  Next
  ss = Scan(s, z)
  ss.Delete(7)  
  ss.Add(" ", 7)  
  For Each z In ss
    Print z;
  Next

End

Ma non funziona, mi da questo risultato:

Codice: [Seleziona]

aaazbbbzccczddd
 aaazbbbzccczddd

Vale a dire che non cancella e aggiunge lo spazio all'inizio.

Però se io uso il vettore senza popolarlo con scan allora funziona:

Codice: [Seleziona]

Public Sub Main()

  Dim i As Byte
  Dim ss As String[] = ["a", "a", "a", "z", "b", "b", "b", "z", "c", "c", "c", "z", "d", "d", "d"]
  Dim s As String
  Dim z As String = "aaazbbbzccczddd"
  
  Print z
  ss.Delete(7)  
  ss.Add(" ", 7)  
  For Each s In ss
    Print s;
  Next

End

E questo è l'atteso risultato:

Codice: [Seleziona]

aaazbbbzccczddd
aaazbbb ccczddd

Secondo voi perché accade questo?

 

[vuott]

Secondo voi perché accade questo?

Per rovinarti la serata !   

[Gianluigi]

Per rovinarti la serata !   

Hai voglia, per così poco 

Seriamente; evidentemente non è un normale vettore su cui puoi lavorare come con gli altri, pertanto Scan risulta limitato 

[vuott]

Guarda che cosa hai combinato:   

Codice: [Seleziona]

Public Sub Main()

  Dim i As Byte
  Dim ss As String[]
  Dim s As String = "aaazbbbzccczddd"
  Dim z As String
  
  Print s
  For i = 1 To Len(s)
    z &= "*"
  Next

  ss = Scan(s, z)

  For i = 0 To ss.Max
    Print i,
    If IsNull(ss[i]) Then
      Print "Nullo"
    Else
      Print ss[i]
    Endif
  Next

End

Pertanto, andando a piazzare il valore ASCII 32 nel byte di indice 7, succede che......


Alla funzione Scan( ) c'avevo pensato pure io, ma credo che non sia utilizzabile proficuamente in questo caso. 

[Gianluigi]

Pertanto, andando a piazzare il valore ASCII 32 nel byte di indice 7, succede che......

antepongo lo spazio alla stringa.

Alla funzione Scan( ) c'avevo pensato pure io, ma credo che non sia utilizzabile proficuamente in questo caso. 

Evidentemente. Io facendo le prove con For Each non avrei mai capito, grazie della spiegazione. 
Accidenti non ho indagato a sufficienza.

  e ora  più sereno...

[vuott]

Tutti i lettori di questo forum ti dovrebbero ringraziare per aver posto, comunque, la questione: ha fatto capire molte cose in più.   

[kicco]

GRAZIE! GRAZIE! GRAZIE!