Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Помогите пожалуйста Добавлено: 05.05.03 14:49  

Автор вопроса:  Folkon

Кто знает как в Vb обрезать имя файла (8 символов)

допутим есть 'Привет всем.txt', а  нужно 'Приве~1" .

Заранее спасибо

Ответить

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

Номер ответа: 1
Автор ответа:
 anatoli



Вопросов: 0
Ответов: 5
  Профиль | | #1 Добавлено: 05.05.03 15:42

2 varianta for VB6

Left(text,length)

Mid(text,start,length)

Ответить

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



ICQ: 259418212 

Вопросов: 24
Ответов: 325
  Web-сайт: justas.newmail.ru
 Профиль | | #2 		Добавлено: 06.05.03 07:24

Может это тебе поможет?

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long
Public Function GetShortPath(strFileName As String) As String
    Dim lngRes As Long, strPath As String
    strPath = String$(165, 0)
    lngRes = GetShortPathName(strFileName, strPath, 164)
    GetShortPath = Left$(strPath, lngRes)
End Function
Private Sub Form_Load()
    MsgBox GetShortPath("C:\Текстовый документ.txt")
End Sub

Ответить

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



Вопросов: 9
Ответов: 9
  Профиль | | #3 Добавлено: 06.05.03 15:16

Спасибо все работает.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам