[LW-RELEASE]Dif-File Creator

[Mr. 'Avenue™]

Nein, bin kein Thanks/posthunter.
Ihr müsst mir keine Thanks geben, davon kann ich mir nicht mal ne Schnur kaufen.

Ich habe das Programm eben erstellt, da ich dieses ständige 'neue Datei erstellen, speichern als...' satt habe.

Viel Spaß damit.

Alte Version

 Spoiler

Screenshot:


geschrieben in vb2012.

0/47

Neue Version:


geschrieben in vb2012.

1/47

Source:

Imports System.IO

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        If RichTextBox1.Text = "" Then
            MsgBox("Du kannst keine leere Dif-File erstellen!", MsgBoxStyle.Critical)
        End If
        Dim dateityp As String
        If rd_dif.Checked = True Then
            dateityp = ".dif"
        ElseIf rd_lua.Checked = True Then
            dateityp = ".lua"
        ElseIf rd_quest.Checked = True Then
            dateityp = ".quest"
        ElseIf rd_py.Checked = True Then
            dateityp = ".py"
        ElseIf rd_self.Checked = True Then
            If TextBox2.Text = "" Then
                MsgBox("Du kannst keine Datei ohne Endung erstellen!", MsgBoxStyle.Critical)
            Else
                dateityp = "." & TextBox2.Text
            End If
        End If
        Dim dateicreator As System.IO.StreamWriter
        If TextBox1.Text = "" Then
            dateicreator = New StreamWriter("Unbenannt" & dateityp)
        Else
            dateicreator = New StreamWriter(TextBox1.Text & dateityp)
        End If
        dateicreator.Write(RichTextBox1.Text)
        dateicreator.Close()
    End Sub
End Class

Special Thanks:
▷....'zαƦ αятυя'. ...◁
.DS|チーク(Cheek)
.DaRiel OG ilona
Xilent
.HC'Hades [Der Sucukerfinder aus dem Habboland]
๖ッ|zαƦ|.Λze'«๖
Prince
weil alle in konfi :'<

[Red Firestar]

Danke für deine Arbeit und danke das du es mit uns Teilst brauch ich zwar nicht aber danke.

[MrLibya]

I Have Another One Just Create File.dif
It's The Same Thing ?

[Lord iRemix]

Finde, gehört in den Sammelthread.
Mehr als den Textbox-Inhalt in einer .dif-Datei zu speichern macht es ja nicht.

Gibt es außerdem schon.

Lg

[*~.ιηνιη¢ιвℓє.~*]

Hast du fein gemacht broo <3

[Mr. 'Avenue™]

Originally Posted by MrLibya

I Have Another One Just Create File.dif
It's The Same Thing ?

In this Creator, you can specify the file name and specify a content itself.

And if you do not specify a filename, the file is called 'Unbenannt.dif'
Furthermore, one must not here. 'Diffuse' specify the file name, only the file name. That. 'Dif' is automatically hung it.

sry for bad english, google translator ftw

[crusa2]

Very nice, Avenue

[#SoNiice]

Und? Wie lange hat das ganze gedauert? 2 Minuten? Oder doch vielleicht noch ein wenig schneller? :|

[.HC'iPwnage]

Nettes Ding

[sema1995]

[miguelmig]

Can you post the Source Code ?

[[R][T][L]]

Nice

[CoTzRaiZ-PaiNx]

Jup bekomme auch nen Virus.

[Mijago]

In Delphi brauch ich für die Gui ~20 sec und für den Code ~50 zum tippen :s

Es ist nun wirklich keine großartige Leistung, und mit NPP zB ist es auch kein Problem, einfach strg+N, Code einfügen und Speichern. Das sollte ja bekannt sein. Mit Notepad ist das schon nervig, ja..


oder halt
memo1.lines.SaveToFile(edit1.Text+'.dif');


Ich möchte deine Arbeit keineswegs schlecht reden!

[RandomName42]

Originally Posted by sema1995

Das ist mit Visual Basic geschrieben und die Dateien davon werden immer als Virus angezeigt.
Zum Thread, Vahap releaste wieder deine Mülltonne?