Una par tips para VB 6 y Microsoft Access que pueden ser de utilidad: Como saber la extensión de un archivo Esta instrucción tiene en cuenta que en el nombre del archivo pueda haber mas de un punto y que la extensión pueda ser un numero variable de caracteres. Se facilita en formato de Function [...]
Esta es una función que suelo utilizar para extraer emails de texto. Es la versión simplificada para encontrar un solo email ya que con una modificación en el Gosub puede capturar un número indeterminado de emails y almacenarlos en una colección de objetos. La función también sirve de ejemplo para la utilización de varias sentencias [...]
Rutina que permite contar las apariciones de una cadena dentro de otra. [VB] Public Function CuentaPalabras(Texto As String, Palabra As String) As Long Dim wptr As Long Dim count As Long wptr = InStr(Texto, Palabra) Do Until wptr = 0 count = count + 1 wptr = InStr(wptr + 1, Texto, Palabra) Loop CuentaPalabras = [...]
La instrucción Redim permite redimensionar una matriz en Visual Basic. Es útil en aquellos casos en que necesitamos almacenar datos en una matriz pero no sabes, a priori, cual será el número total de elementos a incorporar. Un ejemplo práctico es cuando hacemos una utilidad para tratar los archivos de una carpeta pero al hacer [...]
Esta es una pequeña utilidad desarrollada con Visual Basic que permite convertir a un fichero de texto una base de datos de Microsoft Access. El proceso crea una subcarpeta donde están las bases de datos y en la misma crea un fichero por cada una de la tablas del MDB. En principio se crean en [...]
Este ejemplo permite recuperar la lista de archivos copiados en el Clipboard. Ejemplo Copy and Paste En caso de usar en un Control ActiveX cambiar Me.Hwnd por UserControl.Hwnd. Código completo: [VB] Option Explicit Private Declare Function DragQueryFile Lib “shell32.dll” Alias “DragQueryFileA” (ByVal hDrop As Long, ByVal UINT As Long, ByVal lpStr As String, ByVal ch [...]
Hay algunas aplicaciones que permiten que una persona firme un documento en una tableta digital y es necesario guardar una copia del mismo en el PC. Existen varias tables digitalizadoras que permiten realizar la firma e insertarla automáticamente en un documento PDF que tengamos abierto en ese momento. El objetivo de esta entrada es describir [...]
the-reddick-vba-naming-conventions
La función Replace de Visual Basic reemplaza un string formado por uno o varios caracteres en una cadena por otro string formado por uno o varios caracteres. Su sintaxis es simple no necesita ejemplos.
Se utiliza la función Split: [VB] Dim matStrings() As String txtstrings = “Uno,Dos,Tres” matStrings = Split(txtStrings, “,”) [/VB] Obtenemos una matriz de Strings con cada uno de los elementos: matstrings(1) = “Uno” matstrings(2) = “Dos” matstrings(3) = “Tres”
