Создание файла txt с заданными параметрами из документа

@dsqared3 · Регистрация: 01.06.2018

Студворк — интернет-сервис помощи студентам

Здравствуйте, помогите написать макрос, я уже все перепробовал и моих навыков не хватает. Мне нужно, чтобы данные из файла excel отправлялись в txt в специальную запись с точным числом пробелов. Выглядит это примерно так. Есть столбец А и В

А В
26 0.0001
100 -0.0008
А в блокноте должна появится надпись с проблемами

with zsection;
length=26;
fouter=0.25;
finner=0.25;
fflange=0.25;
gradient=0.0001;
radius=0;
with zsection;
length=100;
fouter=0.25;
finner=0.25;
fflange=0.25;
gradient=-0.0008;
radius=0;
И так много строчек в документе. Подскажите пожалуйста как это сделать?

shanemac51 · 01.06.2018, 08:11

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

А В
26 0.0001
100 -0.0008
А в блокноте должна появится надпись с проблемами

with zsection;
length=26;
fouter=0.25;
finner=0.25;
fflange=0.25;
gradient=0.0001;
radius=0;

with zsection;
length=100;
fouter=0.25;
finner=0.25;
fflange=0.25;
gradient=-0.0008;
radius=0;

попробую угадать
26 и 100 это длина
0,0001 и 0,0008 это градиент

откуда берутся остальные значения, или они всегда 0,25 и 0

@dsqared3 · 01.06.2018, 17:45 **[ТС]**

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

откуда берутся остальные значения, или они всегда 0,25 и 0

Они всегда одинаковые и повторяются каждый раз.

Чисто в теории для каждой строки в екселе должно быть вот такое:

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

with zsection;
length=26;
fouter=0.25;
finner=0.25;
fflange=0.25;
gradient=0.0001;
radius=0;

@Hugo121 · 01.06.2018, 20:12

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

надпись с проблемами

- по две проблемы до данных и одна после?

Добавлено через 17 минут
Как вариант:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Sub SaveTXT()
    Dim r As Range, s As String
    s = Application.GetSaveAsFilename(, "TXT Files (*.txt),*.txt,All Files (*.*),*.*", , "Сохранение в формате txt")
    If s = "False" Then Exit Sub
    Open s For Output As #1
    For Each r In ActiveSheet.[a1].CurrentRegion.Columns(1).Cells
        Print #1, "with zsection;"
        Print #1, "  length=" & Replace(r, ",", ".") & "; "
        Print #1, "  fouter=0.25; "
        Print #1, "  finner=0.25; "
        Print #1, "  fflange=0.25; "
        Print #1, "  gradient=" & Replace(r.Offset(, 1), ",", ".") & "; "
        Print #1, "  radius=0; "
    Next
    Close #1
End Sub

@dsqared3 · 04.06.2018, 07:56 **[ТС]**

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

Как вариант:

Спасибо, работает, я немного доработал и теперь автоматически сохраняет.

Я тоже пытался делать цикл, но навыков пока не хватает, буду совершенствоваться.

Новые блоги и статьи Все статьи Все блоги /
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .

Создание файла txt с заданными параметрами из документа

Решение