Este tema es un ejemplo del uso del simbolo “&” para usuarios del lenguaje de programacion de macros de Open Office y Libre Office.
En el libro aprendiendo OOo Basic, (Autor: Mauricio Baeza) en las paginas numeros 44 y 45 aparece un ejemplo que sirve para ejemplificar el uso de el simbolo ampersan (&), que sirve para concatenar o unir cadenas de texto.
Si eres principiante tal vez encuentres dificil concatenar texto, te pongo el ejemplo citado en el parrafo anterior, pero observa que esta macro ha sido modificada a la original.
Ejecuta esta macro y observa el uso de el simbolo ampersan (&)
option explicit
Sub Usando_Exit_Fof_Clear() ‘repeticion de una macro anterior para transparentar el tema de concatenar cadenas de texto
Dim Co1 as integer
Dim sLetra as string
Dim sVocales as string
Dim sConsonantes as string
For Co1 = 1 to 100
sLetra = Chr( Rnd() * 25 + 65 )
Select Case sLetra
Case “A”, “E”, “I”, “O”, “U”
sVocales = sVocales & Chr(13) & “El ciclo #” & co1 & “: Selecciono aleatoriamente la letra: “ & _
” “ & sLetra & ” “
Case “S”
Exit For
Case Else
sConsonantes = sConsonantes & Chr(13) & “El ciclo #” & co1 & _
“: Selecciono aleatoriamente la letra: “ & ” “ & sLetra
End Select
Next Co1
MsgBox “El ciclo termino en: “ & Co1 & “: Seleccionando aleatoriamente la letra: “ & _
sLetra & Chr(13) & Chr(13) & _
“Vocales” & sVocales & Chr(13) & _
“Consonantes” & sConsonantes, 0, “Ejemplo Exit For”
End Sub
ademas otras 2 macros modificadas en comparación de la version original del libro de macros de Mauricio Baeza
Lo que quiero que notes en las siguientes macros al igual que la anterior es la forma como funcionan los concatenadores de texto con el simbolo ampersar
Sub Portarsebien22()
Dim Text as string
Text = Text & “Tengo que portarme bien”
MsgBox text & Text
Text = Text & “tengo que hacer la tarea”
Msgbox Text
End Sub
Sub concatenarysumar()
Dim co1 as integer
Dim uno as string
For co1 = 1 to 3
uno = uno & co1 & ” tres veces uno ”
Next
MsgBox uno
End Sub
Eso es todo espero que haya sido claro el ejemplo, si hay dudas dejalas aquí en los comentarios.