Suche nach Datei "*test*.*" und in Zelle A1 ausgeben

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Suche nach Datei "*test*.*" und in Zelle A1 ausgeben

Beitrag von Stephan »

z.B. kannst Du eine benutzerdefinierte Funktion mit DIr() schreiben, beispielsweise ungefähr so

Code: Alles auswählen

Function MeineSuche(Suchbegriff As String, Verzeichnis As String) As String
sPath = ConvertToURL(Verzeichnis)
sValue = Dir$(sPath & Suchbegriff, 0)
Do
	If sValue <> "." and sValue <> ".." and sValue <> "" Then
		MeineSuche = sValue 'nur erstes Ergebnis
		Exit Function
	End If
Loop Until sValue = ""
End Function
und in der Zelle so verwenden:

=WENN(MEINESUCHE("*Test*.*";"D:\")<>"";MEINESUCHE("*Test*.*";"D:\");"kein Datei")


Gruß
Stephan
Stephan
********
Beiträge: 12369
Registriert: Mi, 30.06.2004 19:36
Wohnort: nahe Berlin

Re: Suche nach Datei "*test*.*" und in Zelle A1 ausgeben

Beitrag von Stephan »

Wenn ich dann das Markro ausführe bekomme ich die Fehlermeldung:

BASIC-Syntaxfehler.
Function innerhalb einer Prozedur unzulässig.

Was mache ich Falsch?
Mutmaßlich genau das was in der Fehlermeldung steht. Also die Function steht zwischen einem Sub ... und einem End Sub.

Im Übrigen musst Du kein Makro ausführen sondern nur eine benutzerdefinierte Funktion per Formel aufrufen, so wie in angehängter Datei in Zelle A1.


Gruß
Stephan
Dateianhänge
Function-test.ods
(8.92 KiB) 100-mal heruntergeladen
Benutzeravatar
lorbass
********
Beiträge: 4116
Registriert: Mo, 01.05.2006 21:29
Wohnort: Bonn

Re: Suche nach Datei "*test*.*" und in Zelle A1 ausgeben

Beitrag von lorbass »

M8Trix75 hat geschrieben: Di, 07.11.2017 22:13 Kann man den Pfad weglassen?
Ich meine das er immer den Pfad nimmt in den auch die Datei liegt?
Ist es nicht einfacher (und schneller), wenn du das einfach mal ausprobierst?

Gruß
lorbass
Antworten