Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Мне надо удалить пробельчики, Пробельчики надо удалить 
:(
    Опции темы
Voldemar2004
Дата 24.3.2005, 16:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23
Короче так: есть путь к файлу: C:\folder\folder folder\file1 1.exe

надо удалить пробелы в названии файла чтоб получилось file11.exe например
и удалить пробелы в названиях папок: чтоб получилось вот так
C:\folder\folderfolder\file11.exe

ну короче я вот так сначала сделал:

Код

Str = Text1.Text
    Do
    Ln = Len(Str)
    Str = Replace(Str, " ", "")
    Loop While Len(Str) <> Ln
Text2.Text = Str


В Text1.Text название с пробелами
в Text2.Text без пробелов

оператор переименования файла

Код

Name OldFileName as NewFileName


мне лишь надо чтоб удалялись пробелы в названиях и папок и файлов.


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
~FoX~
Дата 24.3.2005, 16:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68
Код

 a = Split(Edit1.Text, " ")
 For i = 0 To UBound(a)
    k = k + a(i)
  Next i
  Edit2.Text = k



--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
cardinal
Дата 24.3.2005, 16:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Что то я разницы между
Код

Str = Text1.Text
    Do
    Ln = Len(Str)
    Str = Replace(Str, " ", "")
    Loop While Len(Str) <> Ln
Text2.Text = Str

и
Код

a = Split(Edit1.Text, " ")
 For i = 0 To UBound(a)
    k = k + a(i)
  Next i
  Edit2.Text = k

не понимаю?
Единственное, что в первом варианте вместо Str надо что-нибудь другое написать (т.к. Str уже забито VB)...


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Akina
Дата 24.3.2005, 16:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Код
Text2.Text=Join(Split(Text1.Text),"")



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
boevik
Дата 24.3.2005, 16:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
Одной команды Replace хватит, без всяких loop-ов
Код

Str = Replace(Str, " ", "")



--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
Voldemar2004
Дата 24.3.2005, 17:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23
Да, глупость я сделал. У меня есть код для удаления пробелов, мне надо чтоб переименовалась папка с файлом из например C:\folder folder\file 1 1.exe
в C:\folderfolder\file11.exe опять же с файлом например file 1 1.exe. Вот и все.

Добавлено @ 17:31
Ну просто как Name FileName as FileName Для папки. smile


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
Voldemar2004
Дата 24.3.2005, 17:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23
И еще: потом в вместо C:\folderfolder\file.exe надо переименовать расширение и после точки написать три буквы C:\folderfolder\file.txt например.


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
Vidocq
Дата 25.3.2005, 03:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 431
Регистрация: 15.12.2004
Где: Запорожье, Украин а

Репутация: нет
Всего: 7
Voldemar2004

Код


Function ChangeExt(String Filename)
Dim astrWords() as String
Dim char as String
astrWords = Split(Filename) 'разбиваем строку на массив строк

for i=LBound(astrWords) To UBound(astrWords)
     NewFileName =  NewFileName & astrWords(i)
     If astrWords(i)="." Then
          NewFileName = NewFileName & "txt"
          resume Next  
     End If
Next

ChangeExt = NewFileName 
End Function

Добавлено @ 03:01
Voldemar2004

Код


Function ChangeExt(String Filename)
Dim astrWords() as String
Dim char as String
astrWords = Split(Filename) 'разбиваем строку на массив строк

for i=LBound(astrWords) To UBound(astrWords)
     NewFileName =  NewFileName & astrWords(i)
     If astrWords(i)="." Then
          NewFileName = NewFileName & "txt"
          resume Next  
     End If
Next

ChangeExt = NewFileName 
End Function


Писал навскидку, так что протести и исправь ошибки smile


--------------------
Всё течёт ©
PM MAIL ICQ   Вверх
Voldemar2004
Дата 25.3.2005, 17:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23
по-моему вот так должно быть:

Код

Function ChangeExt(Filename As String).


В справочнике по строковым функциям я нашел:

Left(СтроковоеВыражение,КоличествоСимволов) - возвращает строку, извелеченную из строки-параметра, начиная от начала строки, и содержащую заданное количество символов:

Код

Private Sub Command1_Click()
Dim Str As String, Ln As String

Str = Text1.Text
    Do
        Ln = Len(Str)
        Str = Replace(Str, " ", "")
    Loop While Len(Str) <> Ln
    
A = Left(Text1.Text, Ln - 3)
Text2.Text = A + "txt"

End Sub


и обходимся без своей функции.


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
Vidocq
Дата 26.3.2005, 13:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 431
Регистрация: 15.12.2004
Где: Запорожье, Украин а

Репутация: нет
Всего: 7
Voldemar2004
Так что, зафурыкало? smile


--------------------
Всё течёт ©
PM MAIL ICQ   Вверх
Voldemar2004
Дата 26.3.2005, 20:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23
Ну, да. Так вот че еще за ерунда получается:

Код

Name "c:\FOLDER\Folder Folder\file.ext" as "c:\FOLDER\FolderFolder\file1.ext"


не хочет работать:

сначала

Код

Name "c:\FOLDER\Folder Folder" As "c:\FOLDER\FolderFolder"


ну а потом

Код

Name "c:\FOLDER\FolderFolder\file.ext" as "c:\FOLDER\FolderFolder\file1.ext"



т.е. функцию свою придумывать или есть еще-что-то?

Это сообщение отредактировал(а) Voldemar2004 - 26.3.2005, 20:57


--------------------
i_i 
(';') 
(V)

user posted image
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0772 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.