Обновление файлов при работе в Basic

04.01.2012, 13:01. **Показов** 974. **Ответов** 3

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

basic открывает файл, закрывает.
файл модифицируется сторонней программой.
basic открывает файл... и тянет, скотина, старые данные.

@Alexey Spirin · 04.01.2012, 18:16

код давай.

04.01.2012, 22:52

Если речь про [bold]GetPrivateProfileString[/bold], то надо "сбросить кэш" - см. MSDN.

05.01.2012, 14:40

Было вот так:

digFileName = "[-]"
CommonDialog1.ShowOpen
digFileName = CommonDialog1.FileName
j = 0
For i = 1 To Len(digFileName)
tmp = Mid(digFileName, i, 1)
If tmp = "" Then j = i
Next i
If j <> 0 Then
strTmp(2) = Mid(digFileName, j + 1, (Len(digFileName) - j - 4))
strTmp(3) = Left(digFileName, j)
strTmp(1) = Right(digFileName, 4)

If DxfType = "" Then Call DxfGiveFormat

intFH = FreeFile()
Open digFileName For Input As intFH

Потом сделал вот так
Open digFileName For Input Shared As intFH

Сначала не помогло, а перезагрузил комп и помогло. Может это просто был глюк. Но замечал такую фигню раза три.

Новые блоги и статьи Все статьи Все блоги /
Фото всей Земли с борта корабля 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, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .

empty

	Обновление файлов при работе в Basic 04.01.2012, 13:01. Показов 974. Ответов 3 Метки нет (Все метки) basic открывает файл, закрывает. файл модифицируется сторонней программой. basic открывает файл... и тянет, скотина, старые данные.

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	04.01.2012, 18:16
	код давай. 0

Comanche
	04.01.2012, 22:52
	Если речь про [bold]GetPrivateProfileString[/bold], то надо "сбросить кэш" - см. MSDN.

empty
	05.01.2012, 14:40
	Было вот так: digFileName = "[-]" CommonDialog1.ShowOpen digFileName = CommonDialog1.FileName j = 0 For i = 1 To Len(digFileName) tmp = Mid(digFileName, i, 1) If tmp = "" Then j = i Next i If j <> 0 Then strTmp(2) = Mid(digFileName, j + 1, (Len(digFileName) - j - 4)) strTmp(3) = Left(digFileName, j) strTmp(1) = Right(digFileName, 4) If DxfType = "" Then Call DxfGiveFormat intFH = FreeFile() Open digFileName For Input As intFH Потом сделал вот так Open digFileName For Input Shared As intFH Сначала не помогло, а перезагрузил комп и помогло. Может это просто был глюк. Но замечал такую фигню раза три.