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 [...]
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”
Obtener un fragmento de una Cadena (String) Visual Basic: [VB] Dim MyString As String MyString = “This is string example” MsgBox Mid(MyString, 5, 10) [/VB] PHP: [PHP] $MyString = “This is string example”; echo substr($MyString,5,10); [/PHP] Nota: En ambos casos el contador de caracteres empieza en 0
Descripción de los nombres que se deben utilizar al crear un control ActiveX. Se toma como ejemplo un control de INTEX WinBol que calcula la tabla de clasificación de una competición: Elemento Nombre Comentario Control Nombre del Control Clasificacion Descripción Nmemotécnica Nombre de fichero Clasificacion.ctl = Control Nombre del OCX Clasificacion.ocx = Control Proyecto Nombre [...]
