Конвертация текстовых справочников для интергации программ

@farmsnab · Регистрация: 27.07.2019

Здравствуйте!
Помогите решить конвертацию текстовых справочников с определенными полями. Т.е. перестановка данных с одного поля в другое, добавление полей в конце строк и введением текстовых строк в начале файла.
Т.е. , к примеру в поле 55 стоит цифра 3,значит надо в поле 10 установить сегодняшнюю дату.
Если есть в поле 23 какое то значение, значит надо добавить ещё полей ; ; до 65 и перенести в него.
Я просто не знаю такой возможности посредством bat, простые скриты то могу формировать (архивация с удалением и переименованием, назначение включение приложений с командами), а вот с этим пока беда((((
Вообще, строка файла выглядит вот так:
49;4603988009360;Вода для инъекций буфус,N10,р-ль д/ин,5мл,Обновление;Вода для инъекций буфус,N10,р-ль д/;88.50;2.500000;;1;;01.07.25;;;1;;;00001;1;;;;2816878 от 14.07.2020 до 01.07.2025, выдан;;;;;;0;;;;;;;;;;;;;;;;;;;;;;;;;;;;3;1;;

@Karen87 · 21.02.2021, 15:29

farmsnab, здравствуйте! Несколько сумбурно описано ТЗ. Приложите образец файла. Покажите 2 варианта по каждому случаю: до и после внесения изменений

@Fors1k · 21.02.2021, 18:54

Сообщение от farmsnab

Вообще, строка файла выглядит вот так:

Это единственная строка в файле? Если да, то вот:

PowerShell

param(
    $pathIN  = "D:\file.txt",
    $pathOUT = "D:\file1.txt"
)cls
 
$data = Get-Content $path -raw
$head = 1..($data -replace "[^;]").Length
$csv  = $data|ConvertFrom-Csv -Delimiter ";" -Header $head
 
if($csv.55 -eq 3){$csv.10=date -f "dd.MM.yy"}
if($csv.23){
    ($head[-1]+1)..65|%{$csv|Add-Member -name $_ -m NoteProperty -v $null}
    $csv.65=$csv.23;$csv.23=$null
}
 
($csv | ConvertTo-Csv  -Delimiter  ";"  -NoTypeInformation|
select -Skip 1)-replace'"'|out-file $pathOUT -Encoding UTF8
start $pathOUT

@farmsnab · 22.02.2021, 08:17 **[ТС]**

Нет, там таких строк более 4 000((((

@Fors1k · 22.02.2021, 12:57

Оставьте в файле первые строк 10 и прикрепите сюда. Первая строка - заголовки?

@farmsnab · 22.02.2021, 13:02 **[ТС]**

Вот такой файл. Да, там заголовок, но его менять не нужно.

volodin661 · 22.02.2021, 15:50

farmsnab,

а из под какого софта вытащен этот формат данных ?

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

Сообщение от farmsnab

Т.е. , к примеру в поле 55 стоит цифра 3,значит надо в поле 10 установить сегодняшнюю дату.
Если есть в поле 23 какое то значение, значит надо добавить ещё полей ; ; до 65 и перенести в него.

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

( понятно, что powershell способен на всё )

@farmsnab · 23.02.2021, 08:38 **[ТС]**

Сообщение от volodin661

farmsnab,

а из под какого софта вытащен этот формат данных ?

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

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

( понятно, что powershell способен на всё )

Очень неудобно будет пользоваться "тяжелыми" приложениями.
Объясняю: это файл-выгрузки товара на кассовые места. Момент выгрузки проходит так: останавливаются кассы, происходит выгрузка продаж на текущую смену, обрабатывается в АСТУ, потом из АСТУ выгружается файл-справочник, он по флагу тут же загружается в сервер кассовых мест. Если пользоваться Excell и подобными, это ещё сверху остановка на несколько минут.
Вообще вся ситуация происходит из-за того, что разработчики аптечной АСТУ сторонние кассовые ПО не сильно хотят развивать, а отсюда просто забитие на всё то, что нужно доработать; а разработчики кассового ПО, считают, что для аптек их ПО уже доработано прекрасно, а у нас из-за этого происходят сплошные ошибки.

volodin661 · 23.02.2021, 12:41

farmsnab,

в любом случае так дела не делаются;
на каком-то социальном форуме в не пойми каком разделе, ничего не поясняя, ты просишь о доработке одной из функций
клиент-серверного ПО.

@farmsnab · 23.02.2021, 13:12 **[ТС]**

Да, а что делать(((( Сам пока не тяну такие доработки. Мне не нужно прям файл-сценарий. Мне бы написать просто какими скриптами можно это сделать, а то уже я сам додумаю.

volodin661 · 23.02.2021, 13:17

Какая там база ?

Добавлено через 1 минуту
И что, нет штатной функции редактирования справочников ?

@farmsnab · 23.02.2021, 13:22 **[ТС]**

Там не база, идет файл-справочник. Его перед загрузкой надо конвертнуть, что бы не было ошибок, которые я Вас попросил помочь исправить в отделе Excell.
Он выше есть в теме PRODUCTS.TXT
А база в программе Бэст-5, там я уже много раз пытался самостоятельно выгрузку переделать (не открою тайны, что даже программисты разработчики приложений для Бэст-5 не смогли переделать скрипт выгрузки, там просто темный лес основанный на таблицах dbf)

volodin661 · 23.02.2021, 14:07

Сообщение от farmsnab

Мне бы написать просто какими скриптами можно это сделать

split / внесение изменений в поля / join

инструменты: powershell / C# / perl / python : на выбор.

(первые два, скорее всего, уже есть в системе)

@Punkt5 · 23.02.2021, 14:18

farmsnab, Можно попробовать набросать конвертер на VBS. Его интерепретатор встроен во все версии винды, так что легко дорабатывать.
Инструкция:
1. Сохранить код в файл с расширением .vbs в ту же папку, где будет лежать исходный файл
2. Когда файл появится, просто тыкнуть в иконку файла .vbs

Visual Basic

'ТЗ:
'к примеру в поле 55 стоит цифра 3,значит надо в поле 10 установить сегодняшнюю дату.
'Если есть в поле 23 какое то значение, значит надо добавить ещё полей ; ; до 65 и перенести в него
option explicit
dim FSO, ff, pp, ss, aa 'описываем переменные
Set FSO = CreateObject("Scripting.FileSystemObject") 
Set pp=FSO.OpenTextFile("PRODUCTS.TXT",1,False,0) 'откроем исходный файл на чтение
Set ff=FSO.CreateTextFile("PRODUCTS.OUT", True) ' файл в который будем писать
while not pp.AtEndOfStream
  ss = pp.readLine 'в цикле читаем строки из файла
  if Left(ss,3) = "   " Then 'если в начале строки не менее 3 пробелов - это рабочая строка. Обработаем её
    aa = Split(ss,";") ' преобразуем строку в массив строк (нумерация в массиве начинается с НУЛЯ!!!)
    if aa(54) = "3" Then 'в поле 55 стоит цифра 3
      aa(9) = Mid(Replace(cstr(date),".20","."),4) 'ставим в поле 10 сегодняшнюю дату c 2-мя последними цифрами года
    end if
    if aa(22) <> "" Then ' есть в поле 23 какое то значение
      redim Preserve aa(64)'значит надо добавить ещё полей ; ; до 65 
      aa(64) = aa(22) ' и перенести в него (если я правильно понял - перенести в 65 поле значение из поля 23)
    end if
    ss = join(aa,";")
  end if
  ff.WriteLine ss 'запишем в результирующий файл
wend
Set pp=Nothing: Set ff=Nothing: Set FSO=Nothing

Можно сделать, чтобы он прочитал весь исходный файл и писал сразу в него, чтобы встроить в этап производственного процесса. Можно сам файл скрипта не тыкать рукой, а вызывать из батника или встроить в шедулер.

@farmsnab · 23.02.2021, 14:23 **[ТС]**

Сообщение от Punkt5

farmsnab, Можно попробовать набросать конвертер на VBS. Его интерепретатор встроен во все версии винды, так что легко дорабатывать.
Инструкция:
1. Сохранить код в файл с расширением .vbs в ту же папку, где будет лежать исходный файл
2. Когда файл появится, просто тыкнуть в иконку файла .vbs

Visual Basic

'ТЗ:
'к примеру в поле 55 стоит цифра 3,значит надо в поле 10 установить сегодняшнюю дату.
'Если есть в поле 23 какое то значение, значит надо добавить ещё полей ; ; до 65 и перенести в него
option explicit
dim FSO, ff, pp, ss, aa 'описываем переменные
Set FSO = CreateObject("Scripting.FileSystemObject") 
Set pp=FSO.OpenTextFile("PRODUCTS.TXT",1,False,0) 'откроем исходный файл на чтение
Set ff=FSO.CreateTextFile("PRODUCTS.OUT", True) ' файл в который будем писать
while not pp.AtEndOfStream
  ss = pp.readLine 'в цикле читаем строки из файла
  if Left(ss,3) = "   " Then 'если в начале строки не менее 3 пробелов - это рабочая строка. Обработаем её
    aa = Split(ss,";") ' преобразуем строку в массив строк (нумерация в массиве начинается с НУЛЯ!!!)
    if aa(54) = "3" Then 'в поле 55 стоит цифра 3
      aa(9) = Mid(Replace(cstr(date),".20","."),4) 'ставим в поле 10 сегодняшнюю дату c 2-мя последними цифрами года
    end if
    if aa(22) <> "" Then ' есть в поле 23 какое то значение
      redim Preserve aa(64)'значит надо добавить ещё полей ; ; до 65 
      aa(64) = aa(22) ' и перенести в него (если я правильно понял - перенести в 65 поле значение из поля 23)
    end if
    ss = join(aa,";")
  end if
  ff.WriteLine ss 'запишем в результирующий файл
wend
Set pp=Nothing: Set ff=Nothing: Set FSO=Nothing

Можно сделать, чтобы он прочитал весь исходный файл и писал сразу в него, чтобы встроить в этап производственного процесса. Можно сам файл скрипта не тыкать рукой, а вызывать из батника или встроить в шедулер.

Огромное спасибо)))))
Прямо выручили)))))

volodin661 3331 / 1359 / 231 Регистрация: 10.12.2013 Сообщений: 4,641
	23.02.2021, 13:17	11
	Какая там база ? Добавлено через 1 минуту И что, нет штатной функции редактирования справочников ? 0

@farmsnab 0 / 0 / 0 Регистрация: 27.07.2019 Сообщений: 11
		1
	Конвертация текстовых справочников для интергации программ 21.02.2021, 14:33. Просмотров 1359. Ответов 14 Метки нет (Все метки) Здравствуйте! Помогите решить конвертацию текстовых справочников с определенными полями. Т.е. перестановка данных с одного поля в другое, добавление полей в конце строк и введением текстовых строк в начале файла. Т.е. , к примеру в поле 55 стоит цифра 3,значит надо в поле 10 установить сегодняшнюю дату. Если есть в поле 23 какое то значение, значит надо добавить ещё полей ; ; до 65 и перенести в него. Я просто не знаю такой возможности посредством bat, простые скриты то могу формировать (архивация с удалением и переименованием, назначение включение приложений с командами), а вот с этим пока беда(((( Вообще, строка файла выглядит вот так: 49;4603988009360;Вода для инъекций буфус,N10,р-ль д/ин,5мл,Обновление;Вода для инъекций буфус,N10,р-ль д/;88.50;2.500000;;1;;01.07.25;;;1;;;00001;1;;;;2816878 от 14.07.2020 до 01.07.2025, выдан;;;;;;0;;;;;;;;;;;;;;;;;;;;;;;;;;;;3;1;; 0

@Karen87 656 / 477 / 194 Регистрация: 29.05.2016 Сообщений: 2,455
	21.02.2021, 15:29	2
	farmsnab, здравствуйте! Несколько сумбурно описано ТЗ. Приложите образец файла. Покажите 2 варианта по каждому случаю: до и после внесения изменений 0

@farmsnab 0 / 0 / 0 Регистрация: 27.07.2019 Сообщений: 11
	22.02.2021, 08:17 [ТС]	4
	Нет, там таких строк более 4 000(((( 0

@Fors1k ㊙️ 941 / 95 / 25 Регистрация: 10.08.2018 Сообщений: 297
	22.02.2021, 12:57	5
	Оставьте в файле первые строк 10 и прикрепите сюда. Первая строка - заголовки? 0

volodin661 3331 / 1359 / 231 Регистрация: 10.12.2013 Сообщений: 4,641
	22.02.2021, 15:50	7
	farmsnab, а из под какого софта вытащен этот формат данных ? Добавлено через 7 минут Сообщение от farmsnab Т.е. , к примеру в поле 55 стоит цифра 3,значит надо в поле 10 установить сегодняшнюю дату. Если есть в поле 23 какое то значение, значит надо добавить ещё полей ; ; до 65 и перенести в него. Неудобно даже произносить это слово, но для таких действий в фиксированных полях Excel со своими макро-формулами - самое то. ( понятно, что powershell способен на всё ) 0

@farmsnab 0 / 0 / 0 Регистрация: 27.07.2019 Сообщений: 11
	23.02.2021, 08:38 [ТС]	8
	Сообщение от volodin661 farmsnab, а из под какого софта вытащен этот формат данных ? Добавлено через 7 минут Неудобно даже произносить это слово, но для таких действий в фиксированных полях Excel со своими макро-формулами - самое то. ( понятно, что powershell способен на всё ) Очень неудобно будет пользоваться "тяжелыми" приложениями. Объясняю: это файл-выгрузки товара на кассовые места. Момент выгрузки проходит так: останавливаются кассы, происходит выгрузка продаж на текущую смену, обрабатывается в АСТУ, потом из АСТУ выгружается файл-справочник, он по флагу тут же загружается в сервер кассовых мест. Если пользоваться Excell и подобными, это ещё сверху остановка на несколько минут. Вообще вся ситуация происходит из-за того, что разработчики аптечной АСТУ сторонние кассовые ПО не сильно хотят развивать, а отсюда просто забитие на всё то, что нужно доработать; а разработчики кассового ПО, считают, что для аптек их ПО уже доработано прекрасно, а у нас из-за этого происходят сплошные ошибки. 0

volodin661 3331 / 1359 / 231 Регистрация: 10.12.2013 Сообщений: 4,641
	23.02.2021, 12:41	9
	farmsnab, в любом случае так дела не делаются; на каком-то социальном форуме в не пойми каком разделе, ничего не поясняя, ты просишь о доработке одной из функций клиент-серверного ПО. 0

@farmsnab 0 / 0 / 0 Регистрация: 27.07.2019 Сообщений: 11
	23.02.2021, 13:12 [ТС]	10
	Да, а что делать(((( Сам пока не тяну такие доработки. Мне не нужно прям файл-сценарий. Мне бы написать просто какими скриптами можно это сделать, а то уже я сам додумаю. 0

@farmsnab 0 / 0 / 0 Регистрация: 27.07.2019 Сообщений: 11
	23.02.2021, 13:22 [ТС]	12
	Там не база, идет файл-справочник. Его перед загрузкой надо конвертнуть, что бы не было ошибок, которые я Вас попросил помочь исправить в отделе Excell. Он выше есть в теме PRODUCTS.TXT А база в программе Бэст-5, там я уже много раз пытался самостоятельно выгрузку переделать (не открою тайны, что даже программисты разработчики приложений для Бэст-5 не смогли переделать скрипт выгрузки, там просто темный лес основанный на таблицах dbf) 0

volodin661 3331 / 1359 / 231 Регистрация: 10.12.2013 Сообщений: 4,641
	23.02.2021, 14:07	13
	Сообщение от farmsnab Мне бы написать просто какими скриптами можно это сделать split / внесение изменений в поля / join инструменты: powershell / C# / perl / python : на выбор. (первые два, скорее всего, уже есть в системе) 0

Опции темы

Конвертация текстовых справочников для интергации программ

Решение