Xpoint
   [напомнить пароль]

Вытащить даты из названий файлов

Метки: [без меток]
2009-02-20 11:10:36 [обр] walek[досье]

Доброго дня друзья!
Имею 15 файлов в папке XML, вида:

20090220_11.xml
20090220_14.xml
20090220_17.xml
20090220_2.xml
20090220_5.xml
20090224_11.xml
20090224_14.xml
20090224_17.xml
20090224_2.xml
20090224_5.xml
20090225_11.xml
20090225_14.xml
20090225_17.xml
20090225_2.xml
20090225_5.xml

МНе необходимо вытащить из названий этих файлов даты (их тут 3: 20 24 25 соответственно) и загнать их в соответствующие переменные.

На ASP делаю так:

Dim strFolderPath
strFolderPath = Server.MapPath("/XML/")

Dim objFSO, objContent, objFolder, objFileItem
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set   objFolder = objFSO.GetFolder(strFolderPath)
Set   objContent = objFolder.Files

Dim strFileItemName
Dim strDay, Match
Dim strDayPlus1
   For Each objFileItem In objContent
      strFileItemName = objFileItem.Name
      If InStr(1, strFileItemName, "_") = 9 Then
         strDay = Mid(strFileItemName, 7, 2)
         Response.Write strFileItemName & "<br>"
      Else Response.Write ("Файл некорректный!")
      End If
   Next

На выходе имею 202020202024242424242525252525

Что дальше делать (каким образом их вытаскивать и присваивать) ума не приложу.
Не поможете?

Спасибо.

спустя 2 дня 7 часов [обр] Евгений Дест(0/49)[досье]
Вроде с "вытаскиванием" Вы справились, но не понятно, в какие "соответствующие переменные" их нужно "загнать". Пожалуйста, перефразируйте вопрос.
спустя 1 день 14 часов [обр] walek[досье]

Те данные которые я имею на выходе повторяющиеся, т.е. нужно отобрать 3 уникальных (полученные на выходе): 20, 24, 25.
Эти значения и необходимо "загнать" в переменные, т.е. на этом примере
intNumver1 = 20;
intNumver1 = 24;
intNumver1 = 25;

для дальнейшего использования.

спустя 1 час 40 минут [обр] Василий Свиридов(47/175)[досье]
А если их не три? То что тогда?
спустя 13 минут [обр] walek[досье]
Файлов жестко 15, т.е. образом 3 уникальные даты.
Powered by POEM™ Engine Copyright © 2002-2005