|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - Jimbenit
Páginas: 1 ... 13 14 [15]
351
« en: Lunes 15 de Septiembre de 2008, 16:12 »
Moskito. Revisa el siguiente codigo, no esta bien. Function ConvertAscii(ByRef as_Cadena As String) As String If as_Cadena = vbNullString Then ConvertAscii = vbNullString Else ConvertAscii = CStr(AscB(Left(as_Cadena,1))) & ConvertAscii(Right(as_Cadena,Len(as_Cadena) - 1)) End If End Function
352
« en: Viernes 12 de Septiembre de 2008, 23:07 »
Bueno, siguiendo con los errores, te tengo uno imagina que se quiere hacer una funcion que arroje la secuencia de la siguiente sumatoria 1 + 1/2 + 1/3 + 1/4 + 1/5 + 1/6 + 1/7 + ... ... + 1/n se tiene el siguiente codigo: Function Secuencia(Nro_Iterac As Integer) As Double If Nro_Iterac = 1 Then Secuencia = 1 Else Secuencia = End If End Function
353
« en: Viernes 12 de Septiembre de 2008, 20:45 »
Aveces es necesario procesar cadenas de texto, sé que muchos de ustedes se han encontrado con que tienen que diseñar funciones o sub-procedimientos para poder procesar cadenas de texto de una manera muy especial. Pues este post lo hice con la intencion para que publiquen sus funciones (esas que ustedes han diseñado) que trabajen con cadenas de TEXTO. Empiezo yo. En cierta ocasion tuve que diseñar una funcion que me pasara una cadena de texto en sus equivalentes ASCII, pero con un formato especial, por ejemplo: "Hola mundo"El resultado debia ser:
10,72,111,108,97,32,109,117,110,100,111
Donde el primer numero indica el numero de caracteres de la cadena y los demas numeros son sus equivalentes ASCII
La funcion es la siguiente:
Function CadenaASCII(CadenaNormal As String) As String 'Esta funcion recibe una cadena y como resultado da 'El numero de caracteres con los caracteres pasados a sus valores 'de la tabla ASCII 'EJEMPLO: 'CadenaASCII("YAIR") 'da como resultado '4,89,65,73,82 'Donde el primer numero (4), es el numero de caracteres 'Y los siguientes numeros son las letras en sus valores ASCII Dim NumLet As Long Dim LetrASCII As String Dim Cadena As String Cadena = CadenaNormal Cadena = Trim(Cadena) NumLet = Len(Cadena) For i = 1 To NumLet LetrASCII = Asc(Mid(Cadena, i, 1)) If NumLet = 1 Then CadenaASCII = LetrASCII ElseIf i = 1 Then CadenaASCII = LetrASCII & "," ElseIf i = NumLet Then CadenaASCII = CadenaASCII & LetrASCII Else CadenaASCII = CadenaASCII & LetrASCII & "," End If Next i CadenaASCII = NumLet & "," & CadenaASCII End Function
Publiquen las suyas!!
saludos.
354
« en: Viernes 12 de Septiembre de 2008, 18:37 »
...Buen aporte Nebire...
Saludos.
355
« en: Viernes 12 de Septiembre de 2008, 00:10 »
VS 2008 es gratis
Lo esta distribuyendo Microsoft desde su pagina principal (Por lo tanto, ya no es pirateria)
356
« en: Jueves 11 de Septiembre de 2008, 20:28 »
Private Sub Form_Load() Dim Cadena As String Me.AutoRedraw = True For i = 1 To 10 Me.Print "Bienvenida amiga" Next i Me.Print "Besos", , , , "Yochy 20" End Sub
Espero volverte a ver por aca.
357
« en: Jueves 11 de Septiembre de 2008, 20:09 »
Echale un vistazo a este codigo: Modulo1. bas Public Acum As Integer Function Factorial(X As Integer) As Integer 'El factorial de cero es 1 'Esta es la CONDICION de SALIDA If X - 1 = 0 Then Exit Function If Acum = 0 Then Acum = 1 Acum = X * Acum Factorial = Factorial(X - 1) Factorial = Acum End Function
y en el form_load coloca esto Private Sub Form_Load() Dim N As Integer N = Factorial(6) Print N End Sub
Y lo correspondiente a tu problema: 1) Como anoto Begeo, Private en un modulo 2) Esta funcion se va al infinito, no hay una condicion de salida para la recursividad (Error de desbordamiento, la funcion se va al infinito negativo) 3) Esta funcion es el procedimiento Factorial de matematicas, pues no hace nada , no multiplica nada (error de metodologia) Nota: Hagamos problemas simples ( de esos cotidianos, no los rebuscados!!) , acaso esta seccion del foro no se llama: Visual Basic para principiantes
358
« en: Jueves 11 de Septiembre de 2008, 18:59 »
Si te reportas de nuevo , te ayudo (esto es debido a que solo tienes un mensaje, lo que me hace pensar que entraste aqui solo por casualidad y tal vez ya se te olvido esta pagina, asi que creo que si te reportas de nuevo estaras en contacto... .. bueno... si lees esto... saludos... reportate!!!)
359
« en: Miércoles 10 de Septiembre de 2008, 20:25 »
La discusión entre Mosquito y Nebire fue muy, muy buena e instructiva (Gracias Moskito y gracias Nebire por brindarnos esa conversación tan instructiva). Me entretube leyendola, fue muy divertida y llena de ejemplos, muy ilustrativa, pero el novato MArio, quien solicito la ayuda , si entendió lo que ustedes dijeron???  Bueno Saludos , y todos estamos aqui para aprender!!.... Private Sub Form_Load() Dim Nilson As String MsgBox ("Saludos"), , "Nilson Yair" End Sub
360
« en: Miércoles 10 de Septiembre de 2008, 16:28 »
Bien, mira.. la funcion que hace la llamada de la api es original de de win xp, creo que no funcionará (aunque no he hecho la prueba) pero me gustaria que hicieras la prueba...
saludos
361
« en: Miércoles 10 de Septiembre de 2008, 15:17 »
Ya se que muchos saben aplicar la transparencia a los formularios, pero se han preguntado si todos saben? Bueno, para los que no saben aqui les dejo la oportunidad para que la apliquen a sus proyectos... Copia el siguiente codigo en un modulo standar: '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ NOV 6 / 2007 '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@ @@@@ '@@@ ESTE MODULO SIRVE PARA DAR TRASPARIENCIA A FORMULARIOS @@@@ '@@@ @@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Option Explicit 'Declaración del Api SetLayeredWindowAttributes que establece _ la transparencia al form Private Declare Function SetLayeredWindowAttributes Lib "user32" _ (ByVal hWnd As Long, _ ByVal crKey As Long, _ ByVal bAlpha As Byte, _ ByVal dwFlags As Long) As Long 'Recupera el estilo de la ventana Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ (ByVal hWnd As Long, _ ByVal nIndex As Long) As Long 'Declaración del Api SetWindowLong necesaria para aplicar un estilo _ al form antes de usar el Api SetLayeredWindowAttributes Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ (ByVal hWnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Const GWL_EXSTYLE = (-20) Private Const LWA_ALPHA = &H2 Private Const WS_EX_LAYERED = &H80000 'Función para saber si formulario ya es transparente. _ Se le pasa el Hwnd del formulario en cuestión Public Function Is_Transparent(ByVal hWnd As Long) As Boolean On Error Resume Next Dim Msg As Long Msg = GetWindowLong(hWnd, GWL_EXSTYLE) If (Msg And WS_EX_LAYERED) = WS_EX_LAYERED Then Is_Transparent = True Else Is_Transparent = False End If If Err Then Is_Transparent = False End If End Function 'Función que aplica la transparencia, se le pasa el hwnd del form y un valor de 0 a 255 Public Function Aplicar_Transparencia(ByVal hWnd As Long, _ Valor As Integer) As Long Dim Msg As Long On Error Resume Next If Valor < 0 Or Valor > 255 Then Aplicar_Transparencia = 1 Else Msg = GetWindowLong(hWnd, GWL_EXSTYLE) Msg = Msg Or WS_EX_LAYERED SetWindowLong hWnd, GWL_EXSTYLE, Msg 'Establece la transparencia SetLayeredWindowAttributes hWnd, 0, Valor, LWA_ALPHA Aplicar_Transparencia = 0 End If If Err Then Aplicar_Transparencia = 2 End If End Function '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@ @@@@@@@@@ '@@@@@@@ AHORA DEBES COLOCAR EN EL FORMULARIO, @@@@@@@@@ '@@@@@@@ EN EL EVENTO "LOAD" LA SIGUIENTE INSTRUCCIÓN : @@@@@@@@@ '@@@@@@@ Call Aplicar_Transparencia(Me.hWnd, 150) @@@@@@@@@ '@@@@@@@ @@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
por ultimo, en el evento Form_load , llama este procedimiento: Call Aplicar_Transparencia(Me.hWnd, 150) siendo 150 el nivel de trasparencia, el nivel minimo es 0 (es decir, el formulario es completamente invisible) el valor maximo es 255 (es decir, el formulario no tiene nada de transparencia. Espero que les sirva... saludos.
362
« en: Martes 9 de Septiembre de 2008, 23:22 »
Alguien ha utilizado estas funciones?, pues me gustaria saber sus comentarios.
Saludos
P.D. ===> Saludenme por lo menos.
363
« en: Martes 9 de Septiembre de 2008, 18:47 »
Ya se, ya se... Ya se que muchos manipulas los achivos .INI, seguramente ya tienes sus funciones, bueno para estos no este mensaje... Este mensaje es para aquellos que aun tienen errores en su codigo de como manejar los archivos .INI Copien lo siguiente en un modulo standar. '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ARCHIVO INI EN VB6.0 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ [NILSON JIMENEZ] @@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 28/ENERO/2008= @@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@ I N I @@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Public Declare Function GetPrivateProfileString Lib "kernel32" _ Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, ByVal lpDefault As String, _ ByVal lpReturnedString As String, ByVal nSize As Long, _ ByVal lpFileName As String) As Long Public Declare Function WritePrivateProfileString Lib "kernel32" _ Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, ByVal lpString As Any, _ ByVal lpFileName As String) As Long Public Function GetINI(ArchivoINI As String, Seccion As String, Clave As _ String, Default) Dim Temp As String * 256 Dim Longitud As Integer Temp = Space$(256) Longitud = GetPrivateProfileString(Seccion, Clave, Default, Temp, 255, ArchivoINI) GetINI = Left$(Temp, Longitud) End Function Sub WriteINI(ArchivoINI As String, Seccion As String, Clave As String, Valor) Dim n As Integer Dim Temp As String Temp = Valor 'Reemplazar todos los caracteres CR/LF con espacios For n = 1 To Len(Valor) If Mid$(Valor, n, 1) = vbCr Or Mid$(Valor, n, 1) = vbLf Then Mid$(Valor, n) = " " End If Next n n = WritePrivateProfileString(Seccion, Clave, Temp, ArchivoINI) End Sub '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@ AHORA SOLO PARA "LEER" UN DATO DE INFORMACIÓN SOLO TIENE QUE COPIAR @@@@@@@@ '@@@@@@@ LA SIGUIENTE INTRUCCIÓN EN EL LUGAR DONDE QUIERA INSERTAR EL DATO @@@@@@@@ '@@@@@@@ GetINI(DireccionINI, "Sectores", "Clave", "?") @@@@@@@@ '@@@@@@@ @@@@@@@@ '@@@@@@@ EJEMPLO: @@@@@@@@ '@@@@@@@ Nom_Usu = GetINI(DireccionINI, "Sectores", "NombreUsuario", "?") @@@@@@@@ '@@@@@@@ La variable Nom_Usu debe almacenar la información que se encuentre @@@@@@@@ '@@@@@@@ en [Sectores] NombreUsuario= @@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@ PARA "GUARDAR" UN DATO DE INFORMACIÓN SOLO TIENE QUE INSERTAR LA @@@@@@@@@ '@@@@@@@ SIGUIENTE INSTRUCCIÓN... @@@@@@@@@ '@@@@@@@ Call WriteINI(DireccionINI, "Sectores", "Clave", Nom_Usu) @@@@@@@@@ '@@@@@@@ @@@@@@@@@ '@@@@@@@ EJEMPLO: @@@@@@@@@ '@@@@@@@ Call WriteINI(DireccionINI, "Sectores", "NombreUsuario", Nom_Usu) @@@@@@@@@ '@@@@@@@ La variable que inserta la información a guardar es Nom_Usu, esta @@@@@@@@@ '@@@@@@@ información se guarda en [Sectores] NombreUsuario= @@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Las intrucciones de como manejar estas funciones estan indicadas en el mismo modulo como comentarios... Bueno... saludos y espero que les sirva.
364
« en: Jueves 28 de Agosto de 2008, 19:57 »
No escribas dos veces el mismo post, (esto es crear SPAM), los spam son muy desagradables.
Saludos.
365
« en: Martes 26 de Agosto de 2008, 20:55 »
Estas dos funciones pueden servirles a muchos, esta las hice hace unos meses, espero que les guste. Es para crear un bloc de notas donde puedes guardar información y luego recuperar, la información guardada se almacena en un orden de filas y columnas. Estas funciones debesw colocarlas en un modulo Estandar y luego llamarlas desde cualquier parte de tu programa. Para Super Novatos: * Abre Visual Basic en un proyecto Estandar en blanco * Ves al menu "Proyecto" y luego en "Agregar modulo" Se edespliega una ventana llamada "Agregar Modulo", dale click en Abrir * Copia y pega el siguiente codigo en esa ventana: Function LeerDatoMATRIZ(Colum As Long, Fila As Long, RutaArchivo As String) As Variant 'Lee datos de una cadena separada por comas.. ejemplo: ' xxxxx, xxxxx, xxxxx , xxxxx, etc... Dim NumLine As Long Dim Cadena1 As String Dim Cadena As String Dim Dato As Variant If Dir(RutaArchivo) = "" Then 'Comprueba si existe archivo, en caso de no existir, lo crea. Open RutaArchivo For Output As #1 Print #1, "Archivo de Texto creado para guardar información" & vbCrLf & "jimbenit@hotmail.com" Close #1 End If Open RutaArchivo For Input As #1 'Copia la fila completa en la variable cadena While Not EOF(1) Line Input #1, Cadena1 NumLine = NumLine + 1 If NumLine = Fila Then Cadena = Cadena1 End If Wend Close #1 Dim NumLet As Long Dim Cont As Long Dim Letr As String Dim PosComas() As Long Dim NumCarac As Long NumLet = Len(Cadena) For i = 1 To NumLet 'Cuenta las comas dentro de la cadena Letr = Mid(Cadena, i, 1) If Asc(Letr) = 44 Then Cont = Cont + 1 End If Next i If Colum > Cont + 1 Then Exit Function 'Columna vacia ReDim PosComas(Cont) Cont = 0 For i = 1 To NumLet 'Coloca las posiciones de las comas dentro del vector Letr = Mid(Cadena, i, 1) If Asc(Letr) = 44 Then Cont = Cont + 1 PosComas(Cont) = i End If Next i If Colum = UBound(PosComas()) + 1 Then 'Escribe el dato buscado en la variable dato Dato = Mid(Cadena, PosComas(Colum - 1) + 1) Else Dato = Mid(Cadena, PosComas(Colum - 1) + 1, PosComas(Colum) - 1 - PosComas(Colum - 1)) End If 'El siguiente bloque de código elimina las comillas 'del principio y final de la variable Dato. NumLet = Len(Dato) If Left(Dato, 1) = Chr(34) Then Dato = Mid(Dato, 2) End If NumLet = Len(Dato) If Right(Dato, 1) = Chr(34) Then Dato = Mid(Dato, 1, NumLet - 1) End If LeerDatoMATRIZ = Dato End Function Sub EscribirDatoMATRIZ(Colum As Long, Fila As Long, Dato As Variant, RutaArchivo As String) 'Guarda datos en un bloc notas en forma de comas... utiliza el bloc 'como una matriz ordenada por filas y columnas... [Mayo 5 / 2008] Dim Contador As Double Dim Vector() As Variant Dim Caracter As String Dim Max As Double Dim Linea As Long Dim Cadena As String Dim NumLet As Long Dim Letr As String Dim Cont As Long Dim PosComas() As Long Dim Pedazo1 As String Dim Pedazo2 As String Dim Comas_Add As Long If Dir(RutaArchivo) = "" Then 'Comprueba si existe archivo, en caso de no existir, lo crea. Open RutaArchivo For Output As #1 Print #1, "Archivo de Texto creado para guardar información" & vbCrLf & "jimbenit@hotmail.com" Close #1 End If Linea = Fila For j = 1 To 2 'Introduce todas las lineas del Bloc notas en un Vector llamado Vector() Open RutaArchivo For Input As #1 While Not EOF(1) 'Cuenta las lineas del Bloc Notas Line Input #1, Caracter i = i + 1 If j = 1 Then Contador = i ElseIf j = 2 Then 'Si j = 2 , se escriben las lineas dentro del vector Vector(i) = Caracter End If Wend Close #1 If j = 1 Then If Linea > Contador Then 'Define el tamaño del vector ReDim Vector(1 To Linea) Max = Linea Else ReDim Vector(1 To Contador) Max = Contador End If i = 0 End If Next j For i = 1 To Max 'Obtiene la fila en string separada por comas If i = Fila Then Cadena = Vector(i) End If Next i 'Obtención de las posiciones de las comas '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ NumLet = Len(Cadena) For i = 1 To NumLet 'Cuenta las comas dentro de la cadena Letr = Mid(Cadena, i, 1) If Asc(Letr) = 44 Then Cont = Cont + 1 End If Next i If Colum > Cont + 1 Then 'Columna vacia Comas_Add = Colum - (Cont + 1) For i = 1 To Comas_Add Cadena = Cadena & ", " Next i Cont = Colum - 1 End If NumLet = Len(Cadena) ReDim PosComas(Cont) Cont = 0 For i = 1 To NumLet 'Coloca las posiciones de las comas dentro del vector Letr = Mid(Cadena, i, 1) If Asc(Letr) = 44 Then Cont = Cont + 1 PosComas(Cont) = i End If Next i '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 'Añadiendo el dato a la cadena [Elimina el dato anterior en esa posición] If Cont = 0 Then Cadena = Dato ElseIf Colum = 1 Then 'Coloca el dato al principio Cadena = Dato & Mid(Cadena, PosComas(1)) ElseIf Colum = UBound(PosComas()) + 1 Then 'Coloca el dato al final Cadena = Mid(Cadena, 1, PosComas(Colum - 1)) & Dato Else Pedazo1 = Mid(Cadena, 1, PosComas(Colum - 1)) Pedazo2 = Mid(Cadena, PosComas(Colum)) Cadena = Pedazo1 & Dato & Pedazo2 End If 'Escribiendo en el Bloc Notas Open RutaArchivo For Output As #1 For i = 1 To Max If i = Linea Then Vector(i) = Cadena Print #1, Vector(i) Else Print #1, Vector(i) End If Next i Close #1 End Sub
* Cierra la venta de codigo *Dale doble click en el formulario: Debe abrirse la venta codigo con las palabras Private Sub Form_Load() End Sub
y escribe esta linea en medio de las lineas anteriores Call EscribirDatoMATRIZ(4, 5, "Hola mundo!!", "C:/MiBlocNotas.txt")
*Ejecuta tu aplicación y luego ves a tu disco local C: y veras un archivo de texto con el nombre MiBlocNotas Saludos.
Páginas: 1 ... 13 14 [15]
|
|
|
Mostrar Mensajes
