 Autor
|
Tema: [Ayuda] Como puedo validar esto? (Leído 8,386 veces)
|
BlackZeroX
Wiki
 Desconectado
Mensajes: 3.158
I'Love...!¡.
|
Cuando pones: Dim TmpChar As String * 1
Es para declarar que la variable contendrá un carácter y por eso se coloca el *1? Para qué es necesario? Declarando que contendrá un sólo carácter ocupa menos memoria que si le pones un sólo caracter sin poner el *1? yo en lo personal lo hago por que solo ocupo y dejo lo nesesario en su declaracion es decir su longitud maxima y cuando uso el mid$ no se nesesita seguir estos pasos: Redimencionar string establecer String y esto X veces sea en el bucle por lo cual conlleva un poco mas de tiempo, por lo contrario si se hace de la forma en la declaracion en una longitud fija solo va a pasar a introducir el valor y la variable string SIEMPRE va a contener la logitud deseada y si no se llenace totalmente se poner Bytes 0 o nullos. Dulce Infierno Lunar!¡.
|
|
|
|
|
En línea
|
The Dark Shadow is my passion.
|
|
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
No entiendo por que te complicas tanto para hacer el StrReverse()  Public Function Str_Reverse(Expression As String) As String Dim i As Integer For i = Len(Expression) To 1 Step -1 Str_Reverse = Str_Reverse & Mid$(Expression, i, 1) Next i End Function
|
|
|
|
|
En línea
|
|
|
|
Dreamaker
Desconectado
Mensajes: 277
|
Karcrack, que hace el Mid con el signo "$"? Porque yo hasta ahora lo usaba simplemente Mid(<Cadena>,<Posición>,<Longitud>)  |
|
|
|
|
En línea
|
|
|
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
Utilizar el dolar es mas optimo, debido a que si no especificas usando el dolar que quieres que devuelva String, la funcion devuelve Variant, luego VB tiene que hacer la conversion para meter los datos en una String  |
|
|
|
|
En línea
|
|
|
|
burbu_1
Desconectado
Mensajes: 159
hamen gaoz
|
Utilizar el dolar es mas optimo, debido a que si no especificas usando el dolar que quieres que devuelva String, la funcion devuelve Variant, luego VB tiene que hacer la conversion para meter los datos en una String hola, sin ánimo de comenzar una discusión con los grandes (porque seguro saldría perdiendo....  ) tenía entendido que la función mid devuelve un string de por sí Public Shared Function Mid( _ ByVal str As String, _ ByVal Start As Integer, _ Optional ByVal Length As Integer _ ) As String
http://msdn.microsoft.com/en-us/library/05e63829%28VS.80%29.aspxsaludos.
|
|
|
|
|
En línea
|
|
|
|
Karcrack
Desconectado
Mensajes: 2.416
Se siente observado ¬¬'
|
Fijate que gran parte de la documentacion de la MSDN ya no es para VB6 ' Creates text string. Dim TestString As String = "Mid Function Demo" ' Returns "Mid". Dim FirstWord As String = Mid(TestString, 1, 3) ' Returns "Demo". Dim LastWord As String = Mid(TestString, 14, 4) ' Returns "Function Demo". Dim MidWords As String = Mid(TestString, 5)
Prueba a ejecutar eso en VB6  Fijate que al poner Mid( te saldra la declaracion de la funcion, si pones Mid$( pone al final "As String" A la hora de programar no hay diferencia, pero una vez compilado el proceso es distinto |
|
|
|
|
En línea
|
|
|
|
|
cobein
|
Sacado de msvbvm60.dll Module Constants;
GUID = {343DB180-2BCC-1069-82D4-00DD010EDFAA};
vbObjectError = -2147221504;
vbNullString = ;
vbNullChar = iant; stdcall;
function _B_str_Mid(String: BSTR; Start: I4; out Length: ^Variant): BSTR; stdcall;
function _B_var_Mid(String: ^Variant; Start: I4; out Length: ^Variant): Variant; stdcall; |
|
|
|
|
En línea
|
|
|
|
|
LeandroA
|
ya que se sale el tema, pregunto con respecto a valores numericos con los singnos. he visto que cuando se utiliza una API muchas veces en los valores nulos (cero u otros tambien) se los pasa con los singos por ejemplo SendMessage THWnd, WM_KEYDOWN, VK_R, 0& al cero se lo marca como un long ahora si yo ago esto, es nesesario, esta bien o esta mal? dim Valor as long
Valor = 5& o esto dim B() as byte
redim B(0&) Saludos. |
|
|
|
|
En línea
|
|
|
|
|
 |
