Mensajes

Ya puse lo de enviar la cuenta por E-Mails los animo a que bajen la nueva version

Skeletron selecciona todas las carpetas en el renombrador masivo y pon que todos los archivos cambien sus iniciales por Mayuscula y ya.

Es sencillo

otra cosa xD

Como haria para que si el user vuelve a escribir algo o escribe lo mismo sobreescriba el contenido de ese Text? o si no se puede que sobreescriba el archivo.txt?


---------------------------------------------------

Ya lo Resolvi

Ok Los reviso y les digo

----------EDITO----------

Gracias me funciono perfecto Xtriker 

Gracias

y tambien necesito un code que sirva para, sobreescribir  el texto que este escrito, no que lo escriba en una linea nueva.

El que tengo arriba escribe en la misma linea pero al lado necesito que lo sobreescriba aparte tambien lo del cuadrito ese Gracias.

Ayudenme Por Fa!

Tengo un problema con un Fucking archivo de Texto.

Lo que pasa es que al guardarlo con un boton simple nada de SaveFileDialogs, lo guarda perfecto pero a la hora de leerlos los lee con un cuadrito blanco.



-----------EDITO-----------

Me acabo de fijar que pone el cuadrito es porque deja un espacio abajo osea como cuando damos un enter.

y si lo borro se quita y no pasa mas, pero cuando otro user guarde ese texto le va a pasar lo mismo entonces como hago para que no me quede ese espacio?

este es el code para los tres textbox

Código (vbnet) [Seleccionar] Expandir

        FileOpen(1, "C:\windows\smtp1.txt", OpenMode.Append)
        PrintLine(1, TextBox1.Text)
        FileClose(1)
        FileOpen(1, "C:\windows\smtp2.txt", OpenMode.Append)
        PrintLine(1, TextBox2.Text)
        FileClose(1)
        FileOpen(1, "C:\windows\smtp3.txt", OpenMode.Append)
        PrintLine(1, TextBox3.Text)
        FileClose(1)
        Me.Hide()

y para leerlos

Código (vbnet) [Seleccionar] Expandir

Dim largo As Integer
        Dim texto As String
        Dim SPath As String = "c:\windows\smtp1.txt"
        Dim SPath2 As String = "c:\windows\smtp2.txt"
        Dim SPath3 As String = "c:\windows\smtp3.txt"
        Dim sContent As String = vbNullString
        With My.Computer.FileSystem
            If .FileExists(SPath) Then
                FileOpen(1, "c:\windows\smtp1.txt", OpenMode.Input)
                largo = FileLen("c:\windows\smtp1.txt")
                texto = InputString(1, largo)
                FileClose(1)
                TextBox1.Text = texto
            End If
            If .FileExists(SPath2) Then
                FileOpen(1, "c:\windows\smtp2.txt", OpenMode.Input)
                largo = FileLen("c:\windows\smtp2.txt")
                texto = InputString(1, largo)
                FileClose(1)
                TextBox2.Text = texto
            End If
            If .FileExists(SPath3) Then
                FileOpen(1, "c:\windows\smtp3.txt", OpenMode.Input)
                largo = FileLen("c:\windows\smtp3.txt")
                texto = InputString(1, largo)
                FileClose(1)
                TextBox3.Text = texto
            End If

Yo habia echo uno que se logueaba antes pero era mucho rollo por las apis y lo hice en el vb 6 asi que aqui no tengo la mas minima idea jajaja.

Ahorita se lo pongo xD

Busca un renombrador masivo de contenidos de texto y cambia todas las iniciales por Mayuscula  lol