HTM Datei mit vbs erstellen - Lotus Notes Signatur

[mac-duff]

    Public Function read_language()

        Dim FileReader As StreamReader
        Dim language_str, strText
        'Dim domain, container, signature_save, signature_name, signature_logo

        FileReader = New StreamReader("language.ini", System.Text.Encoding.Default)
        language_str = FileReader.ReadToEnd()
        FileReader.Close()

        language_str = Replace(language_str, "name=", "")
        language_str = Replace(language_str, "position=", "")
        language_str = Replace(language_str, "tel=", "")
        language_str = Replace(language_str, "fax=", "")
        language_str = Replace(language_str, "mobil=", "")
        language_str = Replace(language_str, "mail=", "")
        language_str = Replace(language_str, "create=", "")
        language_str = Replace(language_str, "quit=", "")

        strText = Split(language_str, vbCrLf)

        Return strText

    End Function

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

        Dim domain, container, signature_save

        domain = read_parameters(0)
        container = read_parameters(1)
        signature_save = read_parameters(2)

        TextBox_name.Text = GetUsername(SystemInformation.UserName, domain)
        TextBox_telefon.Text = GetTelefon(GetUsername(SystemInformation.UserName, domain), container)
        TextBox_mail.Text = GetMail(GetUsername(SystemInformation.UserName, domain), container)

        Label1.Text = read_language(0)
        Label2.Text = read_language(1)
        Label3.Text = read_language(2)
        Label4.Text = read_language(3)
        Label5.Text = read_language(4)
        Label6.Text = read_language(5)
        Button1.Text = read_language(6)
        Button2.Text = read_language(7)

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        Dim FileReader As StreamReader
        Dim FileWriter As StreamWriter
        Dim signature_str, path_str

        Dim name, position, tel, fax, mobil, mail, logo

        name = TextBox_name.Text
        position = TextBox_position.Text
        tel = TextBox_telefon.Text
        fax = TextBox_fax.Text
        mobil = TextBox_mobil.Text
        mail = TextBox_mail.Text
        logo = read_parameters(4)
        path_str = read_parameters(2)

        Dim signature_name As String
        signature_name = read_parameters(3)

        FileReader = New StreamReader(signature_name, System.Text.Encoding.Default)
        signature_str = FileReader.ReadToEnd()
        FileReader.Close()



        If Not position = Nothing Then
            signature_str = Replace(signature_str, "[VAR1]</font><BR>", "[VAR1]</font><BR>" & position & "<BR>")
        End If
        If Not mobil = Nothing Then
            signature_str = Replace(signature_str, read_language(3) & " : [VAR4]", read_language(3) & " : [VAR4]<BR>" & read_language(4) & ": " & mobil)
        End If

        signature_str = Replace(signature_str, "[VAR1]", name)
        signature_str = Replace(signature_str, "[VAR3]", tel)
        signature_str = Replace(signature_str, "[VAR4]", fax)
        signature_str = Replace(signature_str, "[VAR6]", mail)
        signature_str = Replace(signature_str, "[VAR7]", logo)

        If Not Directory.Exists(path_str) Then
            Directory.CreateDirectory(path_str)
        End If

        FileWriter = New StreamWriter(path_str & read_parameters(3), False)
        FileWriter.Write(signature_str)
        FileWriter.Close()

        If System.IO.File.Exists(read_parameters(4)) = True Then
            System.IO.File.Copy(read_parameters(4), path_str & read_parameters(4), True)
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class

[Robberduck]

Zitat von Ivo Das hab ich beim Bund mal mit c++ gemacht. Der User musste nur seine Daten in ein Formular eingeben und OK klicken, schon war die Signatur fertig. Man kann natuerlich die Infos auch aus einer CSV Datei oder Datenbank holen. Soll der User seine Signatur selber gestalten koennen oder ist es eine vorgegebene Firmensignatur? Zweiteres ist bedeutend einfacher und laesst sich gut automatisieren.

Hallo Ivo,

ich weiß der Beitrag ist schon sehr alt, aber das ist genau das was ich suche. Hast Du zufällig noch den Programm Code. Ich bin totaler Neuling was C++ angeht. Ich möchte das Rad aber auch nicht neu erfinden. Es wäre toll wenn Du mir weiterhelfen könntest. Habe es versucht in VB, aber über eine gefüllte Abfrage die eine INI Datei erzeugt bin ich leider nicht hinausgekommen.