ampersan, juntar, sumar y concatenar texto en macros de Open Office

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.

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos necesarios están marcados *