Separar una cadena en dos partes

[freedatos]

Tengo una cadena separada por una coma necesito hacerla en dos partes por ejemplo:

demo,demo22

necesito cargar esas dos en dos campos de texto distintos ejemplo.

demo

demo22

alguien me podria decir como cortar una cadena.

*************

Y otra pregunta como se cuando un checkbox esta seleccionado o no lo esta?

Saludos y muchas gracias por la ayuda

[Kruzado]

1)

cadena="demo,demo22"
x=instr(cadena,",")
cadena1=mid(cadena,1,x)
cadena2=mid(cadena,x)

2) revisa la propiedad value, cuando es 1 esta checkeado, cando es 0 no

[Jhonnyf]

Dim strCadena as String
Dim intPos As Integer
Dim Texto1 As String
Dim Texto2 As String
strCadena="Hola,Mundo"

intPos = InStr(1, strCadena, ",") 'posicion de la ","
Texto1 = Mid(strCadena, 1, intPos - 1) 'Extraemos desde el inicio hasta la posicion de la coma -1
Texto2 = Mid(strCadena, intPos + 1) 'Extramos desde la posicion de la coma + 1 hasta el final

*******************************************
if Check1.Value= 1 then 'si es 0 entonces no esta selecionado
' checkbox esta selecionado
end if

[freedatos]

pero es que siempre me da 1 este chekeado o no :S cosa rara no?

gracias por las respuestas!

[freedatos]

Lo de separar me funciona perfectamente pero no se por que el sugundo me mete caracteres raros al final cuando no los hay en el archivo, mete como dos rayas algo asi.

demo22||

*******

asi es como leo el .ini que creo.

Open "\eko.ini" For Input As #1

Dim Linea As String, Total As String
Do Until EOF(1)
Line Input #1, Linea
Total = Total + Linea + vbCrLf
Loop
Close #1

por que puede ser? Gracias

[David]

Es posible que haya en el archivo, solo que con un editor de texto normal no lo estás viendo, es probable que sea uno de los caracteres de control. Abre con un editor binario y verás, los puedes sacar usando Left...

[freedatos]

Como podria sacarlos? es que soy nuevo en VB6 disculpen mi inorancia :S

[freedatos]

Iniciado por Jhonnyf

Dim strCadena as String
Dim intPos As Integer
Dim Texto1 As String
Dim Texto2 As String
strCadena="Hola,Mundo"

intPos = InStr(1, strCadena, ",") 'posicion de la ","
Texto1 = Mid(strCadena, 1, intPos - 1) 'Extraemos desde el inicio hasta la posicion de la coma -1
Texto2 = Mid(strCadena, intPos + 1) 'Extramos desde la posicion de la coma + 1 hasta el final

end if

y en el caso de que fueran 3 comas 3 partes?

[Avellaneda]

Hola,

para estos casos yo prefiero utilizar la función Split que devuelve un array con cada una de las palabras entre el delimitador indicado.

En este ejemplo leemos un archivo de texto en el cual las palabras están separadas por comas y las mostramos en un control ListBox:

Código:

 Dim s As String, a() As String, i As Integer
    ' abrimos el fichero y lo cargamos en la variable "s"
    Open App.Path & "\Archivo.ini" For Input As #1
    s = Input(LOF(1), #1)
    Close #1
    ' cargamos cada una de las palabras en el array "a()"
    a = Split(s, ",")
    ' y agregamos las palabras al listBox
    For i = LBound(a) To UBound(a)
        List1.AddItem a(i)
    Next i

[freedatos]

pero es que lo que guardo en el ini es user y pass para ser recordados. Creo que el problema de las rallitas los signos esos que salen es por que mete un salto de linea pero no se por que como lo podria quitar?

muestro en la imagen las rallitas sospechosas


gracias

[Avellaneda]

Iniciado por freedatos

pero es que lo que guardo en el ini es user y pass para ser recordados. Creo que el problema de las rallitas los signos esos que salen es por que mete un salto de linea pero no se por que como lo podria quitar?


gracias

¿Con el ejemplo que puse, también salen las rallitas?

[freedatos]

si tio tambien :S salen las rallitas. ¿de que puede ser?

Gracias por vuestro interes!

[Avellaneda]

Iniciado por freedatos

si tio tambien :S salen las rallitas. ¿de que puede ser?

Gracias por vuestro interes!

Prueba cargando el array de esta forma:

Código:

Do While Not EOF(1)
        Line Input #1, s
        If s <> "" Then
            a = Split(s, ",")
        End If
    Loop

y en todo caso, puedes eliminar los caracteres extraños del último elemento de la matriz así:

a(UBound(a)) = Left(a(UBound(a)), Len(a(UBound(a))) - 2)

suponiendo que son dos las rallitas.

[Jhonnyf]

Iniciado por freedatos

y en el caso de que fueran 3 comas 3 partes?

Código:

Dim strCadena as String
Dim intPos As Integer
Dim Texto1 As String
Dim Texto2 As String
Dim Texto3 as String
strCadena="Hola,Mundo, hello word"


intPos = InStr(1, strCadena, ",") 'posicion de la ","
Texto1 = Mid(strCadena, 1, intPos - 1) 'Extraemos desde el inicio hasta la posicion de la coma -1
strCadena = Mid(strCadena, intPos + 1) 'Extramos desde la posicion de la coma + 1 hasta el final

intPos = InStr(1, strCadena, ",") 'posicion de la ","
Texto2 = Mid(strCadena, 1, intPos - 1)
Texto3 = Mid(strCadena, intPos + 1)

Lo ideal seria pasarle la cadena a una función y que esta te devuelva una matriz.

[Kruzado]

muchas vueltas para lo mismo....
las famosas rayitas a las que se refiere freedatos en la representacion del enter en el text box, si quieres sacarlo antes de utilizar tu variable cadena puedes declarar lo siguiente

cadena=replace(cadena,chr(13)," ")

eso te reemplaza las famosas rayitas que por lo general van al final porque utilizas el enter para moverte de texto en texto



ahora en cuanto a los check, la propiedad value esta en verdadero cuando esta tickeado y en falso cuando no.... entonces si quieres controlar si esta tickeado o no solo pregunta :

if check1.value then
si esta seleccionado me hace toda esta parafernalia
else
si no lo esta no hago na'
end if

la otra duda, como hacerlo cuando exista mas de una coma?, piensa en usar el split...... y revisa documentate y estudia muchacho!!!!!!

ya cabros.... a seguir....

[Txoco]

Hola!

Hazle caso a Kruzado, pero utiliza Replace así:

cadena = Replace(cadena, vbCrLf, "")

vbCrLf equivale a concatenar Chr(10) (salto de línea) con Chr(13) (retorno de carro), que son los dos caracteres que te muestra "falsos" porque al leer el fichero estás concatenándolo al final de cada línea leída:

Código:

Open "\eko.ini" For Input As #1

Dim Linea As String, Total As String
    Do Until EOF(1)
        Line Input #1, Linea
        Total = Total & Linea & vbCrLf  ' Cuando lee la última línea, te concatena
                                        ' esto también, así que puedes controlarlo
                                        ' aquí o a posteriori con Replace; por cierto,
                                        ' para concatenar usa el ampersand (&)
                                        ' en lugar de +
    Loop
    Close #1

Para dividir líneas, utiliza siempre Split, que es más rápida, aunque si vas a coger el principio o el final de una cadena, utiliza Left o Right, en lugar de Mid. Se leen mejor y están optimizadas para esa funcionalidad.

Respecto a las CheckBoxes, la propiedad Value devuelve 0, 1 ó 2, respectivamente vbUnchecked, vbChecked o vbGrayed, te recomiendo comparar siempre contra esas constantes, salvo que quieras hacer algún truquillo

[freedatos]

Muchisimas gracias por vuestra ayuuda! gracias! lo que no me esta trabajando es lo del checkbox aun no me hace caso y no entiendo por que :S

[freedatos]

Pues amigos siempre entra al 1º apartado del IF este o no seleccionado :S

if check1.value then
si esta seleccionado me hace toda esta parafernalia
else
si no lo esta no hago na'
end if

ese if lo pongo en el boton, que puede pasar?

Gracias!

[Jhonnyf]

Iniciado por freedatos

Pues amigos siempre entra al 1º apartado del IF este o no seleccionado :S



ese if lo pongo en el boton, que puede pasar?

Gracias!

que raro... acabo de abrir un nuevo proyecto, pegue un Checkbox y un boton y le puse este codigo dentro del boton

Código:

If Check1.Value Then
    MsgBox "si"
Else
    MsgBox "no"
End If

y me trabaja perfectamente......

[freedatos]

Si cierto funciona pero mirad este es mi codigo ( Mi IF )

If Check1.Value Then

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(ekodata, True)
a.writeline eusuario & "," & eclave

Else



Set Fso = CreateObject("Scripting.FileSystemObject")
If (Fso.FileExists(ekodata)) Then

Kill ekodata

End If

' ***** FIN DE LA COMPROBACION

End If

Siempre entra al primero este o no seleccionado y el objeto CheckBox se llama Check1 es correcto :S

Gracias

[Jhonnyf]

en donde tienes ese codigo???... en que Rutina?

[David]

Intenta ejecutar paso a paso para saber cuál parte del código está ejecutando. Quizás esté ejecutando y no te des cuenta, ¿En qué función estás colocando eso?.

[Txoco]

Agrega esta función a tu formulario:

Código:

Private Sub Check1_Click()
    Call MsgBox("Check1.Value = " & Check1.Value & vbCrLf & "Comparación booleana = " & IIf(Check1.Value, True, False))
End Sub

Y entonces, si cuando marcas o desmarcas el checkbox no te sale un mensaje indicándote el estado después de pulsar, mal rollo...

Si funciona bien, copia la línea del MsgBox que te he puesto arriba justo antes del If que nos has puesto en el fragmento de código y ejecútalo, te saldrá el mismo mensaje diciéndote cómo está el checkbox justo antes de hacer la comparación. Compara el contenido del mensaje con el estado real del checkbox, a ver si así sale el duende.

[freedatos]

eso lo tengo en el boton

Command1_Click()


Txoco tu funcion siempre me da verdadero, este o no marcado el Check1 :(

[freedatos]

ENCONTRE EL PROBLEMAAAAAAAAAAAAAAAAAAAAAAAAAA uffff

era que antes de el if comprobaba el login y si era correcto entraba dentro donde se contraba el if pero tambien esto:

final.Show

que estaba por delante del if y no llegaba hacerlo :S juasssss

sin comentariosssss

Gracias chicos por la ayuda prestada muy amables todos.!