Определить имя файла word

3 / 3 / 0

Регистрация: 27.02.2016

Сообщений: 80

Здравствуйте. В директории есть группа файлов название которых отличаются тремя цифрами (к примеру Абв124, Абв125, … Абв231). Как макросом в Ворде определить цифровую часть названия файла с самым высоким номером?
Спасибо.

fever brain

1454 / 793 / 161

Регистрация: 05.01.2016

Сообщений: 2,307

Записей в блоге: 8

Святой НякаЛайк

653 / 246 / 88

Регистрация: 28.10.2015

Сообщений: 520

По идее есть функция val, которая должна из произвольного текста извлекать число (если оно там есть). Но val мало что может…
Можно написать свой val:

1
2
3
4
5
6
7
8
9
10
11
12
13
14

Sub Skreper()
    Const myfile As String = "абв123"
    MsgBox myval(myfile)
End Sub
 
Function myval(ByVal text As String) As Long
    Dim l As Long, k As String, boo As Boolean
    For l = 1 To Len(text)
        If IsNumeric(Mid(text, l, 1)) Then k = k & Mid(text, l, 1): boo = True
        If Not IsNumeric(Mid(text, l, 1)) And boo = True Then GoTo ex
    Next
ex:
    myval = CLng(k)
End Function

Вооружившись этим, можно подавать имена файлов в myval и получать числа, пригодные к сравнению и сортировке.

fever brain

1454 / 793 / 161

Регистрация: 05.01.2016

Сообщений: 2,307

Записей в блоге: 8

Извлекает передние числа из строки например 34xx = 34
и наоборот xx34 = 0

Добавлено через 11 минут

можно ))

1
2
3
4
5
6
7
8
9
10

Sub test()
    MsgBox VAL_2("abc987")
End Sub
 
Function VAL_2(value) As Double
    Dim q#
    q = Val(value)
    VAL_2 = StrReverse(Val(StrReverse(value)))
    If Abs(q) > Abs(VAL_2) Then VAL_2 = q
End Function

Святой НякаЛайк

653 / 246 / 88

Регистрация: 28.10.2015

Сообщений: 520

Ну да. Это наверное создавалось в расчете на бухгалтеров — извлекать 99,99 из «99,99 rur», но хочется же, чтобы функция работала более универсально, как надо ТС например.

Добавлено через 1 минуту

А такое

1

MsgBox VAL_2("abc987.txt")

уже не проканывает. У ТС файлы начинаются названиями с чего-то нечислового и заканчиваются расширениями…

1454 / 793 / 161

Регистрация: 05.01.2016

Сообщений: 2,307

Записей в блоге: 8

ТС писал что его интересуют три последние цифры

мой пример проигнорирует все что угодно (даже если там две цифры) кроме имен файлов с тремя цифрами в конце )

Добавлено через 2 минуты

Ну вот поэтому нужно просматривать базовые имена в папке без расширений

3 / 3 / 0

Регистрация: 27.02.2016

Сообщений: 80

fever brain, Святой НякаЛайк, спасибо, сейчас попробую вставить в свой макрос.

Хотя, додумался до более простого решения, только надо величину (цифровое окончание первого и последнего файлов) передать из экселя в ворд.
Дело в том, что в экселе формируются ряд файлов отличающиеся окончанием, а в ворде собираю эти файлы в один блок, к примеру файл Абс231-278. Хочется автоматизировать этот процесс.

653 / 246 / 88

Регистрация: 28.10.2015

Сообщений: 520

1454 / 793 / 161

Регистрация: 05.01.2016

Сообщений: 2,307

Записей в блоге: 8

Ну твой вопрос был решен или нет ?

11482 / 3773 / 677

Регистрация: 13.02.2009

Сообщений: 11,147

Жесть! самое простое решение!

653 / 246 / 88

Регистрация: 28.10.2015

Сообщений: 520

А почему нужно сначала создавать сотню файлов, а потом склеивать их воедино, притом воссоздавая порядок, следовавший при создании? Что мешает сразу в том самом экселе слить всю инфу в один файл «Adv.docx»? (А потом здесь же, всё ещё из экселя, отправить этот реестр всех фамилий на печать и сэкономить кучу времени на создании, открытии, закрытии, сохранении при каждом добавлении кучи файлов)

3 / 3 / 0

Регистрация: 27.02.2016

Сообщений: 80

fever brain, первый ответ (от 23.46) работает нормально, единственное т.к. цифровая часть может быть и 2-х и 4-х значная, то придется откинуть текстуальную. Тут уже додумаюсь как нибудь.
Святой НякаЛайк, с функциями у меня что-то не получается, не разбираюсь я в них.

В принципе да, СПАСИБО.

Потому что бестолковый (возраст далеко за 60 и не специалист в программировании), работаю методом «научного тыка».
Склеивать не получилось т.к. используются разные шаблоны при формировании одиночных файлов и идет сползание с одной страницы на другой, надо корректировать (разрыв страницы иногда дает пустую страницу). Для более коротких в шаблоне использую закладки, а тут их может быть более сотни.

fever brain

1454 / 793 / 161

Регистрация: 05.01.2016

Сообщений: 2,307

Записей в блоге: 8

А чего додумываться, в моем примере будут просматриваться все имена имеющие маску
If s Like «*###» тоесть: текст123
если поставить маску If s Like «*##» то остануться текст123 и текст12

а если поставить маску If s Like «*#»
то любая длина текста и любая длина цифр, но так как цифра теперь будет не фиксированна, придется использовать еще и функцию

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

Function ValM(ByVal S As String) As Double
    '
    'Функция которая возвращает переднее или заднее число в названии
    '
    ValM = Val(S)
    If Abs(ValM) > 0 Then Exit Function Else ValM = ValM(Mid$(S, 2))
End Function
 
 
Sub File_name_maximum_numeric_part()
    '
    'Максимальная числовая часть имени файла
    '
    Dim v, S$, max#, Result$
    With CreateObject("scripting.filesystemobject")
        For Each v In .GetFolder(ActiveDocument.Path).Files
            S = .GetBaseName(v)
            If S Like "*#" Then
                Debug.Print S
                If ValM(S) > max Then max = ValM(S): Result = v.Name
            End If
        Next
    End With
    If Result <> "" Then MsgBox Result
End Sub

На снимке папка запускаемого документа *новая папка* в ней-же файлики
изменить папку можно в этой части: .GetFolder(ActiveDocument.Path).Files
например: .GetFolder(«C:»).Files

в окне immediate список просмотренных имен
Сообщение показывает максимальное число в группе

3 / 3 / 0

Регистрация: 27.02.2016

Сообщений: 80

fever brain, спасибо, работает отлично.

Здоровья вам и с наступающим. Всех благ.

ПС. Как надоел устаревший маркер безопасности. Который не действует и после обновления страницы.

1454 / 793 / 161

Регистрация: 05.01.2016

Сообщений: 2,307

Записей в блоге: 8

Спасибо ))
ёлку уже поставили, даже лампочки настроили под синхронизацию, я тоже не молод….
поэтому диджеями назначил младших родственников(моих дочек)…. ну ёлка отличная получилась