Что нового

Как прочитать текстовый файл не используя его расширение?

agikon

Знающий
Сообщения
789
Репутация
17
Подскажите пожалуйста как прочитать текстовый файл без использования расширения в пути этого файла?
Ну от например самый простой вариант с расширением.
Код:
$Text = FileRead(@DesktopDir & '\file1.nnn', 5000)


А вот как чтобы прочитать файл не привязываться к расширению *.nnn, а только по имени файла "file1"?
Можно ли?
 

C2H5OH

AutoIT Гуру
Сообщения
1,473
Репутация
333
Посмотри пример в справке по
Код:
FileFindNextFile
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
а разве не читает?все работает и без расширения
 

AZJIO

Меценат
Меценат
Сообщения
2,874
Репутация
1,194
C2H5OH

;D Издеваешся над парнем как хочешь.

Код:
$sPath = @ScriptDir & '\Name.*'
$sPath = _GetFile($sPath)
If @error Then Exit MsgBox(0, 'Сообщение', 'Не найдено')
$sText = FileRead($sPath)
MsgBox(0, $sPath, $sText)

Func _GetFile($sPath)
	Local $search = FileFindFirstFile($sPath)
	If $search = -1 Then Return SetError(1, 0, '')
	Local $sFile = FileFindNextFile($search)
	FileClose($search)
	Return StringRegExpReplace($sPath, '^(.*)\\.*$', '\1') & '\' & $sFile
EndFunc   ;==>_GetFile
 
Автор
A

agikon

Знающий
Сообщения
789
Репутация
17
Спасибо!
Механизм в какую сторону крутить понял :IL_AutoIt_1:
 

C2H5OH

AutoIT Гуру
Сообщения
1,473
Репутация
333
AZJIO,
:smile: у парня репутация уже 15, значит соображает и ему достаточно просто подсказать где искать.
 
Автор
A

agikon

Знающий
Сообщения
789
Репутация
17
AZJIO
Спасибо.
Я как раз по этому примеру делаю.
 
Верх