Mensajes

[Pero en Si lo que quisiera es que en el text1.text se borre la ultima letra escrita!]

Pero en Si lo que quisiera es que en el text1.text se borre la ultima letra escrita!

Para la ultima letra... en una frase o linea (usa splioit() para separarlas por medio de los espacios)

Código (vb) [Seleccionar] Expandir

var="hola a todos"
var= mid(var,1,len(var)-1)
'o
var=left(var,len(var)-1)
'o
var=left(var,len(var)-1)


o Mucho mejor usa Replace() que es lo que veo que realmente deberias usar

Código (vb) [Seleccionar] Expandir


dim var as string,i as integer
var="hola a todos"
for i =1 to 255:var= replace(var,chr(i) & " "," "):next i


es mejor usar Split o ingresarle una sentencia para comprobar letras SOLAS seràn BORRADAS eso va por tu cuenta

TIP: Repasate un Manua de Basicl!¿, cuando empese liste TODAS las funciones (solo los nombre) y los pegue en una hojita enfrente del monitor me ayudo a memorizarlas xD (Actualmente ya no uso esto)).

Dulces Lunas

Lo ideal seria zipear todos los ejecutables generados para disimular xD

que tanto te crees realmente?, es mejor llenarlo con un dummy al final del exe y q cambie de icono, el zip no tanto, ya que un archivo dummy de 1 gb en un zip se reduce como a 100 kbs o menos aun!¡.

Yo arreglaria aùn màs tu codigo!¡.

Dulces Lunas

pero tendria que deshacerme del csocket master que tengo?

solo modificar algunas cosas...!¡, por ejemplo agregar el index a las funciones y llamadas...!¡

hay mill y un ejemplos en la red. te recomiendo usar el CSocketPlus este inclusive trae un ejemplo!¡

Código (vb) [Seleccionar] Expandir


'Objetivo: Leer/Escribir configuracion/Datos al final de un archivo dato, dada una _
              longitud fija, que de igual forma es plasmada exactamente al final del _
              archivo!!
'Autor: BlackZeroX
'Web: http: http://infrangelux.sytes.net/
'Version 1.1

Option Explicit

'Archivo  = Ruta del archivo a abrir y leer los bytes finales
'lenconf  = valor devuelto de la funcion EscribirDatos (Obligatoriamente Numerico)

Function LeerDatos(Archivo As String, lenConf As Long) As String
   On Error GoTo e:
   If Dir(Archivo, vbArchive) = "" Or lenConf <= 0 Then Exit Function
   Dim NFile As Integer, DatosServer As String, ByteI As Long
   NFile = FreeFile
   Open Archivo For Binary As NFile
       ByteI = Val(LOF(NFile)) - lenConf
       DatosServer = Space(lenConf)
       Get NFile, ByteI + 1, DatosServer
       ByteI = Val(LOF(NFile)) - lenConf - Val(DatosServer)
       DatosServer = Space(Val(DatosServer))
       Get NFile, ByteI + 1, DatosServer
       LeerDatos = DatosServer
   Close NFile
   Exit Function
e: LeerDatos = "Error:" & Err.Description: Err.Clear
End Function

'Archivo              = Ruta del Archivo a escribir...
'Str_EOF              = Datos a escribir en el final del archivo

'La Funcion "EscribirDatos" Devuelve el Num usado en 'LenConf' de la Funcion LeerDatos
'    El Numero devuelto si es mayor a Cero  = Todo a ido correctamente
'    Si el numero es Cero = No se escribio NADA en el archivo indicado (Error de la cadena String, archivo No existente, Archivo en uso actualmente, etc)
'El Numero devuleto es importante para la correcta lectura del string de configuracion

               
Function EscribirDatos(Archivo As String, Str_EOF As String) As Long
   On Error GoTo e:
   Dim Datas As String, NFile As Integer, f As String, i As Integer
   NFile = FreeFile
   If Dir(Archivo, vbArchive) = "" Or Str_EOF = "" Then Exit Function
   EscribirDatos = Len(CStr(Len(Str_EOF)))
   For i = 1 To EscribirDatos - 1: f = "0" & f: Next i
   Datas = Str_EOF + Format(Len(Str_EOF), f & "#")
   Open Archivo For Binary As NFile
       Seek (NFile), LOF(NFile) + 1 'Escribirmos al final del archivo
       Put NFile, , Datas
   Close NFile
   Exit Function
e: EscribirDatos = 0: Err.Clear
End Function

Código (vb) [Seleccionar] Expandir


'Ejemplo en uso:

Option Explicit
Sub main()
   Dim n As Long, Archivo As String, Res As String
   Archivo = ""
   n = EscribirDatos(Archivo, "miguel angel ortega avila alias BlackZeroX")
If n = 0 Then Exit Sub
   Res = LeerDatos(Archivo, n)
If Res = "" Then Exit Sub
   MsgBox Res
   Kill Archivo
End Sub

Esto ya estaba expuesto hay sin fin de maneras para hacerlo...

Código (vb) [Seleccionar] Expandir



'Objetivo: Leer/Escribir configuracion/Datos al final de un archivo dato, dada una
              longitud fija, que de igual forma es plasmada exactamente al final del _
              archivo!!
'Autor: BlackZeroX
'Web: http: http://infrangelux.sytes.net/
'Version 1.0

Option Explicit

Function LeerConfig(Archivo As String) As String
   On Error GoTo e:
   Dim NFile As Integer
   Dim DatosServer As String
   Dim ByteI As Long
   
   NFile = FreeFile
   Open Archivo For Binary As NFile
       'Primero Leemos la longitud de los Datos de Configuración
       ByteI = Val(LOF(NFile)) - 4 'El numero 4 es segun se espesifique en Format, es decir la longitud del texto predeterminado en Format()
       DatosServer = Space(4) 'Hay que redimencionar la variable para obtener la longitud de configuración.¡!
       Get NFile, ByteI + 1, DatosServer
       ByteI = Val(LOF(NFile)) - 4 - Val(DatosServer)
       DatosServer = Space(Val(DatosServer)) ' Redimencionamos para obtener ahora el Rango deseado
       Get NFile, ByteI + 1, DatosServer 'Lo obtenemos
       LeerConfig = DatosServer
   Close NFile
   Exit Function
e:
   LeerConfig = "Error:" & Err.Description
   Err.Clear
End Function

Function EscribirDatos(Archivo As String,DatosEOF as string) As Boolean
   On Error GoTo e:
   Dim Datas As String
   Dim NFile As Integer
   NFile = FreeFile
   Datas = InputBox("Datos Formato--->   IP:Puerto:TiempoReconección", "Configurador", "")
   Datas = Datas + Format(Len(Datas), "000#") ' Segun sea este formato abajo se sustituye el numero 4 por otro valor segun la longitud.
   Open Archivo For Binary As NFile
       Seek (NFile), LOF(NFile) + 1 'Escribirmos al final del archivo
       Put NFile, , Datas
   Close NFile
   EscribirDatos = True
   Exit Function
e:
   EscribirDatos = False
   Err.Clear
End Function



hola necesito que me enseñena aprogramar en visual basci
con ejemplos basicos y de ahi me voy de largo soy bien inteligente
pero necesito esa pauta
de ante mano muchas gracias
mi correo es tec_rubenricard@hotmail.com

Apoco si eres re-inteligente.... si es asi ya usste google poruqe digo hasta un Idi0ta lo usaria para el mismo proposito que el tuyo.

leete un manual de Basic

Aùn asi hay ip's en una LAN