Wert in txt schreiben

  • VBScript

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von TheFalcon.

    Wert in txt schreiben

    Hallo zusammen,

    ich habe schon einiges durchforstet aber nicht das richtige gefunden. Vielleicht könnt ihr mir dabei helfen:

    In diesem Programm gibt es 2 Buttons und ein Auswahlmenü, wenn im Auswahlfenster Bereich 1 gewählt ist soll in eine txt Datei z.B. auf Laufwerk C erstellt werden mit dem inhalt 0001 wenn Bereich 2 gewählt ist soll 0002 drin stehen usw.

    Wenn ich auf den 2 Button klicke soll er in die Txt Datei "OK" reinschreiben.

    Ist das überhaupt möglich?

    Gruss

    Alex


    Visual Basic-Quellcode

    1. <html>
    2. <head>
    3. <title>Alarm ©</title>
    4. <HTA:APPLICATION
    5. APPLICATIONNAME="Dialog"
    6. ID="Dialog"
    7. VERSION="1.0"
    8. BORDER="dialog"
    9. INNERBORDER="no"
    10. MAXIMIZEBUTTON="no"
    11. MINIMIZEBUTTON="no"
    12. SCROLL="no"
    13. SCROLLFLAT="yes"
    14. CONTEXTMENU="no"
    15. ICON="no"
    16. SELECTION="no"/>
    17. </head>
    18. <script language="VBScript">
    19. Dim txtBeschreibung
    20. Dim txtAuswahl
    21. Dim txtAuswahl1
    23. Sub Window_OnLoad
    24. window.resizeTo 270,390
    25. End Sub
    27. Sub OnClickButtonbtnnOK()
    28. if comboParts.value = "" then
    29. msgbox "Es sind nicht alle Felder ausgefüllt"
    30. else
    31. SMSmatalarm
    33. End if
    34. End Sub
    36. Sub OnClickButtonbtnOK()
    37. if comboParts.value = "" then
    38. msgbox "Es sind nicht alle Felder ausgefüllt"
    39. else
    40. SMSmatalarm
    41. Window.Close
    42. End if
    43. End Sub
    45. Function GetAuswahlRadioValue()
    46. For i=0 to Auswahl.length-1
    47. If Auswahl.Item(i).Checked Then
    48. GetAuswahlRadioValue = Auswahl.Item(i).Value
    50. Exit Function
    51. End If
    52. Next
    53. GetAuswahlRadioValue = ""
    54. End Function
    56. Function GetAuswahl1RadioValue()
    57. For i=0 to Auswahl1.length-1
    58. If Auswahl1.Item(i).Checked Then
    59. GetAuswahl1RadioValue = Auswahl1.Item(i).Value
    60. Exit Function
    61. End If
    62. Next
    63. GetAuswahl1RadioValue = ""
    65. End Function
    67. Sub SMSmatalarm()
    69. Dim strSupportEMail
    71. ' Betreffzeile (Zwischen den "" werden 'E-Mail Adressen eingetragen, bei mehreren wird durch , getrennt)
    72. strSupportEMail = Array("max.mustermann.de")
    73. Dim notesdb
    74. Dim notesdoc
    75. Dim notesrtf
    76. Dim notessession
    77. Set notessession = CreateObject("Notes.Notessession")
    78. Set notesdb = notessession.getdatabase("", "")
    79. Call notesdb.openmail
    81. ' Mail erstellen
    83. Set notesdoc = notesdb.createdocument
    84. Call notesdoc.replaceitemvalue("Sendto", strSupportEMail)
    87. Call notesdoc.replaceitemvalue("Subject", comboParts.value)
    89. Set notesrtf = notesdoc.createrichtextitem("body")
    91. ' Email Text
    92. Call
    93. notesrtf.appendtext("Fehlteil: " & txtBeschreibung & vbNewLine
    94. & vbNewLine & "Dringlichkeit: " & txtAuswahl)
    96. ' Mail senden und Hinweis
    97. Call notesdoc.Send(False)
    98. Set notessession = Nothing
    99. MsgBox "Q-Alarm wurde ausgelöst"
    100. End Sub
    101. </script>
    102. <body bgcolor="#ADD8E6">
    103. <div style="margin:10px auto; text-align: center">
    104. <h3 style="font-size:12pt; align="center"; margin-bottom:0">Alarmauslöser</h3>
    105. <p>Bereich<br/>
    106. <div style="margin:10px auto; text-align: center"><select name="comboParts" id="comboParts">
    107. <option value=""></option>
    108. <option value="Bereich 1">Bereich 1</option>
    109. <option value="Bereich 2">Bereich 2</option>
    110. <option value="Bereich 3">Bereich 3</option>
    111. </select>
    112. <div
    113. style="margin:10px auto; text-align: center"><input type="button"
    114. name="btnnOK" id="btnnOK" value="Alarm auslösen"
    115. onclick="OnClickButtonbtnnOK"></div><div style="margin:10px
    116. auto; text-align: center"><input type="button" name="btnOK"
    117. id="btnOK" value="Alarm Deaktivieren"
    118. onclick="OnClickButtonbtnOK"></div>
    119. <h3 style="font-size:8pt; margin-bottom:0">Infos</h3>
    120. </body>
    121. </html>

    Edit by Manschula: Thema verschoben

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Manschula“ ()

    Jetzt sehe ich gerade, das ist nicht mal VB6, sondern VBScript, du hast im falschen Unterforum gepostet.

    Ich werde gleich den Beitrag melden, damit er in richtiges Unterforum verschoben wird. Dann kriegst du eher Hilfe, als wenn du das unter VB.NET postest.