Compitino per casa sulla Concatenazione delle Stringhe

[Gianluigi]

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

Ah, ho capito!

[vuott]

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

Non fare il levantino, ché ......

[vuott]

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

Ah, ho capito!

Dicevo sempre con riferimento agli array di tipo String !   

[Gianluigi]

One more

Codice: [Seleziona]

Public Sub Main()

  Dim s1 As String = "aaa"
  Dim s2 As String = "bbb"  
  Dim unica As String
  
  unica = "*Y"
  unica = Replace(unica, "*", s1)
  unica = Replace(unica, "Y", s2)
  Print unica

End

[vuott]

One more

Va bene.

[vuott]

Oggi do il mio contributo.

1) Uso del Metodo .Join( ) fornito dalle variabili vettoriali del tipo string[ ]:

Codice: [Seleziona]

Public Sub Main()
  
  Dim s1, s2, unica As String
  Dim ss As New String[]

    s1 = "aaa"
    s2 = "bbb"
  
    ss.Push(s1)
    ss.Push(s2)
    
    unica = ss.Join(Null, Null)
    
    Print unica
  
End

2) Uso di una variabile vettoriale di tipo Byte[ ] e della funzione Asc( ):

Codice: [Seleziona]

Public Sub Main()

  Dim s1, s2, unica As String
  Dim bb As Byte[]
  Dim b As Byte
  
    s1 = "aaa"
    s2 = "bbb"
    
    bb = Byte[].FromString(s1)
    
    For b = 1 To Len(s2) 
      bb.Push(Asc(s2, b))
    Next
    
    unica = bb.ToString(0, bb.Count)
    
    Print unica
    
End

3) Uso di un Puntatore e dei Memory Stream:

Codice: [Seleziona]

Public Sub Main()
  
  Dim s1, s2, unica As String
  Dim p As Pointer
  Dim st As Stream
  
    s1 = "aaa"
    s2 = "bbb"
    
    p = Alloc(SizeOf(gb.Byte), Len(s1) + Len(s2))
    
    st = Memory p For Write
    Write #st, s1
    Write #st, s2
    st.Close
    
    unica = String@(p)
    
    Print unica
    
    Free(p)
  
End

4) Analogo al precedente punto 3), ma usando un file temporaneo:

Codice: [Seleziona]

Public Sub Main()
  
  Dim s1, s2, t, unica As String
  Dim fl As File
  
    s1 = "aaa"
    s2 = "bbb"
    
    t = Temp()
    
    fl = Open t For Create
    Write #fl, s1
    Write #fl, s2
    fl.Close
    
    unica = File.Load(t)
    Print unica
  
End

[Gianluigi]

Ah ecco a cosa ti riferivi a Join (Wayne), in realtà lo sapevo ( ) ma sapevo anche che se ti lasciavo a te il compito di scriverla avresti commesso un errore da matita rossa e avrei così potuto vendicarmi di tutte le botte che mi hai dato in questo post   
Infatti ti sei dimenticato che le array sono oggetti e pertanto prima di usarli vanno istanziati 
Per me l'insufficienza con l'aggravante del delicato ruolo non te la toglie nessuno 

 

[vuott]

Infatti ti sei dimenticato che le array sono oggetti e pertanto prima di usarli vanno istanziati

Non l'ho dimenticato, ma sono stato vittima della fretta: ho copiato in parte il codice del secondo esempio (quello con il Byte[ ]), laddove non necessita di creazione dell'oggetto array a priori.
Ho comunque apportato lì la correzione.

Per me l'insufficienza con l'aggravante del delicato ruolo non te la toglie nessuno

Condivido. Penserei anche ad una punizione esemplare che adotto motu proprio: vietarmi di inserire altri "Compitini per casa" in futuro.   

[Gianluigi]

Non l'ho dimenticato, ma sono stato vittima della fretta...

Lo immaginavo  e devo confessare che Join non lo conoscevo, sospettavo che ci fosse qualcosa di opposto a Split ma non l'ho trovato 

Per me l'insufficienza con l'aggravante del delicato ruolo non te la toglie nessuno

Comunque condivido. Penserei anche ad una punizione esemplare che adotto motu proprio: vietarmi di inserire altri "Compitini per casa" in futuro.   

Ma questa non è una punizione, è un premio. 
Però hai ragione che senso ha se si partecipa così in pochi?
 

[vuott]

Ma questa non è una punizione, è un premio.

...ed infatti ho preso la palla al balzo !   

[kicco]

...ragazzi, mi fate paura!

Però hai ragione che senso ha se si partecipa così in pochi?

...e forse non solo a me! 

[Gianluigi]

 

[vuott]

...ragazzi, mi fate paura!

...in che senso ?   

[kicco]

...in che senso ?   

Che a noi esseri terreni non è dato raggiungere tali vertici  e a parte la concatenazione con "&" il resto ci appare come l'esercizio di abili contorsionisti che quando pensi abbiano raggiunto il massimo possibile, proseguono con un esercizio ancora più acrobatico...
Il pubblico applaude

PS: Ovviamente ho imparato anch'io e adesso riesco a toccarmi le punte dei piedi