Új hozzászólás Aktív témák

• #13855 thee csendes tag

  Új Válasz 2012-05-27 09:22:20 #13855

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  thee

  csendes tag

  Lenne nekem is egy kérdésem:

  A megnyitott fájl nevét ("InpFileName") csak elérési úttal együtt szerepelt a változóban, csak a fájl nevét így tudtam kibányászni:

  Set fs = CreateObject("Scripting.FileSystemObject")
  InpFileName = Application.GetOpenFilename("NASTRAN result file(*.pch), *.pch")
  ' Nev kiiratas a munkalapra
  
  CounterFN = 0
  
  Pch1OpenFileName = InpFileName
  LenPch1OpenFileName = Len(Pch1OpenFileName)
  Do While CounterFN < LenPch1OpenFileName
  Pch1OpenFileNameReverseT = Mid(Pch1OpenFileName, LenPch1OpenFileName - CounterFN, 1)
  Pch1OpenFileNameReverse = Pch1OpenFileNameReverse & Pch1OpenFileNameReverseT
  CounterFN = CounterFN + 1
  Loop
  Pch1FileName = Mid(Pch1OpenFileName, LenPch1OpenFileName - Application.WorksheetFunction.Find("\", Pch1OpenFileNameReverse) + 2, Application.WorksheetFunction.Find("\", Pch1OpenFileNameReverse) - 1)
  Range("a4").Value = Pch1FileName

  Tudnátok erre egy elegánsabb megoldást ajánlani?

Új hozzászólás Aktív témák