Lotus Notes - Recorrer un String

   
Vista:

Recorrer un String

Publicado por Rodrigo (3 intervenciones) el 25/06/2008 17:10:19
Hola, estoy realizando una aplicación web en lotus 7 y tengo un web service que me entrega un string con todos las unidades las unidades de una empresa x estas son 90 pero como mencione vienen todas juntas en un string, saben como puedo recorrer el string para ir separando cada unidad e ir dejándola en un arreglo o algo similar.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Recorrer un String

Publicado por CORNELIUS (104 intervenciones) el 26/06/2008 18:14:05
Hola Rodrigo.
No se si te funcionará o no pero puedes utilizar un método que al menos para aplicaciones Notes a mi me funciona bastante bien.

El método es Split ( string,delimitador ), prueba y me cuentas, yo nunca he tenido por tendencias Web, o al menos nunca me he puesto por necesidad.

En fin espero haber ayudado algo.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Recorrer un String

Publicado por Hugo Correa (286 intervenciones) el 27/06/2008 01:03:10
Intenta con este còdigo:
Redim arreglo(4)
campo="12345 67890 abcde fghi"
Longitud=Len(campo) 'longitud 22 caracteres
y=1
xx=1
xxx=1
For x=1 To longitud
If Mid(campo, x,1)=" " Then
arreglo(y)=Mid(campo,xx,xxx-1)
y=y+1
xx=x+1
xxx=0
End If
xxx=xxx+1
Next

El resultado sera:
arreglo(1)="12345"
arreglo(2)="67890"
arreglo(3)="abcde"
arreglo(4)=" fghi"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Recorrer un String

Publicado por armando (58 intervenciones) el 10/07/2008 13:11:41
Yo pongo un separador + " --> " + entre registro y registro de una consulta a RDBMS y con la función siguiente lo separo.

Function vStringToArray( sCadenaPar As String, sSepPar As String ) As Variant

%REM
TÍTULO: vStringToArray
PROPÓSITO: Convertir una cadena en un Array
EJEMPLO DE LLAMADA: vRes = vStringToArray (sOrigen, sCaracter)
ARGUMENTOS:
sCadenaPar: String que identifica la cadena que contiene los valores con separador, y que transformaremos en array
sSepPar: String que identifica el separador que emplearemos para separar los valores de sCadenaPar y crear el array
VALOR RETORNADO: Variant
FUNCIONES/SUBRUTINAS UTILIZADAS: Ninguna
%END REM


Dim nLong As Integer, i As Integer, nL As Integer, nLimSup As Integer
Dim sValor As String, sSilaba As String
Redim vRet(0 To 0 ) As Variant

nLong = Len( sCadenaPar )
nL = Len( sSepPar )
nLimSup = 0
sValor = ""
i = 1
Do While i <= nLong
sSilaba = Mid( sCadenaPar, i, nL )
If sSilaba <> sSepPar Then
sValor = sValor + Mid( sSilaba, 1, 1 )
i = i + 1
Else
Redim Preserve vRet( 0 To nLimSup) As Variant
vRet( nLimSup ) = sValor
nLimSup = nLimSup + 1
sValor = ""
i = i + nL
End If
Loop
If sValor <> "" Then
Redim Preserve vRet( 0 To nLimSup) As Variant
vRet( nLimSup ) = sValor
End If
vStringToArray = vRet

End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar