|
0 / 0 / 0
Регистрация: 20.12.2011
Сообщений: 5
|
|
В текстовый файл CharToOem20.12.2011, 23:58. Показов 1741. Ответов 0
Метки нет (Все метки)
Проблема: Получается в DOS вот, что: "ЗГЛВ"",""04.00"",""АГС"",""8.18" А мне надо, чтобы было так: "ЗГЛВ","04.00","АГС","8.18" Option Explicit Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" _ (ByVal lpszSrc As String, ByVal lpszDst As String) As Long Private Sub OutTxtFile_Click() Dim MyFileNum As Integer Dim I As Long Dim Source, Destination As String Dim strZglv As String strZglv = "ЗГЛВ" & Chr(34) & "," & Chr(34) & "04.00" & Chr(34) & "," & Chr(34) & "АГС" & Chr(34) & "," & Chr(34) & "8.18" MyFileNum = 1 Source = strZglv Destination = Space(Len(Source)) I = CharToOem(UCase(Source), Destination) Open "C:Proba*0065000.006" For Output Access Write As MyFileNum Len = Len(Destination) Write #MyFileNum, Trim(Destination) End Sub Спасибо!
0
|
|
(| 20.12.2011, 23:58 | |
|
Ответы с готовыми решениями:
0
Задача с использованием структуры «текстовый файл» (в файле хранится текст) 1) Переписать в другой текстовый файл самую Дан текстовый файл. Используя стек, сформировать новый текстовый файл, каждая строка которого содержит символы |
| 20.12.2011, 23:58 | |
|
Помогаю со студенческими работами здесь
1
Дан текстовый файл. Используя стек, сформировать новый текстовый файл, каждая строка которого содержит символы
дан текстовый файл.перенести в текстовый файл все строки, содержащие заданное слово Дан текстовый файл. Вывести в другой текстовый файл количество слов одинаковой длины Исходный текстовый файл скопировать в результирующий текстовый файл, удалив слова менее N1 символов Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
Новые блоги и статьи
|
|||
|
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2.
Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
|
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях.
Задача: при копировании документа очищать определенные реквизиты и табличную. . .
|
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git
main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели
8ATzM_2aurI
|
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2.
Задача: запретить редактирование документа, если он открыт у другого пользователя.
/ / . . .
|
|
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои.
А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
|
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%
kYBz3eJf3jQ
|
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
|
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
|