Compitino per casa sulla Concatenazione delle Stringhe

[vuott]

Ecco il nuovo compitino:

Posto questo codice sulla concatenazione di due o più stringhe:

Codice: [Seleziona]

Public Sub Main()

  Dim s1, s2 As String
  
    s1 = "aaa"
    s2 = "bbb"
    
'  1^ modalità:
      Print s1 & s2

End

mostrate ogni altra possibile modalità per concatenare le stringhe contenute nelle due variabili s1 e s2 riportate nell'esempio.

[Gianluigi]

A me vengono in mente solo queste:

Codice: [Seleziona]

' Gambas module file

Public Sub Main()

  Dim s1, s2 As String
  
    s1 = "aaa"
    s2 = "bbb"
    
'  1^ modalità:
      Print s1 & s2
      '============
      Print s1; s2
      'Print s1, s2 'questa penso non valga
      Print Subst(("&1&2"), s1, s2)

End

Ma immagino ce ne saranno parecchie...
 

[vuott]

      'Print s1, s2 'questa penso non valga

No, perché non produci una concatenazione formale delle due stringhe in una sola: hai solo un effetto visivo somigliante nella Console.

Precisiamo dunque che si deve ottenere un'unica stringa da porre in una variabile.
Insomma come fosse:

Codice: [Seleziona]

Dim s1, s2, unica As String

   unica = s1 & s2

[Gianluigi]

      'Print s1, s2 'questa penso non valga

...in fondo, sì, il risultato è coerente con quanto richiesto; però questo lo è solo nel caso in cui si deve scrivere con Print nella Console.

Precisiamo dunque che si deve ottenere un'unica stringa da porre in una variabile.
Insomma come fosse:

Codice: [Seleziona]

Dim s1, s2, unica As String

   unica = s1 & s2

Allora io sono rimasto ad una sola concatenazione

Codice: [Seleziona]

unica =  Subst(("&1&2"), s1, s2)

Altri modi?
 

[Gianluigi]

Questo non so se è valido:

Codice: [Seleziona]

Public Sub Main()

  Dim s1 As String = "aaa"
  Dim s2 As String = "bbb"
  Dim unica As String[] = [s1, s2]  
  
  Print unica[0]; unica[1]

End

 

[vuott]

Questo non so se è valido:

Codice: [Seleziona]

  Print unica[0]; unica[1]

No, perché non ottieni una concatenazione effettiva in un'unica stringa delle due stringhe originarie (hai solo un effetto visivo che sembra essere un'unica stringa).

[Gianluigi]

Questa me l'aveva spiegata Top Fuel ma visto che se la deve essere dimenticata  la posto io:

Codice: [Seleziona]

Public Sub Main()

  Dim s1 As String = "aaa"
  Dim s2 As String = "bbb"
  Dim unica As String
  unica = s2
  Mid$(unica, 1, 0) = s1
  
  Print unica
 
End

[vuott]

......nessun altro propone qualcosa ?   

[gianfry56]

Se vogliamo un altro esempio (inutile e complicato):

Codice: [Seleziona]

  Dim s1, s2 As String
  Dim unica As String = ""
  Dim i As Integer
  
  s1 = "aaa"
  s2 = "bbb"

  For i = 1 To Len(s1)
    unica &= Mid(s1, i, 1)
  Next
  For i = 1 To Len(s2)
    unica &= Mid(s2, i, 1)
  Next

  Print unica

ripeto: inutile e complicato 

[vuott]

Se vogliamo un altro esempio

E' apprezzabile l'impegno e l'ingegno, però hai utilizzato l'operatore & di concatenazione delle stringhe. Operatore, che ho già utilizzato nell'esempio introduttivo all'inizio.

[Gianluigi]

Ahi Gianfry56,
ora chissà che voto ti rifila! 

 

[vuott]

ora chissà che voto ti rifila! 

Certamente superiore a quello di chi ha letteralmente sprecato le variabili vettoriali di tipo String[ ]:

Codice: [Seleziona]

Dim unica As String[] = [s1, s2]  

in questo modo:   

Codice: [Seleziona]

  Print unica[0]; unica[1]

avendo invece un'altra interessante modalità per le mani !

[Gianluigi]

A me che sono il genio l'unico (più o meno) che può usare 

Codice: [Seleziona]

Mid$(unica, 1, 0) = s1
'or'
unica =  Subst(("&1&2"), s1, s2)

Qui sotto potete ammirare io che bacia se stesso

 

 

[vuott]

A me che sono il genio l'unico (più o meno) che può usare 

Codice: [Seleziona]

Mid$(unica, 1, 0) = s1

Ma quella non te l'aveva spiegata Top Fuel ?   

Questa me l'aveva spiegata Top Fuel ...

Codice: [Seleziona]

Mid$(unica, 1, 0) = s1

[Gianluigi]

Si, si sempre a cercare il pelo nell'uovo...

 

Occorrerà un'icona per san pelo