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

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Имя файла без пути его нахождения Добавлено: 03.08.09 21:03  

Автор вопроса:  Not андерстен
Ребят, помогите. НЕ могу понять как показать на форме имя выбранного файла без пути его нахождения? Тоесть чтобы отображалось ТОЛЬКО имя файла(фотки), а не полный путь с именем.

У меня так:
Me.Text = OpenFileDialog1.FileName & " - моя программа"

Ответить

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

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



Вопросов: 80
Ответов: 476
  Профиль | | #1 Добавлено: 04.08.09 01:12
ну я думаю, если тебе известно имя файла, то можно просто срезать кусок текста с помощью Mid(), хотя я не знаю работает ли эта функция в VISUAL BASIC.NET

Ответить

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



Вопросов: 80
Ответов: 476
  Профиль | | #2 Добавлено: 04.08.09 01:19
Да работает. И если что там такие параметры :
MID('Строка с текстом','с какого символа обрезать (считая от левого края, вправо)','количество обрезаемых символов(вправо)')

Ответить

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



Вопросов: 80
Ответов: 476
  Профиль | | #3 Добавлено: 04.08.09 01:39
А в данном случае код должен выглядеть так:
  1. Me.Text = OpenFileDialog1.SafeFileName & "- моя программа"

Функция SafeFileName выдаёт только имя файла с его расширениеи, а если тебе оно не нужно, то просто напиши:
  1.     
  2. Dim KolSimv As Byte
  3. KolSimv = Len(OpenFileDialog1.SafeFileName)
  4. Me.Text = Mid(OpenFileDialog1.SafeFileName, 1, KolSimv - 4) & "- моя программа"


всё.

Ответить

Номер ответа: 4
Автор ответа:
 DesT



ICQ: 376533105 

Вопросов: 1
Ответов: 24
  Профиль | | #4 Добавлено: 04.08.09 08:00
а ещё лучше пользуемся методами класса string
  1. Dim KolSimv As Byte = OpenFileDialog1.SafeFileName.Length
  2. Me.Text = OpenFileDialog1.SafeFileName.Substring(0, KolSimv - 4) & " - моя программа"

Ответить

Номер ответа: 5
Автор ответа:
 Dully



ICQ: 229882730 

Вопросов: 19
Ответов: 51
  Профиль | | #5 Добавлено: 04.08.09 08:59
что то вы ни туда смотрите.. так не проще?

  1.     Private Sub btnSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelect.Click
  2.         Dim flDialog As New OpenFileDialog
  3.  
  4.         flDialog.Filter = "All files (*.*)|*.*"
  5.  
  6.         If flDialog.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
  7.  
  8.             Dim fi = New IO.FileInfo(flDialog.FileName)
  9.  
  10.             If fi.Exists Then
  11.                 lblName.Text = fi.Name
  12.                 lblFullName.Text = fi.FullName
  13.                 lblPth.Text = fi.DirectoryName
  14.             End If
  15.  
  16.  
  17.  
  18.         End If

Ответить

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



ICQ: 300-70-6пятьЪ 

Вопросов: 62
Ответов: 545
  Web-сайт: iSkywalker.ru
 Профиль | | #6 		Добавлено: 04.08.09 09:03
а еще лучше убейтесь
  1.  
  2. IO.Path.GetFileNameWithoutExtension(OpenFileDialog1.FileName)
  3. 'or
  4. IO.Path.GetFileName(OpenFileDialog1.FileName)

Ответить

Номер ответа: 7
Автор ответа:
 Dully



ICQ: 229882730 

Вопросов: 19
Ответов: 51
  Профиль | | #7 Добавлено: 04.08.09 09:08
Skywalker пишет:
а еще лучше убейтесь

сколько возможностей а люди строки обрезают %) :))))

Ответить

Страница: 1 |

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



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