Salva en 17:28 2 sep 2015

2015-09-02T17:28:15Z

Página nueva

{{Menu|cat=Basic|subcat=|Titulo=Funciones para manejo de cadenas|vers=4.0.x}}
<seo title="Funciones para manejo de cadenas - Apache OpenOffice Basic"
metakeywords="macro,funcion,cadena,string,basic,starbasic,manual,curso,tutorial,open,office,openoffice,apache openoffice,libreoffice"
metadescription="OpenOffice.org Basic, también conocido como OOo Basic o StarBasic, es el nombre de uno de los cuatro lenguajes de macros incluidos en la suites Apache OpenOffice y LibreOffice"/>
Estas funciones complementan las funciones de manejo de cadenas (strings) de OpenOffice Basic.

A continuación mostramos algunas de estas funciones. No son todas las necesarias, ni pretenden ser perfectas. Como siempre ocurre cuando hablamos de programación, todo es mejorable.

Si consideras que tu función es más adecuada no dudes en mandarnos un correo con ella y la integraremos en este artículo.

=== Comentarios del código ===

En todas las funciones se ha agregado '''ByRef''' o '''ByVal''' definiendo el sistema de pasar el argumento según se ha considerado necesario para un adecuado funcionamiento.

Por defecto '''OOo Basic''' considera que los argumentos se pasan siempre por referencia; por lo tanto, y aunque es innecesario, en algunas se ha agregado '''ByRef''' para mejorar la lectura y comprensión de la función.

Las variables que se han utilizado en las funciones se han nombrado siguiendo el siguiente esquema:
:*'''u''' para almacenar el ordinal del último elemento de la matriz devuelto por la función uBound.
:*'''l''' para almacenar el ordinal del primer elemento de la matriz devuelto por la función lBound, dado que puede ser 0 (por defecto) o 1 según se haya establecido el parámetro Option Base.
:*'''a''' para el array a().

== Función PadR ==
La función '''PadR''' devuelve una cadena de longitud ''nLongitud'' rellenada por el caracter ''cCaracter'' por la derecha. Si no se especifica ''cCaracter'' se rellenará con espacios.

<syntaxhighlight lang="oobas">
Function PadR( cTxt as string, nLongitud as integer, optional cCaracter as string)
'--------------------------------------------------------------------------------------------
If IsMissing( cCaracter ) then cCaracter = " "
PadR = Left( cTxt & String( nLongitud, cCaracter ), nLongitud )
End Function
</syntaxhighlight>

== Función PadL ==
La función '''PadL''' devuelve una cadena de longitud ''nLongitud'' rellenada por el caracter ''cCaracter'' por la izquierda. Si no se especifica ''cCaracter'' se rellenará con espacios.

<syntaxhighlight lang="oobas">
Function PadL( cTxt as string, nLongitud as integer, optional cCaracter as string)
'--------------------------------------------------------------------------------------------
If IsMissing( cCaracter ) then cCaracter = " "
PadL = Right( String( nLongitud, cCaracter ) & cTxt, nLongitud )
End Function
</syntaxhighlight>

== Función ReplaceAll ==
La función '''ReplaceAll''' reemplaza en una cadena ''cCadena'' todas las ocurrencias ''cBusca'' por ''cReemplaza''.
Esta función se ha creado para solventar el conocido bug de la función Replace, que sólo reemplaza la primera ocurrencia.

<syntaxhighlight lang="oobas">
Function ReplaceAll(cCadena As String, cBusca As String, optional cReemplaza As String) As String
'--------------------------------------------------------------------------------------------
' reemplaza en una cadena todas las ocurrencias de cBusca por cReemplaza
If IsMissing( cReemplaza ) Then cReemplaza = ""
ReplaceAll = Join( Split( cCadena, cBusca ), cReemplaza )
End Function
</syntaxhighlight>

== Función StringRepeat ==
La función '''StringRepeat''' devuelve la cadena ''cCadena'' repetida ''nVeces''. Complementa a la función String, que repite un carácter o el primer carácter de una cadena, no la cadena completa.

<syntaxhighlight lang="oobas">
Function StrRepeat( cCadena As String, nVeces As Long ) As String
'--------------------------------------------------------------------------------------------
' devuelve una cadena formada por cCadena repetida nVeces
Dim x As String
For n=1 To nVeces
x = x & cCadena
Next
StrRepeat = x
End Function
</syntaxhighlight>

{{Pie|Funciones_para_manejo_de_matrices_arrays_en_OpenOffice_Basic|Funciones para manejo de arrays en Basic|cat=Basic|subcat=}}
[[Category:Ver.3.4.x]][[Category:Ver.3.3.x]][[Category:Ver.3.2.x]][[Category:Ver.3.1.x]]

Funciones para manejo de cadenas en OpenOffice Basic - Historial de revisiones

Salva en 17:28 2 sep 2015