Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
0 / 0 / 0
Регистрация: 03.12.2015
Сообщений: 23

Запись в текстовый файл

03.12.2015, 10:51. Показов 2841. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени суток, у меня возник вопрос по поводу того как короче указывать путь к файлу, в который нужно записать какие-либо данные
вот пример моего кода:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
If TextBox1.Text = "" Then
MsgBox ("Введите что-нибудь!")
Exit Sub
End If
 
 
iFullName = "C:\1\globscore.txt"
Dim name As String, strFile As String
Dim hFile As Long
 
hFile = FreeFile
strFile = "C:\1\GlobScore.txt"
Open strFile For Output Access Write As hFile
Write #hFile, TextBox1.Text
 
Close hFile
то есть вопрос в том: этот файл globscore будет всегда перебегать с компьютера на компьютер и там будет постоянно новый путь, можно ли указать универсальный путь(файл globscore и документ с кодом находятся в одной папке)?
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
03.12.2015, 10:51
Ответы с готовыми решениями:

Запись в текстовый файл
Коллеги! Помогите разобраться, а точнее прошу помочь конкретным кодом по следующей задаче... Мне нужно записывать в текстовый файл данные...

Excel 2003 - запись в текстовый файл?
В ячейках "BE5:BE6" введены данные из access, в BE3 и BE4 сюда подставляется из формы Private Sub Ok_Click() Sheets("Table...

Запись в текстовый файл - содержимого диапазона (построчно)
Добрый вечер, программисты vba. Помогите решить вопрос. Есть макрос, который вписывает текст с ячейки C6 - в первую строку...

4
 Аватар для pashulka
4139 / 2243 / 940
Регистрация: 01.12.2010
Сообщений: 4,624
03.12.2015, 11:03
Цитата Сообщение от hazerbot Посмотреть сообщение
файл globscore и документ с кодом находятся в одной папке
Visual Basic
1
strFile = ThisWorkbook.Path & "\GlobScore.txt"
1
6998 / 2896 / 555
Регистрация: 19.10.2012
Сообщений: 8,804
03.12.2015, 11:05
Можно.
Для Экселя это ThisWorkbook.Path & "\globscore.txt", для других документов могут быть другие варианты.
1
0 / 0 / 0
Регистрация: 03.12.2015
Сообщений: 23
03.12.2015, 13:03  [ТС]
Цитата Сообщение от pashulka Посмотреть сообщение
Сообщение от hazerbot
файл globscore и документ с кодом находятся в одной папке
Visual BasicВыделить код
1
strFile = ThisWorkbook.Path & "\GlobScore.txt"
не получается
0
 Аватар для pashulka
4139 / 2243 / 940
Регистрация: 01.12.2010
Сообщений: 4,624
03.12.2015, 13:11
Лучший ответ Сообщение было отмечено hazerbot как решение

Решение

Если документ это вордовский файл, то :

Visual Basic
1
strFile = ThisDocument.Path & "\GlobScore.txt"
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
03.12.2015, 13:11
Помогаю со студенческими работами здесь

Разбить текстовый файл на строки
здравствуйте, как при помощи ВБА текстовый файл состоящий из одной длинной строки порядка 250734 символов разбить на строки, то есть перед...

программно читать текстовый файл
можно так Sub Макрос1() 'On Error Resume Next Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile...

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

Скопировать текстовый файл с удалением строки
Как скопировать текстовый файл (например с С:\1.txt в С:\2.txt) при этом удалив первую строку текста в 2.txt?

Разобрать текстовый файл и сформировать таблицу
Задача такого плана: есть 2 тхт файла с кучей подобных строк: 140440 всякая левая писанина 140443 тест ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
Программный отбор значения справочника
Maks 21.03.2026
Процедура ВодителиНачалоВыбора(Элемент, ДанныеВыбора, ВыборДобавлением, СтандартнаяОбработка) / / Отключаем стандартную обработку (стандартное открытие формы выбора без фильтров) . . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru