Thema Datum  Von Nutzer Rating
Antwort
27.11.2018 14:27:56 Axel
NotSolved
27.11.2018 19:49:08 Flotter Feger
NotSolved
28.11.2018 09:25:11 Axel
NotSolved
Blau walk, don't run
 28.11.2018 06:06:37 Gast48881
NotSolved
28.11.2018 09:30:59 Axel
NotSolved

Ansicht des Beitrags:
Von:
Gast48881		 Datum:
28.11.2018 06:06:37		 Views:
894		 Rating:
     
Antwort:
  Ja
Thema:
walk, don't run		 
Option Explicit

Sub myTest()
'to practice
Dim strFn As String, strEx As String
Dim strSp As String, arrSp() As String
Dim arrNb() As String, x As Long, z As Long
Dim strLt As String, arrLt() As String, i As Long

   '.pdf in Folder
   ChDir "E:\VBA\2018\Oktober"
   strEx = ".pdf"
   'separator
   strSp = "_"
   strLt = "-"
   'sign letters
   strFn = Dir("*" & strEx)
   
   Do While Len(strFn) > 0
    'except
    If InStr(strFn, strLt) = 0 Then
      z = 0: i = 0
      arrSp = Split(Replace(strFn, strEx, ""), strSp)
      For x = LBound(arrSp) To UBound(arrSp)
         If IsNumeric(arrSp(x)) Then
            ReDim Preserve arrNb(0 To z)
            arrNb(z) = arrSp(x)
            z = z + 1
         Else
            ReDim Preserve arrLt(0 To i)
            arrLt(i) = arrSp(x)
            i = i + 1
         End If
      Next x
      'rename
      On Error Resume Next
      Name strFn As Join(arrNb, strSp) & strLt & Join(arrLt, strLt) & strEx
      On Error GoTo 0
    End If
    'next
    strFn = Dir
   Loop
   
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.11.2018 14:27:56 Axel
NotSolved
27.11.2018 19:49:08 Flotter Feger
NotSolved
28.11.2018 09:25:11 Axel
NotSolved
Blau walk, don't run
 28.11.2018 06:06:37 Gast48881
NotSolved
28.11.2018 09:30:59 Axel
NotSolved