makro zum speichern mit laufenden dateinamen gesucht

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: makro zum speichern mit laufenden dateinamen gesucht

klappt

von hold » Di, 31.05.2005 23:41

lieber michael - das geht - danke

makro zum speichern mit laufenden dateinamen gesucht

von ykcim » Mo, 30.05.2005 10:51

Ich sehe zwei Wege:

a. Das aktuelle Datum und die Uhrzeit anhängen.

Code: Alles auswählen

Function GetDateAsString as string
  Dim sdatum as String
  Dim szeit as String
  Dim snew1 as String
  Dim snew2 as String
  
  GlobalScope.BasicLibraries.LoadLibrary("Tools")
  sDatum=date
  sNew1=DeleteStr(sdatum,".")   
  szeit=time

  sNew2=DeleteStr(szeit,":")   
  GetDateAsString=sNew2+"_"+sNew1
end Function
Mit der Funktion kannst Du das Datum und die Uhrzeit auslesen.
Diese musst Du dann einbauen

Code: Alles auswählen

meineZeit=getdateasstring
args1(0).Value = "file:///D:/diesundas/sortieren/test"+meineZeit+".sxw"

b. Eine fortlaufende Nummer auslesen

Dazu steht hier eine Lösung:

http://www.dannenhoefer.de/faqstarbasic ... erner.html


mfg
Michael

von hold » So, 29.05.2005 23:38

Eine Möglichkeit wäre, einen kurzen festen Dateinamen zu definieren und daran Datum und Uhrzeit anzuhängen.
ja. aber wie krieg ichs hin, diesen jeweils einzigartigen dateinamen automatisch vergeben zu lassen? vielleicht gibts da ja ne ganz simple antwort?

Dateinamen

von moritz » So, 29.05.2005 20:38

Eine Möglichkeit wäre, einen kurzen festen Dateinamen zu definieren und daran Datum und Uhrzeit anzuhängen.
Moritz

makro zum speichern mit laufenden dateinamen gesucht

von hold » So, 29.05.2005 18:54

hallo. ich möchte unter OOo 1.1.4 ein makro erstellen, das eine datei (writer) schließt und unter neuem namen in einen bestimmten ordner speichert. wie sage ich dem makro, dass der dateiname jedesmal neu sein soll (laufende numerierung oä) ??
dazu muss es ja wohl wissen, welche dateinamen in dem betreffenden ordner schon vergeben sind?
bis jetzt sieht das makro so aus:
"Sub Main
End Sub
sub autosp
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///D:/diesundas/sortieren/test.sxw"
args1(1).Name = "FilterName"
args1(1).Value = "StarOffice XML (Writer)"
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())
end sub"
aber so überschreibt es eben immer wieder die gleiche datei, und das will ich ja nicht.
bin dankbar für vorschläge und hoffe die frage hier am richtigen ort zu stellen.

Nach oben