Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Verwendung von vbscript.regexp zum entfernen von AW: RE: ect. aus eMail Subject

Frage Entwicklung VB for Applications

Mitglied: Shadow88

Shadow88 (Level 1) - Jetzt verbinden

02.07.2013 um 17:42 Uhr, 1767 Aufrufe, 2 Kommentare, 1 Danke

Hallo zusammen,

bin gerade an einem VBA-Code zugange, der mir eMails aus einem Outlook Order + Unterordner automatisch inkl. hinzufügen von Datum und Uhrzeit in den Subject auf ein Laufwerk speichert.

Dazu gehört natürlich auch die Bereinigung von Sonderzeichen wie z.b. den Doppelpunkt. Das Funktioniert mit den Sonderzeichen auch einwandfrei, nun möchte ich allerdings noch die Tags wie RE:, AW:, FW:, WG: usw. im Subject entfernen. Habe das ganze auch schon mal in einem anderen Script gesehen, bei mir klappt es allerdings nicht.

Was mache ich falsch?

Der Code meiner Clean-Funktion:

01.
Function StripIllegalChar(StrInput) 
02.
 
03.
 
04.
   Dim RegX            As Object 
05.
 
06.
    Set RegX = CreateObject("vbscript.regexp") 
07.
 
08.
    RegX.IgnoreCase = True 
09.
    RegX.Global = True 
10.
    
11.
    
12.
    RegX.Pattern = "(RE:|Re:|AW:|FW:|WG:|SV:|Antwort:)" 
13.
    StripIllegalChar = RegX.Replace(StrInput, "") 
14.
    
15.
    RegX.Pattern = "[\" & Chr(34) & "\!\@\#\$\%\^\&\*\(\)\=\+\|\[\]\{\}\`\'\;\:\<\>\?\/\,]" 
16.
    StripIllegalChar = RegX.Replace(StrInput, "") 
17.
 
18.
ExitFunction: 
19.
      
20.
 Set RegX = Nothing 
21.
      
22.
End Function

Vielen Dank für Eure Unterstützung im Voraus!

Beste Grüße
Mitglied: bastla
02.07.2013 um 17:51 Uhr
Hallo Shadow88!

Wenn Du ein zweimaliges Ersetzen per "RegExp" durchführen willst, musst Du das Ergebnis zwischenspeichern - also etwa:
01.
    RegX.Pattern = "(RE:|Re:|AW:|FW:|WG:|SV:|Antwort:)" 
02.
    strTemp = RegX.Replace(StrInput, "") 
03.
    
04.
    RegX.Pattern = "[\" & Chr(34) & "\!\@\#\$\%\^\&\*\(\)\=\+\|\[\]\{\}\`\'\;\:\<\>\?\/\,]" 
05.
    StripIllegalChar = RegX.Replace(strTemp, "")
Grüße
bastla
Bitte warten ..
Mitglied: Shadow88
02.07.2013 um 18:06 Uhr
Zitat von bastla:
Hallo Shadow88!

Wenn Du ein zweimaliges Ersetzen per "RegExp" durchführen willst, musst Du das Ergebnis zwischenspeichern -
also etwa:
01.
    RegX.Pattern = "(RE:|Re:|AW:|FW:|WG:|SV:|Antwort:)" 
02.
>     strTemp = RegX.Replace(StrInput, "") 
03.
>     
04.
>     RegX.Pattern = "[\" & Chr(34) & 
05.
> "\!\@\#\$\%\^\&\*\(\)\=\+\|\[\]\{\}\`\'\;\:\<\>\?\/\,]" 
06.
>     StripIllegalChar = RegX.Replace(strTemp, "") 
07.
> 
Grüße
bastla

Hallo Bastla,

Danke für die schnelle Antwort! Klappt nun einwandfrei!

Vielen Dank!

Shadow88
Bitte warten ..
Ähnliche Inhalte
Windows 10
gelöst Werbematerial zu Windows Produkten Aufsteller ect (6)

Frage von zeroblue2005 zum Thema Windows 10 ...

Switche und Hubs
gelöst Verwendung Twinax (5)

Frage von Philipp711 zum Thema Switche und Hubs ...

Entwicklung
Vergleichen und entfernen (2)

Frage von Florian456 zum Thema Entwicklung ...

Notebook & Zubehör
gelöst Defekte Schrauben entfernen (13)

Frage von honeybee zum Thema Notebook & Zubehör ...

Neue Wissensbeiträge
Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(14)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

RedHat, CentOS, Fedora

Fedora 27 ist verfügbar

Information von Frank zum Thema RedHat, CentOS, Fedora ...

Heiß diskutierte Inhalte
Server
Bilder aus dem Web mit CSV runterladen (30)

Frage von Yannosch zum Thema Server ...

Server-Hardware
Bestehendes Raid erweitern um 4 gleiche Platten! (Verständnis Fragen) (12)

Frage von Hendrik2586 zum Thema Server-Hardware ...

Windows Update
WSUS 4 (Server 2012 R2) - Windows 10 Updates nicht möglich (12)

Frage von c0d3.r3d zum Thema Windows Update ...