[ID CC-CC2021] Можно ли перевести jsx-GREP-команды в VBA-команды?

[hulk1776]

Задачка простая. Есть список ФИО, у которых фамилию надо отбить табуляцией (то есть заменить первый пробел в каждой строке на табуляцию.
В jsx это сделал так:

mFind ="^(\\u[\\w-]+?)\\s"; mChng = "$1\\t"; myGREP(mFind,mChng,mStory);

Но потом это обработанный текст я копирую и руками вставляю в новый создаваемый файл для data merg'a. А хотелось бы, что бы это делал или скрипт (из Инди) или VBA (что лучше, потому что список приходит в виде вордовского файла). Можно ли указанную строку переформулировать для VBA?

 

[К.Т.]

mFind = "^(\u[\w-]+?)\s"
mChng = "$1\t"
myGREP mFind, mChng, mStory

 

[hulk1776]

Вот в "myGREP" и вся загвоздка))

 

[К.Т.]

Тогда это странный вопрос.
Вы определили какую-то функцию, которая в вашей строке вызывается.
Просите "указанную строку переформулировать для VBA".
А оказывается, загвоздка в функции, про которую ничего не известно.
И каким должен быть ответ? )

 

[_MBK_]

VBA (что лучше, потому что список приходит в виде вордовского файла)

В индизайне нет VBA а в VBA нет grep - печальбеда, но в жизни нет гармонии

 

[hulk1776]

mFind = "^(\u[\w-]+?)\s"
mChng = "$1\t"
myGREP mFind, mChng, mStory

Задача - найти (хотя бы) первый пробел в строке и заменить его на табуляцию средствами VBA. Пока не получается, потому что regexp от VBA вроде бы даже не понимает таких метасимволов как \u\l.

 

[hulk1776]

В индизайне нет VBA а в VBA нет grep - печальбеда, но в жизни нет гармонии

Но, по счастью, в VBA есть модель Indesign. Интересно, а можно ли тогда в новый текстовый файл средствами javasrcipt вставить содержимое буфера обмена? (греп в Индизайне-то выполняется. Можно было бы просто скопировать отгрепленный текст и вставить в новый текстовый файл (раз из VBA не идет)).

 

[Skvoznyak]

Интересно, а можно ли тогда в новый текстовый файл средствами javasrcipt вставить содержимое буфера обмена?

а зачем тут буфер обмена? текст можно не копируя в буфер сохранить в файл

 

[lev]

Примерно так:

  Set ind = CreateObject("InDesign.Application")
  Set Story = ind.ActiveDocument

  ind.FindGrepPreferences = Nothing
  ind.ChangeGrepPreferences = Nothing
  ind.FindGrepPreferences.FindWhat = "Hello"
  ind.ChangeGrepPreferences.ChangeTo = "Привет"

  Story.ChangeGrep

 

[hulk1776]

Примерно так:

  Set ind = CreateObject("InDesign.Application")
  Set Story = ind.ActiveDocument

  ind.FindGrepPreferences = Nothing
  ind.ChangeGrepPreferences = Nothing
  ind.FindGrepPreferences.FindWhat = "Hello"
  ind.ChangeGrepPreferences.ChangeTo = "Привет"

  Story.ChangeGrep

Для Индизайна-то - это да. Но я хотел бы именно внутри Ворда провести греп-корректировку. Чтобы не обращаться лишний раз к Индизайну.

 

[lev]

А чего тогда в тему InDesign пишете, а не в Word? Там и свои средства замены есть, и regexp не проблема подключить. Про некоторые отличия от InDesign'овского grep'a Вы уже знаете.

 

[hulk1776]

а зачем тут буфер обмена? текст можно не копируя в буфер сохранить в файл

Если сохранять не копируя (а через запись переменной), то кодировка меняется на 1251, а ее Data merge не понимает. Видимо, при любой записи в файл кодировка портится (во всяком случае меняется с предустановленной). Поэтому пока приходится в полуручном режиме - открывать файл в блокноте, и уже руками вставлять содержимое буфера обмена.

 

[Oleg Butrin]

Если сохранять не копируя (а через запись переменной), то кодировка меняется на 1251, а ее Data merge не понимает. Видимо, при любой записи в файл кодировка портится (во всяком случае меняется с предустановленной).

 

[hulk1776]

Осталось перевести это

var mFile = File("C:\mFile.txt");
mFile.encoding = 'UTF-8';

для VBA((

 

[_MBK_]

Да полно решений, например, первое по гуглу https://www.di-mgt.com.au/howto-convert-vba-unicode-to-utf8.html

 

[Skvoznyak]

Осталось перевести это

var mFile = File("C:\mFile.txt");
mFile.encoding = 'UTF-8';

для VBA((

Зачем, вы же из jsx хотели файл сохранять только что?

 

[hulk1776]

Зачем, вы же из jsx хотели файл сохранять только что?

(Виноват, немного переключился) Из jsx не то, чтобы хотел, просто знаю, как сохранить. Но хотелось это делать из VBA.

 

[Skvoznyak]

ну вызванный скрипт вам может вернуть строку, сохраняйте ее в VBA если там можно