Office: (Office 2010) Hyperlink aus Memofeld extrahieren

Helfe beim Thema Hyperlink aus Memofeld extrahieren in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; ich habe es etwas umgestrickt. Code: Private Sub Befehl27_Click() Dim OpenFolder As String Dim txtLink As String txtLink = Me!txtLink OpenFolder =... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von magic1708, 11. Februar 2014.

Seite 2 von 4

MAGIC1708

magic1708

Hyperlink aus Memofeld extrahieren

ich habe es etwas umgestrickt.
Code:

Private Sub Befehl27_Click()
Dim OpenFolder As String
Dim txtLink As String

txtLink = Me!txtLink

OpenFolder = Left(txtLink, InStrRev(txtLink, "\") + InStr(Mid(txtLink, InStrRev(txtLink, "\")), " ") - 2)
Debug.Print OpenFolder
Application.FollowHyperlink OpenFolder

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ergebnis:

N:\Mainz\Projekte\LV_Bearbeitung\- Bearbeitete LV´s-\226000-226999\226096
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es fehlt also alles hinter 226096

kompletter Link:

N:\Mainz\Projekte\LV_Bearbeitung\- Bearbeitete LV´s-\226000-226999\226096 10.02.14 Neubau Studentenwohnheim, Mainz
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

magic1708, 14. Februar 2014

#16
MAXEL

Maxel

Bsp.: Pfad im Explorer

N:\Mainz\Projekte\LV_Bearbeitung\- Bearbeitete LV´s-\225000-225999\225305 09.01.14 Erweiterung FOS Umbau Bestandsgebäude Rochus Realschule, Bingen

so sieht das Memofeld aus:

N:\Mainz\Projekte\LV_Bearbeitung\- Bearbeitete LV´s-\226000-226999\226096 10.02.14 Neubau Studentenwohnheim, Mainz
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Meinst Du, das ist ein Beispiel, aus dem man genügend ableiten kann?

Maxel, 14. Februar 2014

#17
MAIKEK

maikek

Du meinst jetzt nicht wirklich, dass dies dein PFAD ist?

N:\Mainz\Projekte\LV_Bearbeitung\- Bearbeitete LV´s-\225000-225999\225305 09.01.14 Erweiterung FOS Umbau Bestandsgebäude Rochus Realschule, Bingen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn dem so sein sollte, musst du wohl eine andere Methode zum Auslesen finden (1. Linebreak?)
maike

maikek, 14. Februar 2014

#18
MAXEL

Maxel

Hyperlink aus Memofeld extrahieren

von maikek

Du meinst jetzt nicht wirklich, dass dies dein PFAD ist?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich bin mir nicht sicher.

In #10 hatte ich den Threadstarter gebeten:

Zeige uns doch bitte mal 2 bis 3 prägnante Beispiele mit dem Pfad und einigen nachfolgenden Zeichen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und das obige hat er geliefert...

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

Maxel, 14. Februar 2014

#19
MAGIC1708

magic1708

Das schreibe ich doch schon die ganze Zeit das die mein Pfad ist....

Deswegen hatte ich vorgeschlagen diesen Pfad mit Zeichen zumakieren..

ggf " Pfad " oder (PFad)

magic1708, 14. Februar 2014

#20
MAXEL

Maxel

von magic1708

Das schreibe ich doch schon die ganze Zeit das die mein Pfad ist...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und ich hatte Dich in #10 gebeten:

Zeige uns doch bitte mal 2 bis 3 prägnante Beispiele mit dem Pfad und einigen nachfolgenden Zeichen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Daraufhin hast Du uns diese Zeichenkette geliefert.

Wo sind jetzt die nachfolgenden Zeichen, damit man den Pfad extrahieren kann?

Zuletzt von einem Moderator bearbeitet: 7. Januar 2021

Maxel, 14. Februar 2014

#21
MAIKEK

maikek

Das schreibe ich doch schon die ganze Zeit das die mein Pfad ist....
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das befürchtete ich auch schon länger, ich wollte es wohl einfach nur nicht glauben *grins .

Deswegen hatte ich vorgeschlagen diesen Pfad mit Zeichen zumakieren..
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was meinst du damit? Die User, die das eingeben, sollen die Marken setzen?

maike

maikek, 14. Februar 2014

#22
MAGIC1708

magic1708

Hyperlink aus Memofeld extrahieren

AAAAHHHHH

ALso ... diese N:\.... Sind die Pfade... die sind natürlich pro Projekt unterschiedlich....

Aber egal... Da der Kollege der die Projekte bearbeitet den kompletten Pfad in dieses MEMO Feld kopiert.

Daher suche ich nur ne möglichkeit diesen Pfad zuextrahieren.

Sollte das so einfach nicht gehen... Habe ich Vorgeschlagen die Pfade in Klammern oder Anführungszeichen zusetzten...

magic1708, 14. Februar 2014

#23
MAIKEK

maikek

Hatte ich oben schon mal erwähnt: 1. Zeilenumbruch.
Ob das funktioniert, musst du sehen, für das gezeigte Beispiel sollte es passen.
maike

maikek, 14. Februar 2014

#24
MAGIC1708

magic1708

Ja Zeilenumbruch würde auch gehen....
Wie kann ich das Auswerten?

magic1708, 14. Februar 2014

#25
ARNE DIECKMANN

Arne Dieckmann

BTW: Unter http://www.ardiman.de/datenbanken/ac...usdruecke.html habe ich mal einen Abschnitt "Pfad extrahieren" aufgeführt. Schau doch mal, ob das mit ein bis zwei Anpassungen auch bei deinen Pfaden funktioniert.

Arne Dieckmann, 14. Februar 2014

#26
MAGIC1708

magic1708

Hallo Arne,

das ist super !

Ich habe folgendes mal in mein Modul mdl_Folfer kopiert:

Code:

Option Compare Database
Option Explicit

Private pRegEx As Object

Public Property Get oRegEx() As Object

If (pRegEx Is Nothing) Then
Set pRegEx = CreateObject("Vbscript.Regexp")
End If
Set oRegEx = pRegEx

End Property

Public Function fgetPath(ByVal vText As Variant) As Variant

'Muster für normale und UNC-Pfade, sowie Pfade mit div. Sonderzeichen (\S) (plus Leerzeichen dank \s)
'vText muss zur Zeit Pfad mit Dateierweiterung enthalten
'Laufwerkbuchstaben, Erweiterungen zur Zeit nur mit normalen Zeichen (\w):
Const cSearchPattern As String = "(\w:\\[\S\s]+|\\\\[\S\s]+)\.[\w]+"
Dim oMatch As Object

If Len("" & vText) = 0 Then
fgetPath = Null
Else
With oRegEx
.Global = True
.Pattern = cSearchPattern
Set oMatch = .Execute(vText)
End With
If oMatch.Count > 0 Then
fgetPath = oMatch(0)
Else
fgetPath = Null
End If
End If

Set oMatch = Nothing

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was muss ich den nun wie Abfragen ?? Wo gebe ich den Bezug zum Memofeld ein? Muss das gebundene Textfeld einen bestimmten Namen haben?

Unsere Pfade Fangen mit N:\ bzw K:\ an.....
was bedeuten die Constanten?

(\w:\\[\S\s]+|\\\\[\S\s]+)\.[\w]+"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mir reicht das nicht was auf der Seite bzw. im Code als Info steht. :-(

EDIT:

ich denke mal vText sollte das textfeld heißen....
und aufruf der Function über dieses fgetPath
und dieses (\w:\ gibt das Laufwerk an bzw den UNC-Pfad

magic1708, 16. Februar 2014

#27
MAGIC1708

magic1708

Hyperlink aus Memofeld extrahieren

Ah jetzt ja...

Habe es raus...

Debug ergebniss ist hier aber auch....

N:\Mainz\Projekte\LV_Bearbeitung\- Bearbeitete LV´s-\226000-226999\226096 10.02.14 Neubau Studentenwohnheim, Mainz

Ein-/Ausgang pro Kunde:Kd: Termin: 10.02. Eingang:29.01. Ausgang:
Kd: Termin: Eingang:29.01
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und nicht nur der extrahierte Pfad.....

magic1708, 17. Februar 2014

#28
JOSEF P.

Josef P.

Hallo!

Wenn du den Kommentar in fgetPath liest, steht dort:

'vText muss zur Zeit Pfad mit Dateierweiterung enthalten
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

=> Der Such-Ausdruck (cSearchPattern) passt für deinen Fall nicht, da in deinem Beispiel kein Pfad mit Dateiname und Erweiterung steht.

Versuche es einmal damit: "(\w:|\\)\\.*[^\r\n]"
... ich gehe davon aus, dass das Ende des Pfads durch einen Zeilenumbruch festgelegt ist.

BTW: Info zu Zeichenliterale für reguläre Ausdrücke findest du u. a. in Wikipedia.

mfg
Josef

Josef P., 17. Februar 2014

#29
ARNE DIECKMANN

Arne Dieckmann

Danke Josef fürs aufmerksame Lesen. Ich hatte gehofft, dass das ( "... mit ein bis zwei Anpassungen") jemand übernimmt.

Arne Dieckmann, 17. Februar 2014

#30

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 2 von 4

Thema:

Hyperlink aus Memofeld extrahieren

Die Seite wird geladen...

Hyperlink aus Memofeld extrahieren - Similar Threads - Hyperlink Memofeld extrahieren
Per Hyperlink ausgeblendetes Blatt einblenden
in Microsoft Excel Hilfe
Per Hyperlink ausgeblendetes Blatt einblenden: Hola ins Forum, ich bräuchte mal wieder eure Hilfe. Ich habe ein Tabellenblatt das mir als Register dient und wo Hyperlinks eingefügt sind um auf das dazugehörige Blatt zu springen. Diese Blätter...
Bilder in einer HTML Mail werden mit Unterstrich angezeigt
in Microsoft Outlook Hilfe
Bilder in einer HTML Mail werden mit Unterstrich angezeigt: Hallo Spezialistinnen und Spezialisten! Ich habe meinen neuen PC mit Office 365 installiert! Leider tritt ein kleines Problem bei der Darstellung einer E-Mail mit Bildern auf die zu einem externen...
Hyperlink zu Dateien
in Microsoft Excel Hilfe
Hyperlink zu Dateien: Hallo, ich möchte in einer dynamischen Tabelle mit Rechnungsnummern, die entsprechende Rechnung (alle in einem Verzeichnis) zuweisen, in der Tabelle fangen alle an mit LU24-15XXX die...
Mail senden maximale Textlänge erreicht ?
in Microsoft Excel Hilfe
Mail senden maximale Textlänge erreicht ?: Guten Tag liebes Forum Ich hätte eine Frage an der ich mich ein wenig herumärgere. Habe ich hier einfach die 255 erlaubten Zeichen Überschritten ? Wenn ich den Text kürze dann verschwindet der...
Inhalt eines Hyperlink Feldes in ein Textfeld kopieren
in Microsoft Access Hilfe
Inhalt eines Hyperlink Feldes in ein Textfeld kopieren: Hallo, kurz vorweg, GRUNDkenntnisse sind ein paar vorhanden, VBA-Kenntnisse sind nicht vorhanden. Ich habe eine DB zum verwalten meiner Dokumente. In einem Endlosformular erzeuge ich mit Hilfe...
Word Hyperlinks (nicht unterstrichen) in der Fusszeile
in Microsoft Word Hilfe
Word Hyperlinks (nicht unterstrichen) in der Fusszeile: Hallo Forum! Ich habe ein Problem mit Erstellen von Hyperlinks in einer Adresszeile in der Fussleiste. Das Problem ist, der Kunde will, dass die Links (Telefon, Mail, Domain) nicht unterstrichen...
Die Hyperlinks in Word leiten nicht zur korrekten Freigabe im Browser weiter.
in Microsoft Word Hilfe
Die Hyperlinks in Word leiten nicht zur korrekten Freigabe im Browser weiter.: Hallo zusammen Ich stehe vor einem Problem in Microsoft Word. Wenn ich auf einen Hyperlink klicke, wird mir die korrekte Freigabe im Google Drive nicht angezeigt. Jedoch, wenn ich den Hyperlink...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden