1 Тема от shade45

  • shade45
  • Участник
  • Неактивен

Тема: VBS: Создать из файлов в директории названия файлов в 2 разных

В папке есть несколько файлов с именем группы пробел имя студента в названии, нужно чтобы группа сохранилась в 1 файл, а   
имя студента в другой, подскажите как это можно реализовать...уже 3 день бьюсь(

2 Ответ от Flasher

  • Flasher
  • Заблокирован
  • Неактивен

Re: VBS: Создать из файлов в директории названия файлов в 2 разных

ТЗ - никудышное. Описывайте подробнее - было "так", стало "так".

3 Ответ от shade45

  • shade45
  • Участник
  • Неактивен

Re: VBS: Создать из файлов в директории названия файлов в 2 разных

пример есть 10 файлов в папке с именем в формате - VasinPK VKR-007.txt, нужно чтобы имя (VasinPK ) сохранилось в 1 файл, а группу (VKR-007) в другой,

4 Ответ от Flasher

  • Flasher
  • Заблокирован
  • Неактивен

Re: VBS: Создать из файлов в директории названия файлов в 2 разных

С этим ещё понятно было. А вот что это за файлы, в которые нужно сохранять, в какой форме и с какими именами совсем неясно.

5 Ответ от omegastripes

  • omegastripes
  • Разработчик
  • Неактивен

Re: VBS: Создать из файлов в директории названия файлов в 2 разных

Option Explicit
Const sSrcFolder = "C:\Test\files" ' папка, в которой лежат файлы
Const sStudentsFile = "C:\Test\StudentsFile.txt" ' файл, куда пишем имена
Const sGroupsFile = "C:\Test\GroupsFile.txt" ' файл, куда пишем группы
Const OutputFormat = -1 ' формат вывода 0 = ASCII, -1 = Unicode, -2 = System Default

Dim sStudents, sGroups, oFile, aParts
sStudents = ""
sGroups = ""
With CreateObject("Scripting.FileSystemObject")
    For Each oFile In .GetFolder(sSrcFolder).Files
        aParts = Split(.GetBaseName(oFile.Name))
        If UBound(aParts) = 1 Then
            sStudents = sStudents & aParts(0) & vbCrLf
            sGroups = sGroups & aParts(1) & vbCrLf
        End If
    Next
    With .OpenTextFile(sStudentsFile, 2, True, OutputFormat)
        .Write(sStudents)
        .Close
    End With
    With .OpenTextFile(sGroupsFile, 2, True, OutputFormat)
        .Write(sGroups)
        .Close
    End With
End With
CreateObject("WScript.Shell").PopUp "Готово", 1, , 64
Щт Уккщк Куыгьу Туче
’ҐЄгй п Є®¤®ў п бва Ёж : 1251
+ shade45

6 Ответ от shade45

  • shade45
  • Участник
  • Неактивен

Re: VBS: Создать из файлов в директории названия файлов в 2 разных

благодарю все работает)!