ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / расширение файла
8 сообщений из 8, страница 1 из 1
расширение файла
    #35070354
vera_t
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vera_t
Участник
Мне нужно выбрать из директории файлы без расширения, но в названии файла могут присутствовать точки. Не подскажет ли кто- нибудь как это сделать?
...
Рейтинг: 0 / 0
18.01.2008, 09:11
| Ответить | Цитировать | Написать  
расширение файла
    #35070441
Ммихалыч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ммихалыч
Участник
наверно так: left(файл, instr(1, '.') )
...
Рейтинг: 0 / 0
18.01.2008, 09:46
| Ответить | Цитировать | Написать  
расширение файла
    #35070846
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIKO
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Command1_Click()
    Debug.Print GetFileType("имя.файла.и.расширение")
End Sub

Public Function GetFileType(strFileName As String)
    If InStrRev(strFileName, ".", - 1 , vbTextCompare) >  0  Then
        GetFileType = IIf(Len(Mid(strFileName, InStrRev(strFileName, ".", - 1 , vbTextCompare))) >  1 , Mid(strFileName, InStrRev(strFileName, ".", - 1 , vbTextCompare)), "")
    Else
        GetFileType = strFileName
        MsgBox "У файла нет расширения"
    End If
End Function
...
Рейтинг: 0 / 0
18.01.2008, 11:36
| Ответить | Цитировать | Написать  
расширение файла
    #35071642
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
если в имени файла встречаются точки,
то методы предложенные Ммихалыч и TIKO не подходят

я так понимаю, что vera_t нужно что-то типа
Dir(маска файла) и вот тут как раз и затык с этой маской

скорее всего придется использовать FileSystemObject

I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
18.01.2008, 14:46
| Ответить | Цитировать | Написать  
расширение файла
    #35072458
вввв
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вввв
Гость
чем тебе первая левая точка не угодила ?
...
Рейтинг: 0 / 0
18.01.2008, 18:07
| Ответить | Цитировать | Написать  
расширение файла
    #35072525
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Private Function GetFileExt(ByVal pstrFileName As String) As String
Dim strArr() As String
strArr = Split(pstrFileName, ".", , vbBinaryCompare)
GetFileExt= IIf(UBound(strArr) = 0, "", strArr(UBound(strArr)))
End Function

или:

Private Function GetFileExt(ByVal pstrFileName As String) As String
Dim objFSO As New FileSystemObject
GetFileExt= objFSO.GetExtensionName(pstrFileName)
End Function

Обращаю внимание на название: название ф-ци отражает то, что она делает: возвращает расширение файла.
...
Рейтинг: 0 / 0
18.01.2008, 18:34
| Ответить | Цитировать | Написать  
расширение файла
    #35080245
vera_t
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vera_t
Участник
При вызове функции:
Private Function GetFileExt(ByVal pstrFileName As String) As String
Dim objFSO As New FileSystemObject
GetFileExt= objFSO.GetExtensionName(pstrFileName)
End Function
на строке: "Dim objFSO As New FileSystemObject"
выдает ошибку "User- defined type not defined"
может нужно подсоединить какую- нибудь библиотеку?
...
Рейтинг: 0 / 0
23.01.2008, 01:15
| Ответить | Цитировать | Написать  
расширение файла
    #35080399
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
vera_tПри вызове функции:
Private Function GetFileExt(ByVal pstrFileName As String) As String
Dim objFSO As New FileSystemObject
GetFileExt= objFSO.GetExtensionName(pstrFileName)
End Function
на строке: "Dim objFSO As New FileSystemObject"
выдает ошибку "User- defined type not defined"
может нужно подсоединить какую- нибудь библиотеку?

разумеется: Microsoft Scripting Runtime
...
Рейтинг: 0 / 0
23.01.2008, 08:42
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / расширение файла
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&tid=2162790]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 52ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 212ms
total:  358ms
созд. / загр.: 358ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]