ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / преобразовать строку
8 сообщений из 8, страница 1 из 1
преобразовать строку
    #32430452
val
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
val
Гость
Имеется таблица где в одном из столбцов(текстовом) хранятся пути к файлам. (C:\имя папки\... имя папки\вася.JPG)

необходимо извлеч этот путь из поля таблицы и присвоить его текстовой переменной. НО при этом необходимо добавить в конце имени файла( т.е. перед точкой) букву "L".
(C:\имя папки\... имя папки\васяL.JPG)

Проблема осложняется тем, что расширения у файлов могут быть разные(не только JPG) и состоять из 2, 3, 4, символов.

Помогите кто знает

P/S я начинающий, поэтому если не трудно ответе пожалуйста по подробнее
...
Рейтинг: 0 / 0
04.03.2004, 08:17
| Ответить | Цитировать | Написать  
преобразовать строку
    #32430459
RustamSaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RustamSaf
Участник
когда-то давно в excele я поступил следующим образом:
well = Left(fs.getfilename(f1), Len(fs.getfilename(f1)) -
Len(fs.getextensionname(f1)) - 1)
в твоем случае потом к well добавляешь то, что тебе надо и собираешь в обратном порядке, ну расширение там добавляешь и т.д. (у меня там немного по другому было, я какие-то свои переменные использовал и т.д. ты дальше там сам распишешь что и для чего если понадобится.)
в принципе по-моему должна быть функция которая сразу возвращает имя файла без расширения, по крайней мере в дельфях такое мелькало у меня пару раз. вот только не помню что это за функция, апи или чисто дельфи.
...
Рейтинг: 0 / 0
04.03.2004, 08:38
| Ответить | Цитировать | Написать  
преобразовать строку
    #32430469
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander G
Участник
если проблема только с заменой и Access2000 и выше и не извратных имен типа lalala.doc.jpg, то в данном случае нужно лишь заменить точку

Код: plaintext
strFullPath = Replace(strFullPath,  "." ,  "L." )
...
Рейтинг: 0 / 0
04.03.2004, 08:47
| Ответить | Цитировать | Написать  
преобразовать строку
    #32430472
RustamSaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RustamSaf
Участник
а блин. не прочитал толком сообщение твое. у тебя же не файлы а строки в таблице... ну тогда тебе можно поступить следующим образом. найти позицию точки в твоей строке, посмотри функцию InStr(), а дальше опять по вышеуказаному сценарию. left(твоя строка, номер вхождения точки -1), добавляешь что надо и прицепляешь хвост в виде расширения.
...
Рейтинг: 0 / 0
04.03.2004, 08:50
| Ответить | Цитировать | Написать  
преобразовать строку
    #32430475
RustamSaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RustamSaf
Участник
2 AlexanderG
классно. :)) а мне что-то даже в голову не пришло это использовать :))
...
Рейтинг: 0 / 0
04.03.2004, 08:54
| Ответить | Цитировать | Написать  
преобразовать строку
    #32430484
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
только менять надо последнюю точку а не все
...
Рейтинг: 0 / 0
04.03.2004, 09:02
| Ответить | Цитировать | Написать  
преобразовать строку
    #32430668
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander G
Участник
Ну я же сказал, что если нет извратных имен типа lalala 1.03.1999.doc.jpg.
Ну если есть, то где-то так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Function LastInStr(str1, str2 As String)
Dim c As Integer
c =  1 
Do While c >  0 
LastInStr = c -  1 
c = InStr(c, str1, str2)
 If c =  0  Then Exit Do
c = c +  1 
Loop
End Function

и потом
Код: plaintext
1.
strFullPath = Left(strFullPath, LastInStr(strFullPath,  "." ) -  1 ) & _
Replace(strFullPath,  "." ,  "L." , LastInStr(strFullPath,  "." ))
...
Рейтинг: 0 / 0
04.03.2004, 10:26
| Ответить | Цитировать | Написать  
преобразовать строку
    #32432012
val
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
val
Гость
Спасибо ребята выручили!! получилось, работает!
...
Рейтинг: 0 / 0
05.03.2004, 07:45
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / преобразовать строку
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&tid=1676267]:
 0ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 167ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 39ms
get tp. blocked users:
 1ms
others: 220ms
total:  462ms
созд. / загр.: 462ms
x
x
Закрыть


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