OpenOffice.info

Sub main()
Dim sInput As String
Dim sGe_date As String
sInput = "06-28-2012"
ersatz ="12"
mid(sInput, 4, 2,ersatz)
msgbox sInput
End Sub

Hallo Karolus,

- es ist eben KEINE Funktion, sondern eine Anweisung.

Es steht in der Hilfe:
[quote]Mid-Funktion, Mid-Anweisung [Laufzeit]
Gibt den angegebenen Teil eines Zeichenkettenausdrucks zurück (Mid-Funktion) oder ersetzt ihn durch eine andere Zeichenkette (Mid-Anweisung).[/quote]

Left und right sind beides Funktionen, aber keine Anweisungen, deren Kombinationen ich bisher als mid-Ersatz genommen habe; daher auch das Mißverstehen der Hilfe.

so funktionierts, wie ich das Ergebnis haben wollte:

[code]Sub main()
Dim sInput As String
Dim sGe_date As String
sInput = "06-28-2012"
ersatz ="12"
mid(sInput, 4, 2,ersatz)
msgbox sInput
End Sub[/code]

gruß
sven-my

Hallo
[quote="sven-my"]
Auf diesen Trichter wäre ich nie gekommen, obwohl im [b]Nachhinein[/b] logisch.
[/quote]
Nein, logisch ist das nicht - das ist sehr merkwürdig daß eine Funktion ein [b]Argument verändert[/b] aber nichts zurückgibt.

Karo

Herzlichen Dank Winfried !

Auf diesen Trichter wäre ich nie gekommen, obwohl im [b]Nachhinein[/b] logisch.

gruß
sven-my

[quote]oder ersetzt ihn durch eine andere Zeichenkette (Mid-Anweisung)[/quote]

Du nutzt die Anweisung, lasse Dir [color=#008000]sInput[/color] nach dem Aufruf anzeigen - dort ist die Zeichenkette ersetzt.


Das hilft Dir weiter?

Sub main
Dim sInput As String
Dim sGe_date As String
sInput = "06-28-2012"
ersatz = "99"
sGe_date = mid(sInput, 4, 2,ersatz)
MsgBox sGe_date
End Sub

Hallo Experten,

in der Hilfe der AOO3.4 zu Basic/Runtime -> mid- Funktion/Anweisung steht:

[quote][b]Mid-Funktion, Mid-Anweisung [Laufzeit][/b]
Gibt den angegebenen Teil eines Zeichenkettenausdrucks zurück (Mid-Funktion) oder ersetzt ihn durch eine andere Zeichenkette (Mid-Anweisung).
[b]Syntax:[/b]
Mid (Text As String, Anfang As Integer [, Laenge As Integer]) oder Mid (Text As String, Anfang As Integer , Laenge As Integer, Text As String)
[b]Rückgabewert:[/b]
String (only by Function)
[b]Parameter:[/b]
Text: Ein beliebiger Zeichenkettenausdruck, den Sie bearbeiten möchten.
Anfang: Integer-Ausdruck, der die Zeichenposition in der Zeichenkette angibt, an welcher der zu ersetzende oder zurückzugebende Zeichenkettenabschnitt anfängt.
Laenge: Integer-Ausdruck, der die Anzahl der Zeichen angibt, die Sie ersetzen oder zurückgeben möchten.
Entfällt bei der Mid-Funktion die Angabe zu length, werden alle Zeichen ab der angegebenen Position bis zum letzten Zeichen der Zeichenfolge ermittelt.
Ist der Längenparameter der Mid-Anweisung kleiner als die Länge des zu ersetzenden Textes, so wird der Text auf die angegebene Länge gekürzt.
Text: Die Zeichenkette, durch die der Zeichenkettenabschnitt ersetzt werden soll (Mid-Anweisung).[/quote]


So funktioniert es nicht (abgewandeltes Beispiel aus der Hilfe):
[code]Sub main
Dim sInput As String
Dim sGe_date As String
sInput = "06-28-2012"
ersatz = "99"
sGe_date = mid(sInput, 4, 2,ersatz)
MsgBox sGe_date
End Sub[/code]

Was habe ich in der Hilfe falsch verstanden, wenn ich dies zurück haben möchte: "06-99-2012", es kommt aber nur ein leerer String zurück ?
Verstanden habe ich, daß das Ersetzen eine Anweisung ist, und es bei einer Anweisung [u]keinen[/u] String zurück gibt, wie bekomme ich also den geänderten String ?

gruß
sven-my