.
El ASC 10 = Saldo de linea. = vbCr
El ASC 13 = Retorno de carro.
-------------------
vbNewLine
Es decir en Windows asi, en linux si no mal recuerdo solo basta con el ASC 10.
Por otro lado:
@Raul100
En mi antiguo post (Donde esta el test de fiabilidad en la hoja anterior hay ligas de decarga de archivos, hay esta el codigo para probar la velocidad de las funciones... puedes estudiarlo).
Ando estresado y me limitare un poco...
El capricho es de IsNumeric() no mio; aun asi sigue mal tu funcion...
* Revisa bien la forma en la que probe la fiabilidad...
Nota: no es nesesario usar lBound() despues de hacer un Split()... SIEMPRE es 0...
------> Edito:
la version 3 sigue dando errores...
Test rapido...
Dulces Lunas!¡.
El ASC 10 = Saldo de linea. = vbCr
El ASC 13 = Retorno de carro.
-------------------
vbNewLine
Es decir en Windows asi, en linux si no mal recuerdo solo basta con el ASC 10.
Por otro lado:
@Raul100
En mi antiguo post (Donde esta el test de fiabilidad en la hoja anterior hay ligas de decarga de archivos, hay esta el codigo para probar la velocidad de las funciones... puedes estudiarlo).
Ando estresado y me limitare un poco...
Cita de: raul338 en 15 Agosto 2011, 01:05 AM
Y por si alguno pensó que los caprichos de BlackZeroX es imposible de otra forma de la que lo hizo él. Acá le cierro la boca
El capricho es de IsNumeric() no mio; aun asi sigue mal tu funcion...
Cita de: raul338 en 15 Agosto 2011, 01:50 AM
Estuve probando el testeo, y si lo hago asi
....
Devuelve "errores" al azar :-/ así que no quiere decir que sea realmente un error
* Revisa bien la forma en la que probe la fiabilidad...
Código (Vb,3,4,7) [Seleccionar]
'...
bRes = IsNumeric(spli(i))
If Not (bRes = isNumeric_Black(spli(i))) Then
Debug.Print "Error: isNumeric_Black (""" & spli(i) & """)"
End If
'...
If Not (bRes = IsNumeric_r338v2(spli(i))) Then
Debug.Print "Error: IsNumeric_r338v2(""" & spli(i) & """)"
End If
'...
Nota: no es nesesario usar lBound() despues de hacer un Split()... SIEMPRE es 0...
Código (vb) [Seleccionar]
Private Sub Form_Load()
MsgBox LBound(Split("", "accc"))
MsgBox LBound(Split("aaa", "accc"))
MsgBox LBound(Split("aaaaa", "accc"))
MsgBox LBound(Split("accccaccccc", "accc"))
End Sub
------> Edito:
la version 3 sigue dando errores...
Test rapido...
Código (vb) [Seleccionar]
Private Sub Form_Load()
MsgBox IsNumeric_r338v3("1..3") & vbNewLine & IsNumeric("1..3")
End Sub
Código [Seleccionar]
Error: IsNumeric_r338v3("1..3")
Error: IsNumeric_r338v3("133.23.330")
Error: IsNumeric_r338v3("asdf")
Error: IsNumeric_r338v3("a12f")
Error: IsNumeric_r338v3("1..1")
Error: IsNumeric_r338v3("1..2..3")
Error: IsNumeric_r338v3(" &H2212313215646546546546516516512")
Error: IsNumeric_r338v3(" 0. 0")
Error: IsNumeric_r338v3("3
0")
Error: IsNumeric_r338v3("3000
0")
Error: IsNumeric_r338v3(" s &H1000000000")
Error: IsNumeric_r338v3(" +. &H1000000000")
Error: IsNumeric_r338v3(" +. &H1000000000")
Error: IsNumeric_r338v3(" +.a &H1000000000")
Error: IsNumeric_r338v3(" +.a &H100000000v")
Error: IsNumeric_r338v3(" +.a &H1000000 00v")
Error: IsNumeric_r338v3("&H1000000 00v")
Error: IsNumeric_r338v3("&H1000000 00")
Error: IsNumeric_r338v3("+e1. .2")
Error: IsNumeric_r338v3(".+0e+11")
Error: IsNumeric_r338v3("+d1. .2")
Error: IsNumeric_r338v3(".+0d+11")
Error: IsNumeric_r338v3("")
Error: IsNumeric_r338v3("+1. .2")
Error: IsNumeric_r338v3("+. 0")
Error: IsNumeric_r338v3("+")
Error: IsNumeric_r338v3(". .+0")
Error: IsNumeric_r338v3(".0
.+0")
Error: IsNumeric_r338v3("
--.0 ")
Error: IsNumeric_r338v3("
+-+-.+.0")
Dulces Lunas!¡.