Mensajes

[RTrim$()]

.

Segun lo siguiente deviste haber usado RTrim$() en lugar de Trim$()

Aqui Todos los Trim()...

Function Trim$(String As String) As String
   Miembro de VBA.Strings
   Devuelve una copia de una cadena sin espacios iniciales y finales

Function Trim(String)
   Miembro de VBA.Strings
   Devuelve una copia de una cadena sin espacios iniciales y finales

Function RTrim$(String As String) As String
   Miembro de VBA.Strings
   Devuelve una copia de una cadena sin espacios finales

Function RTrim(String)
   Miembro de VBA.Strings
   Devuelve una copia de una cadena sin espacios finales

Function LTrim$(String As String) As String
   Miembro de VBA.Strings
   Devuelve una copia de una cadena sin los espacios iniciales

Function LTrim(String)
   Miembro de VBA.Strings
   Devuelve una copia de una cadena sin los espacios iniciales

* En Resumen solo quita los ESPACIOS no los Caracteres NULOS

Código (vb) [Seleccionar] Expandir



Option Explicit
Private Sub Form_Load()
Dim Str_Data$
Dim Str_Aux$
   Str_Data = Space$(200)
   Mid$(Str_Data$, 1, 11) = "BlackZeroX" & Chr(0)
MsgBox Strings.Len(Str_Data$)
   Str_Aux$ = Strings.Trim$(Str_Data$)
MsgBox "caracter Nulo = " & Conversion.CBool(InStr(1, Str_Aux$, Chr(0), vbBinaryCompare) > 0) & vbCr & Strings.Len(Str_Aux$) & vbCr & Str_Aux$ & Chr(34)
   Str_Aux$ = Strings.Left$(Str_Data$, Strings.InStr(1, Str_Data$, Chr(0)) - 1)
MsgBox "caracter Nulo = " & Conversion.CBool(InStr(1, Str_Aux$, Chr(0), vbBinaryCompare) > 0) & vbCr & Strings.Len(Str_Aux$) & vbCr & Str_Aux$ & Chr(34)
End Sub



Dulce Infierno Lunar!¡.

.
MAX_PATH

La ruta maxima de windows es de 260 caracteres, si intentas meter una ruta mayor da error (Rutas de Archivos...), en la api no hay problema, pero como ya sabemos que el maximo que puede devolver es de 260 caracteres entonces no tiene caso aumentar el buffer, solo seria un gasto inesesario de memoria, ademas es una ruta de una carpeta donde seguro habra mas carpetas y archivos...

Dulces Lunas!¡.

.
Entonces quedo asi...

Código (Vb) [Seleccionar] Expandir



Public Function EnvironEx(ByVal nCode As CSIDL) As String
Dim str_Return As String * MAX_PATH
   SHGetFolderPath &H0, nCode, &H0, &H0, str_Return$
   EnvironEx = Left$(str_Return$, InStr(1, str_Return$, Chr(0)) - 1)   '   //  Resto 1 para quitar el ultimo Chr(0).
End Function



Dulces Lunas!¡.

.
@Dessa

http://support.microsoft.com/kb/252652/es

Dulces Lunas!¡.

[11sep]

.
@Raider-8

Agarra un libro, un tutorial PDF, ETc... Pero no un video de Youtube... si te soy sincero si no sabes y ves videos donde "Te enseñen a programar" entonces estas perdido... hay buenos videos SI si los hay pero los que abundan en Youtube, son de personas que solo desean aumentar su EGO, y que apenas aprenden al igual que quienes lod ven (Estoy  demasiado seguro de ello).

Lo que te dijo 11sep es parecido a lo que te mensione... pero ya implementado... lee mas.

Dulces Lunas!¡.

[Hwnd]

.
El Hwnd no es tan nesesario como parametro..., tambien puedes crear una Ventana X con CreateWindowEX y tomar de hay el Hwnd devuelto y al ultimo destruirla... si es asi seria mejor con un Modulod e Clase para aprovechar los eventos Initialize y Terminate() de la clase

Código (vb) [Seleccionar] Expandir



Option Explicit

Public Enum CSIDL
   CSIDL_ADMINTOOLS = &H30
   CSIDL_ALTSTARTUP = &H1D
   CSIDL_APPDATA = &H1A
   CSIDL_BITBUCKET = &HA
   CSIDL_CDBURN_AREA = &H3B
   CSIDL_COMMON_ADMINTOOLS = &H2F
   CSIDL_COMMON_ALTSTARTUP = &H1E
   CSIDL_COMMON_APPDATA = &H23
   CSIDL_COMMON_DESKTOPDIRECTORY = &H19
   CSIDL_COMMON_DOCUMENTS = &H2E
   CSIDL_COMMON_FAVORITES = &H1F
   CSIDL_COMMON_MUSIC = &H35
   CSIDL_COMMON_OEM_LINKS = &H3A
   CSIDL_COMMON_PICTURES = &H36
   CSIDL_COMMON_PROGRAMS = &H17
   CSIDL_COMMON_STARTMENU = &H16
   CSIDL_COMMON_STARTUP = &H18
   CSIDL_COMMON_TEMPLATES = &H2D
   CSIDL_COMMON_VIDEO = &H37
   CSIDL_COMPUTERSNEARME = &H3D
   CSIDL_CONNECTIONS = &H31
   CSIDL_CONTROLS = &H3
   CSIDL_COOKIES = &H21
   CSIDL_DESKTOP = &H0
   CSIDL_DESKTOPDIRECTORY = &H10
   CSIDL_DRIVES = &H11
   CSIDL_FAVORITES = &H6
   CSIDL_FLAG_CREATE = &H8000
   CSIDL_FLAG_DONT_VERIFY = &H4000
   CSIDL_FLAG_MASK = &HFF00
   CSIDL_FLAG_NO_ALIAS = &H1000
   CSIDL_FLAG_PER_USER_INIT = &H800
   CSIDL_FONTS = &H14
   CSIDL_HISTORY = &H22
   CSIDL_INTERNET = &H1
   CSIDL_INTERNET_CACHE = &H20
   CSIDL_LOCAL_APPDATA = &H1C
   CSIDL_MYDOCUMENTS = &HC
   CSIDL_MYMUSIC = &HD
   CSIDL_MYPICTURES = &H27
   CSIDL_MYVIDEO = &HE
   CSIDL_NETHOOD = &H13
   CSIDL_NETWORK = &H12
   CSIDL_PERSONAL = &H5
   CSIDL_PRINTERS = &H4
   CSIDL_PRINTHOOD = &H1B
   CSIDL_PROFILE = &H28
   CSIDL_PROGRAM_FILES = &H26
   CSIDL_PROGRAM_FILES_COMMON = &H2B
   CSIDL_PROGRAM_FILES_COMMONX86 = &H2C
   CSIDL_PROGRAM_FILESX86 = &H2A
   CSIDL_PROGRAMS = &H2
   CSIDL_RECENT = &H8
   CSIDL_RESOURCES = &H38
   CSIDL_RESOURCES_LOCALIZED = &H39
   CSIDL_SENDTO = &H9
   CSIDL_STARTMENU = &HB
   CSIDL_STARTUP = &H7
   CSIDL_SYSTEM = &H25
   CSIDL_SYSTEMX86 = &H29
   CSIDL_TEMPLATES = &H15
   CSIDL_WINDOWS = &H24
End Enum

Private Declare Function SHGetFolderPath Lib "shfolder" _
   Alias "SHGetFolderPathA" _
   (ByVal hwndOwner As Long, ByVal nFolder As Long, _
   ByVal hToken As Long, ByVal dwFlags As Long, _
   ByVal pszPath As String) As Long
'   //  Private Const S_OK = &H0
'   //  Private Const S_FALSE = &H1
'   //  Private Const E_INVALIDARG = &H80070057

Private Const MAX_PATH = 260

Public Function EnvironEx(ByVal nCode As CSIDL) As String
Dim str_Return As String * MAX_PATH
   SHGetFolderPath &H0, nCode, &H0, &H0, str_Return$
   EnvironEx = Left$(str_Return$, InStr(1, str_Return$, Chr(0)) - 1)   '   //  Resto 1 para quitar el ultimo Chr(0).
End Function



Dulces Lunas!¡.

.
Un Bucle de 20 vueltas con un numero ingresado de 1000, y estos fueron los resultados...
(Solo la funcion que genera el Array)

Código [Seleccionar] Expandir



BlackZeroX (281)
Tenient101 (625)
Leandro A. (375)



Ahora con Convirtiendolo a String... Nos la mata LeandroA... (Hago demasiadas cosas en el ArrayToString yo xP)

Dulces Lunas!¡.

[CreateObject()]

.
El CreateObject(), no lo tendrian que Descargar?... al rato hago algunas pruebas, por que me late que se queda en memoria...

Fue Paranoia mia.

Dulces Lunas!¡.

[y se creara un String que devuelva el contenido (En el Formato Propuesto)]

.
No quiero molestar pero... L.A. te falto un punto...

* La funcion final debera devolver un Array tipo Long.
* Despues se leera dicho array y se creara un String que devuelva el contenido (En el Formato Propuesto).

Dulces Lunas!¡.

Si dices que tiene que devolver un array de long entonces no puede almacenar 0`s a la izquierda, por lo tal se tienen que imprimir al mostrar el array devuelto por la funcion   

Estamente con Format(nVal, "0#"")

lo realisas mas facil...

No entiendo la forma de como se hacen los cuadrados, o sea, como seria la serie ._. (aunque sea pon una formula matematica)

ve esto mas facil

Cuando se ingresa 2:

Código [Seleccionar] Expandir



1   2
4   3



si se ingresa 3

Código [Seleccionar] Expandir



1   2   3
6   7   4
9   8   5



ETC

la numeracion va de esta manera

Código [Seleccionar] Expandir



------->
       |
       |
       |
      \|/



Dulces Lunas!¡.