Re: Problem mit DIR Funktion

2017-02-02 Diskussionsfäden Horst 

Danke,
auf den Dannenhöfer hätte ich auch kommen können :-[

Horst

Am 02.02.2017 um 20:30 schrieb Oliver Brinzing:
versuch mal den Zugriff mit dem Service 
"com.sun.star.ucb.SimpleFileAccess"
z.B. 
http://www.dannenhoefer.de/faqstarbasic/WiekannmandieDateienineinemOrdnerunddenU.html



-
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org

Re: Problem mit DIR Funktion

2017-02-02 Diskussionsfäden Oliver Brinzing 

versuch mal den Zugriff mit dem Service "com.sun.star.ucb.SimpleFileAccess"
z.B. 
http://www.dannenhoefer.de/faqstarbasic/WiekannmandieDateienineinemOrdnerunddenU.html

Am 02.02.2017 um 08:56 schrieb technik_...@jrsch.de:

Hier das Makro:

sub test
REM zeigt alle Verzeichnisse
Dim sPath As String
Dim sDir as String, sValue as String
sDir="Verzeichnisse:"
PathSeparator="/"
sPath = ConverttoURL("G:")
datei1=sPath + PathSeparator + "*.*"
sValue = Dir$(datei1,1)

Do
If sValue <> "." and sValue <> ".." Then
afile=sPath + PathSeparator + sValue


sattr=GetAttr( sPath + PathSeparator + sValue)
sattr2 = (sattr AND 16)
iNumber = Freefile

if (sattr2) >0 then
REM hier die Verzeichnisse holen
sDir = sDir & chr(13) & sValue
End If
End If
sValue = Dir$
Loop Until sValue = ""
MsgBox sDir,0,sPath

end sub


Am 02.02.2017 um 08:54 schrieb technik_...@jrsch.de:

Hallo,

irgend etwas scheint mit der DIR Funktion bei den Makros nicht zu stimmen:

Die Funktion, so wie sie in der Hilfe steht scheitert an "getPathSepararor" Das 
habe ich repariert
und eine Variable mit dem Wert "/" da eingesetzt. Das funktioniert für normale 
Dateien, aber nicht
für Verzeichnisse. (Attrib Parameter =0)

Ich habe das Muster umgeschrieben zum Debuggen und stelle fest, dass mit dem 
Attrib Parameter = 16
nur
$RECYCLE.BIN
.Trash-1000
gefunden wird.
nicht die anderen Verzeichnisse.

Was läuft da schief?

Horst

-
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org




-
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org





-
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org

Re: Fehler auf der Foren und Newsgroups Webseite

2017-02-02 Diskussionsfäden Günter Feierabend 
Hallo Erwin,

> Am 02.02.2017 um 13:08 schrieb Erwin Farrensteiner :
> 
> Hallo,
> 
> ich habe mehrere Jahre lang Ihr Schreibprogramm. Ich benutze es nur für 
> einfaches Schreiben. Bisher für meine wenigen Benutzungen sehr vorzüglich.
> Jetzt aber habe ich ein Problem, denn nach dem letzten Wort kommt nur eine 
> „Leertaste“. Das heisst, links der „Briefkopf)“, dann nach rechts zum Ort mit 
> Datum geht nicht.

Du beschreibst Dein Problem nur spärlich, deswegen kann man schlecht raten. Ich 
vermute, Du willst, dass der Schreibcursor (das blinkende Senkrechtstrichlein) 
zu einer vorgegebenen Position am rechten Rand springt. Dazu musst Du dort 
zuvor einen rechtsbündigen Tabulator gesetzt haben, den Du dann durch das 
Benutzen der Tabulatortaste erreichst. Wie dieses Setzen von Tabulatoren 
gemacht wird, findest Du ausführlich in der eingebauten Hilfe von OpenOffice 
beschrieben. Einfach im Menü aufrufen und den Suchbegriff „Tabulator“ eingeben.

> Die Leertaste rückt nur einmal weiter.

Das ist auch genau so gewünscht.

> Hoffentlich können Sie mir helfen. Übrigens, bei E-Mail wie diese, keine 
> Beanstandung. Hat wohl auch nichts mit Ihrem 
> Schreibprogramm zu tun.

Richtig, dies macht ein anderes Programm.

Grüße
Günter


-
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org

Fehler auf der Foren und Newsgroups Webseite

2017-02-02 Diskussionsfäden Erwin Farrensteiner 
Hallo,

ich habe mehrere Jahre lang Ihr Schreibprogramm. Ich benutze es nur für 
einfaches Schreiben. Bisher für meine wenigen Benutzungen sehr vorzüglich.
Jetzt aber habe ich ein Problem, denn nach dem letzten Wort kommt nur eine 
„Leertaste“. Das heisst, links der „Briefkopf)“, dann nach rechts zum Ort mit 
Datum geht nicht.
Die Leertaste rückt nur einmal weiter. Hoffentlich können Sie mir helfen. 
Übrigens, bei E-Mail wie diese, keine Beanstandung. Hat wohl auch nichts mit 
Ihrem 
Schreibprogramm zu tun.

Mit freundlichen Grüßen

E.Farrensteiner
-
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org

Re: Installation

2017-02-02 Diskussionsfäden Jörg Schmidt 
Hallo, 

> From: H.D. Wendland [mailto:hdw...@yahoo.de.INVALID] 

> HalloLeider verhindert Windows 10 die Installation.Wie kann 
> ich diese Behinderung umgehen?MfGH.H. Wendland

Möglicherweise so wie es die Treffer nahelegen die Google auf den Suchbegriff:

"Windows 10 blockiert Programmimstallation"

ausspuckt?

"Möglicherweise" weil ich ja nicht weiß was sich auf Deinem Rechner genau tut, 
da Du es uns nicht verrätst.


Gruß
Jörg


-
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org

Re: .odt Dateien defekt, werden als .txt angesehen

2017-02-02 Diskussionsfäden Jörg Schmidt 
Hallo, 

> From: technik_...@jrsch.de [mailto:technik_...@jrsch.de] 

> sieht schlecht aus. Es waren odt Dateien, jetzt fängt die 
> Testdatei mit 
> 24 B4 an. Außerdem ist sie zu klein für eine odt Datei. Da ist wohl 
> etliches defekt.
> 
> Gibt es eine Möglichkeit per Makro zu prüfen, ob eine Datei als odt 
> lesbar ist? 

naja, zumindest doch indem man versucht die Datei normal zu öffnen und auf 
deren Text zuzugreifen, kommt kein Fehler ist sie lesbar, kommt ein Fehler dann 
nicht. Also ungefähr so (nicht getestet):

Sub Datei_testen(Dateiadresse As String)
  On Error Goto Fehler  
  tmp = StarDesktop.loadComponentFromURL(Dateiadresse, "_blank", 0, Array())
  inhalt = tmp.Text
  Msgbox "OK, Dateizugriff möglich"
  Exit Sub

  Fehler:
  Msgbox "Datei konnte nicht gelesen werden"
End Sub

Gruß
Jörg


-
To unsubscribe, e-mail: users-de-unsubscr...@openoffice.apache.org
For additional commands, e-mail: users-de-h...@openoffice.apache.org

Installation

2017-02-02 Diskussionsfäden H.D. Wendland 
HalloLeider verhindert Windows 10 die Installation.Wie kann ich diese 
Behinderung umgehen?MfGH.H. Wendland