Mensajes

  siiii graciassss  hahahahahahah sos el mejor ahora mismo lo pruebo !!!!

Hola a todos de ElHacker como estan bueno he trabjado en un proyecto la cual me permite registrar varios usuarios y iniciar sección a diferentes forms bueno trabajo con .Net vb 2008 , por otros lados pregunte y me dijeron que mediante dll podria hacerlo pero no me dieron mas explicaciones por eso es que lo pongo aqui porque se que me van a ayudar xD

Bueno Caracteristicas del DLL

Que e el se guarden los datos de varios usuario que se registren y cuando los soliciten esten hay

que al iniciar sesion solicite los datos y abra espesificamente los datos de este usuruaio..

Espero que me puedan ayudar !!

[Hola a spiritdead y a seba123neo gracias por ayudarme lo mas que puedan pero he probado en los nuevos code de Spirit y me sale el sig error les he tirado varias capturas para que haci tengas mas la idea de lo que me pasa]

Hola a spiritdead y a seba123neo gracias por ayudarme lo mas que puedan pero he probado en los nuevos code de Spirit y me sale el sig error les he tirado varias capturas para que haci tengas mas la idea de lo que me pasa

Capturas

[Para agregar y guardar en un archivo txt los items de un list box es este]

Bueno seba123neo  y spiritdead estos son los codes que tengo


Para agregar y guardar en un archivo txt los items de un list box es este :

Código [Seleccionar] Expandir

ListBox1.Items.Add(TextBox1.Text)

        Dim Saveval As Integer = 1
        Dim Listpath As String = "C:\Documents and Settings\Administrador\Mis documentos\Downloader X\" & "Historial de Links Introducidos" & ".txt"
        Saveval = Saveval + 1
        For i = 0 To ListBox1.Items.Count - 1
            Form2.ListBox1.SetSelected(i, True)
            Dim Listwrite As System.IO.StreamWriter
            Listwrite = My.Computer.FileSystem. _
            OpenTextFileWriter(Listpath, True)
            Listwrite.WriteLine(ListBox1.Items(i))
            Listwrite.Close()
        Next

Y estos para cargar los datos otra vez al list box :

Código [Seleccionar] Expandir


If ListBox1.Text.Contains("") Then

            ListBox1.Text.Replace("", "")

        End If

        Dim Archivo$ = "C:\Documents and Settings\Administrador\Mis documentos\Downloader X\" & "Historial de Links Introducidos" & ".txt"
        Dim FF% = FreeFile()
        FileOpen(FF, Archivo, OpenMode.Input)
        Do While Not EOF(FF) 'Leerá lineas hasta que termine el archivo
            ListBox1.Items.Add(LineInput(FF)) 'Agregara Linea Actual leida al ListBox (Lineinput es un sistema que lee linea por linea un archivo)

        Loop
        FileClose(FF)


        On Error GoTo fallo



fallo:
       
        Me.Refresh()

        Exit Sub

        Resume

seba123neo eres mi idolo gracias de corazon gracias a este foro por ser de mucha ayuda ! si pudiera darte puntos te dira muchos ahora mismo gracias

podrias hacer

Código [Seleccionar] Expandir


listbox1.text.replace("","")

un simple remplazo o separarlo con split("") y el index q contenga dicho caracter eliminarle y rearmar despues, existen muchas formas realmente

Hola amigo bueno he probado el code pero no me funciona pero de todos modos gracias

Hola sprirtdead como estas gracias por responder bueno ahora mismo pruebo el code tullo aver si me funciona gracias

[Contains]

el tema es que usando Contains estas buscando en la palabra entera, y puede fallar facilmente si tengo esto por ejemplo, un archivo que se llame asi:

hola.mp3.mp4

si pregunto si es "mp3", me va a decir que SI simplemente porque la palabra contiene la palabra "mp3", pero en realidad es extension "mp4".

para traer realmente la extension real se usa esto:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox(IO.Path.GetExtension("miarchivomp3.mp4"))
    End Sub
End Class


saludos.

Hola amigo como estas probre tu code pero no me resulto , bueno el problema esta en que cuando escrbo cualquier cosa me aparece un mensaje de que si es .mp4 pero eso no es lo que quiero lo que quiero es que cuando escriba cialquier cosa pues me diga que no es corecto al menos que tenga las ultimas palabras .mp3 o .mp4


En vb.NET hay una variable que dice StartWith que esta es para decir que si el texto no empiesa con lo que se pone en la variable no sucedera nada bueno eso es lo que quiero pero en ves de que empiese , que termine con xxx frase

Si amigo lo guardo con extensión txt pero que deberia hacer cambiarle el code a UFT-8 ???

Hola seba123neo si eso me paso pero agradeci a $Edu$ por su gran ayuda aver probare tu code para ver si me funciona gracias por adelantado