VBNet - Форум - Как изменить расширение файла???

Вопрос: Как изменить расширение файла??? Добавлено: 13.11.03 20:40

Автор вопроса: Votmax | Web-сайт: basiccenter.narod.ru

Как изменить расширение файла???
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: mzx ICQ: 259560026 Вопросов: 21 Ответов: 143	Профиль \| \| #1	Добавлено: 13.11.03 21:46
	Что ты имеешь в виду? Ответить

Номер ответа: 2
Автор ответа:

Justas

ICQ: 259418212

Вопросов: 24
Ответов: 325

Web-сайт: justas.newmail.ru
Профиль | | #2

Добавлено: 14.11.03 01:10

найти в имени файла позицию точки > в переменную загнать имя файла до точки & точку & новое расширение > присвоить файлу новое имя из переменной.

Ответить

Номер ответа: 3
Автор ответа:

Magic lantern

ICQ: 1707975

Вопросов: 8
Ответов: 47

Web-сайт: lantern.fatal.ru
Профиль | | #3

Добавлено: 14.11.03 02:12

У файла может быть 2 (или даже больше) точки!!!

И надо найти ПОСЛЕДНЕЮ!

Ответить

Номер ответа: 4 Автор ответа: cresta Вопросов: 117 Ответов: 1538	Профиль \| \| #4	Добавлено: 14.11.03 08:04
	Dim str1 As String Dim pointPosition As Integer str1 = "abcdef.ghkl" 'старое имя pointPosition = InStrRev(str1, ".") str1 = Left$(str1, pointPosition - 1) str1 = str1 & ".newExtension" ' новое имя Ответить

Номер ответа: 5 Автор ответа: cresta Вопросов: 117 Ответов: 1538	Профиль \| \| #5	Добавлено: 14.11.03 08:06
	Да, только вот при этом сам файл не изменится , просто станет приложением другой программы. Ответить

Номер ответа: 6
Автор ответа:

mzx

ICQ: 259560026

Вопросов: 21
Ответов: 143

Профиль | | #6

Добавлено: 14.11.03 08:27

При любом количестве точек в имени файла:

'Функция для изменения расширения файла
'FileName - имя файла
'NewExt - новое расширение
Public Function CExt(FileName As String, NewExt As String)
Dim vArr

    vArr = Split(FileName, ".")
    vArr(UBound(vArr)) = NewExt
    CExt = Join(vArr, ".")

End Function

Вызывать, например так:

Text1 = CExt(Text1, "txt")

Ответить

Страница: 1 |