Дано:

15 файлов в папке, вида:

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 & "
"

Else Response.Write ("Файл некорректный!")

End If

Next

На выходе получаю:

202020202024242424242525252525

Необязательно дорабатывать исходный пример, можно предложить свой вариант.

Только на классическом ASP.

Переменные должны работать вне цикла, если доделывается исходный пример.

ICQ: 201998330

Если что-то не понятно, объясню дополнительно.

16 лет назад
vvalek
Илья 
44 года
16 лет в сервисе
Был
15 лет назад

Выбранный исполнитель

RendeRR
16 лет в сервисе
Был
15 лет назад
16 лет назад
$1
1 день
Спасибо Al Rinat (RendeRR) за скорую реализацию и консультацию. Быстро и легко!

Заявки фрилансеров

RendeRR
16 лет в сервисе
Был
15 лет назад
16 лет назад