[gelöst] ReadSourceDirectory aus der Bibliothek Gimmicks geht nicht

[Basilisk]

Es findet die FileNameoutofPath-Funktion nicht.

ReadSourceDirectory-fehler-03-07-2024.png (148.67 KiB) 2878 mal betrachtet

Ich habe die Bibliothek mit GlobalScope.BasicLibraries.LoadLibrary("Gimmicks") geladen. Als ich gestern ein kleines Testprogramm erstellte, um festzustellen, was ReadSourceDirectory eigentlich genau zurückliefert*, ging noch alles problemlos. Erst seit heute tritt der Fehler auf.

*Spoiler: ein zweidimensionales Feld, das rekursiv alle Unterverzeichnisenamen und Dateinamen aus dem Verzeichnis enthält dessen Name in der Variablen Source übergeben wurde und zwar voll qualifiziert in URL-Notation in der ersten Spalte und kurz in der zweiten Spalte

[karolus]

Hallo
Super! Jetzt wissen wir daß du schon Screenshots kannst, wäre aber nicht nötig gewesen, viel freundlicher ist da simples copy&paste des Quelltexts!
Danke!

[Basilisk]

... viel freundlicher ist da simples copy&paste des Quelltexts!

Der Quelltext von was? Von ReadSourceDirectory? Ich dachte, der wäre bei jeder Libreofficeinstallation dabei. Das ist auch der Grund, warum ich ihn verwenden will. Ist das nicht so?

[karolus]

... viel freundlicher ist da simples copy&paste des Quelltexts!

Der Quelltext von was? Von ReadSourceDirectory? Ich dachte, der wäre bei jeder Libreofficeinstallation dabei. Das ist auch der Grund, warum ich ihn verwenden will. Ist das nicht so?

Nee… DEINEN Quelltext… oder führst du etwa direkt »ReadSourceDirectory« aus der BasicIDE aus??

[Basilisk]

Nee… DEINEN Quelltext… oder führst du etwa direkt »ReadSourceDirectory« aus der BasicIDE aus??

Es ist wie gesagt nur ein Testprogramm und darin tritt kein Fehler auf

Code: Alles auswählen

Sub SuspiciousFiles(Optional vObject as Variant)
Dim vasFiles As Variant 
Dim sDir As String
GlobalScope.BasicLibraries.LoadLibrary("Gimmicks")
sDir = "/home/gh2425/bin"
Dim oFP as Object
oFP = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
vasFiles = ReadSourceDirectory(sDir)
MsgBox CStr(LBound(vasFiles,1))
End Sub

NB: Ich weiß, dass 1 der Defaultwert bei LBound ist. Das steht da, um mich zu erinnern. Der Filepicker tut absichtlich derzeit noch nichts.

[karolus]

Hallo

NB: Ich weiß, dass 1 der Defaultwert bei LBound ist. Das steht da, um mich zu erinnern.

Die msgbox behauptet bei mir 0 wäre der Defaultwert, und nicht 1, ansonsten hilfts ja jetzt niemanden wenn du Code zeigst der funktioniert!

wenn ich jetzt mal wild raten darf… …?

GESTERN hast du einen Beobachter (F7) auf die variable »vasfiles« gesetzt und bist im Einzelschrittmodus durch deinen Code durchgehoppelt??

[Basilisk]

NB: Ich weiß, dass 1 der Defaultwert bei LBound ist. Das steht da, um mich zu erinnern.

Die msgbox behauptet bei mir 0 wäre der Defaultwert, und nicht 1, ...

Die MsgBox behauptet etwas über LBound? Ich meine das hier

Wird kein Wert angegeben, so wird standardmäßig die erste Dimension betrachtet.

ansonsten hilfts ja jetzt niemanden wenn du Code zeigst der funktioniert!

Das war mein ursprünglicher Gedanke. Mein Code funktioniert, also brauche ich ihn nicht zu zeigen.

wenn ich jetzt mal wild raten darf… …?

Mir bliebe auch nichts anders.

GESTERN hast du einen Beobachter (F7) auf die variable »vasfiles« gesetzt und bist im Einzelschrittmodus durch deinen Code durchgehoppelt??

Leider nein. Gestern war mein Code auch noch komplexer, weil ich wie gesagt rausfinden wollte, wie der Rückgabewert zusammengesetzt ist.

[Basilisk]

Ich habe jetzt an ganz anderen Dingen rumgebastelt und jetzt funktioniert es

Auch das

Code: Alles auswählen

Sub SuspiciousFiles(Optional vObject as Variant)
Dim vasFiles As Variant 
Dim sDir As String
GlobalScope.BasicLibraries.LoadLibrary("Gimmicks")
sDir = "/home/gh2425/bin"
Dim oFP as Object
oFP = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
vasFiles = ReadSourceDirectory(sDir)
Dim lLBound As Long, lUBound As Long, lCount As Long
lLBound = LBound(vasFiles, 1)
lUBound = UBound(vasFiles, 1)
For lCount = lLBound To IIf (lUBound < 3, lUBound, 3)
	MsgBox vasFiles(lCount, 1)
Next lCount
End Sub

[Basilisk]

Ich habe jetzt an ganz anderen Dingen rumgebastelt und jetzt funktioniert es

Auch das

Code: Alles auswählen

Sub SuspiciousFiles(Optional vObject as Variant)
Dim vasFiles As Variant 
Dim sDir As String
GlobalScope.BasicLibraries.LoadLibrary("Gimmicks")
sDir = "/home/gh2425/bin"
Dim oFP as Object
oFP = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
vasFiles = ReadSourceDirectory(sDir)
Dim lLBound As Long, lUBound As Long, lCount As Long
lLBound = LBound(vasFiles, 1)
lUBound = UBound(vasFiles, 1)
For lCount = lLBound To IIf (lUBound < 3, lUBound, 3)
	MsgBox vasFiles(lCount, 1)
Next lCount
End Sub

Ich habe LibreOffice geschlossen, die Datei wieder geöffnet und jetzt tritt wieder der Fehler auf.

Jetzt habe ich die Zeile

Code: Alles auswählen

GlobalScope.BasicLibraries.LoadLibrary("Tools")

eingefügt und die Reparatur übersteht auch einen Neustart. Die Funktion war wohl nicht für externe aufrufe gedacht.

Danke.

[karolus]

Hatte ich schon den entsprechenden Code in python gezeigt?

Code: Alles auswählen

from pathlib import Path

basedir = Path.home() / "Documents"
list( basedir.glob("**/*"))