0 / 0 / 0
Регистрация: 08.04.2008
Сообщений: 132
1

Копирование из FileListBox в ListBox без расширений файлов

22.06.2009, 15:43. Показов 1286. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
при копировании из FileListBox в ListBox копируются и расширения файлов, как сделать так чтобы расширения не копировались. Расширение файлов *.tbl.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.06.2009, 15:43
Ответы с готовыми решениями:

Как перенести список выделенных файлов из FileListBox в ListBox или в TextBox
1)как перенести список выделеных(!) файлов из FileListBox в просто listbox или в textbox? (нужен...

Отображение списка файлов в listbox без расширений
Здравствуйте, уважаемые форумчане! Вопрос таков: имеется форма с листбоксом, в который при...

FileListBox копирование файлов
Приветствую всех! Столкнулся с такой маленькой проблемкой: Нужно чтоб при двойном нажатии на...

Копирование файлов через FileListBox
Доброго времени суток! Нужна очень помощь. Суть проблемы: делаю для работы форму по разбрасыванию...

3
0 / 0 / 0
Регистрация: 11.06.2009
Сообщений: 19
22.06.2009, 16:56 2
Здесь же не телепаты сидят... ты хоть кусок кода кинь...
0
0 / 0 / 0
Регистрация: 08.04.2008
Сообщений: 132
22.06.2009, 17:06  [ТС] 3
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Function CopyListToList(source As FileListBox, target As ListBox) As Long
Dim c As Long
Const LB_GETCOUNT = &H18B
Const LB_GETTEXT = &H189
Const LB_ADDSTRING = &H180
Dim numitems As Long
Dim sItemText As String * 255
numitems = SendMessageLong(source.hwnd, LB_GETCOUNT, 0&, 0&)
If numitems > 0 Then
For c = 0 To numitems - 1
Call SendMessageStr(source.hwnd, LB_GETTEXT, c, ByVal sItemText)
Call SendMessageStr(target.hwnd, LB_ADDSTRING, 0&, ByVal sItemText)
Next
End If
numitems = SendMessageLong(target.hwnd, LB_GETCOUNT, 0&, 0&)
CopyListToList = numitems
End Function
 
Private Sub Form_Load()
    Static x As Long
    Dim success As Long
    
success = CopyListToList(File2, file1)
If x < TextWidth(file1.List(0) & ' ') Then
    x = TextWidth(file1.List(0) & ' ')
If ScaleMode = vbTwips Then x = x / Screen.TwipsPerPixelX
    SendMessageByNum file1.hwnd, LB_SETHORIZONTALEXTENT, x, 0
End If
End Sub
0
0 / 0 / 0
Регистрация: 11.06.2009
Сообщений: 19
22.06.2009, 18:26 4
Исправленная мною функция CopyListToList:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Function CopyListToList(source As FileListBox, target As ListBox) As Long
  Dim c As Long
  Const LB_GETCOUNT = &H18B
  Const LB_GETTEXT = &H189
  Const LB_ADDSTRING = &H180
  Dim numitems As Long
  Dim sItemText As String * 255
  
  Dim PosChar0 As Long
  Dim PosPoint As Long
  Dim Length As Long
  
  numitems = SendMessageLong(source.hWnd, LB_GETCOUNT, 0&, 0&)
  If numitems > 0 Then
    For c = 0 To numitems - 1
      SendMessageStr source.hWnd, LB_GETTEXT, c, ByVal sItemText
      
      ' позиция нулевого символа - Chr(0)
      PosChar0 = InStr(sItemText, Chr(0))
      ' позиция точки (разделителя)
      PosPoint = InStr(sItemText, '.')
      If PosPoint > 0 Then ' файл с расширением
        Length = PosChar0 - PosPoint ' длина расширения
        Mid(sItemText, PosPoint, Length) = String(Length, Chr(0))
      End If
      
      SendMessageStr target.hWnd, LB_ADDSTRING, 0&, ByVal sItemText
    Next
  End If
  numitems = SendMessageLong(target.hWnd, LB_GETCOUNT, 0&, 0&)
  CopyListToList = numitems
End Function
0
22.06.2009, 18:26
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.06.2009, 18:26
Помогаю со студенческими работами здесь

Копирование файлов, не имеющих расширений
Всем привет, нужно чтобы скрипт скопировал 2 файла, у фалов нет расширения, но известны 4 первые...

Копирование файлов с ListBox
нужен пример как скопировать/вставить файл с лист бокса через кнопку, заранее спасибо;)

Копирование файлов, выделенных в ListBox
Всем доброго здоровичка!!! Такая проблема: На форме 2 листбокса с мультивыделением. В них...

Копирование файлов с FTP-сервера на компьютеры клиентов без замены уже имеющихся файлов
Приветствую. Такая задача. имеется фтп сервер. на нем лежит 5 папок, в каждой паке каждый день...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru