OpenOffice.info

Hallo Forum,

Das ist der Quellcode von meinem kleinen Programm.

REM ***** BASIC *****
Option Explicit

Dim sText As String
Dim sTitel As String
Dim iAntwort As Integer

Sub AntwortSonne
Dim sText As String
Dim sTitel As String
Dim sStandard As String
Dim sAntwort As String
Dim iAntwort As String
Dim Eingabe As String

sText = "Wer ist am Telefon?"
sTitel = "Telefondienst " & Date
sStandard = "Bitte Namenskürzel eingeben! - höchstens drei Zeichen!!"
sAntwort = InputBox(sText, sTitel, sStandard)
iAntwort = CStr(sAntwort)

Select Case iAntwort
Case "and"
sText = "Andreas Haupt - " & Time & " - " & Date
Case "kup"
sText = "Architekturbüro Kupczyek - (0 24 1 / 16 06 283) - " & Time & " - " & Date
Case "rur"
sText = "Rurstraße 10 - (0 24 21 / 42 83 4) - " & Time & " - " & Date
Case "bla"
sText = "Herr Blaesen aus Nideggen (0 24 27 / 60 69)- " & Time & " - " & Date
Case "nic"
sText = "Nicole Schöller - " & Time & " - " & Date
Case "win"
sText = "Herr Winter - " & Time & " - " & Date
Case "ros"
sText = "Metallbau Roßbroich - " & Time & " - " & Date
Case "fab"
sText = "Herr Faber - " & Time & " - " & Date
Case "fer"
sText = "Herr Feron - " & Time & " - " & Date

Case Else
sText = "unbekannter Teilnehmer"
End Select
MsgBox sText,0+64, sTitel

End Sub


Nach "MsgBox sText,0+64, sTitel" möchte ich den Textinhalt der INPUTBOX irgendwo speichern, um mir den Inhalt später anzusehen.

Geht das mit dem Befehl "set" Wenn ja, wie geht`der Quellcode dann weiter.

Kann mir da einer weiterhelfen.

Das wäre echt super!!!


Gruß
G.L.

knuddelmuff88 hat geschrieben:möchte ich den Textinhalt der INPUTBOX irgendwo speichern, um mir den Inhalt später anzusehen.

?
Du hast den Inhalt schon in der Variablen sAntwort.

Solange die Variable "lebt" bleibt er erhalten.
Also: definiere die Variable als GLOBAL (im Kopfteil, vor SUB), dann hast Du darauf Zugriff, solange OOo läuft.
Hilft das?

Hallo Winfried,

ich möchte den Text in einer Textdatei oder einer Tabellekalkulation speichern.

Gruß
G.L.

Ausgabe einer Variablen in einer Tabellenkalkulation:

ThisComponent.Sheets().getByName( "Tabelle1" ).getCellByPosition( 1,2 ).String = sAntwort

Ausgabe der Variablen in einem Textdokument:

oTextDokument = ThisComponent.Text
oCursor = oTextDokument.createTextCursor()
oCursor.String = sAntwort

[Code "aus'm Kopf": ungetestet]

Siehe weitere Beispiele bei Andrew oder Michael


Hilft das weiter?