ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа со строками
20 сообщений из 20, страница 1 из 1
Работа со строками
    #35107391
Joris
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joris
Участник
Как обработать такой файл:
2007 Экономика 2007 г. 3680,00 2,50 963258000
2007 Информатика 2007 г. 520,00 2,50 963258000
В таком виде:
2007_Экономика 2007 г._3680,00_2,50_963258000
2007_Информатика 2007 г._520,00_2,50_963258000
т.е. заменить пробела до или после слова например:
...
Рейтинг: 0 / 0
04.02.2008, 10:16
| Ответить | Цитировать | Написать  
Работа со строками
    #35107413
FAndrew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FAndrew
Участник
Replace
...
Рейтинг: 0 / 0
04.02.2008, 10:24
| Ответить | Цитировать | Написать  
Работа со строками
    #35107477
Joris
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joris
Участник
понятно,
Test = Replace(Test, " ", "_")
вот так у меня получается
2007_Экономика_2007_г._3680,00_2,50_963258000
Мне надо вот такой строка:
2007_Экономика 2007 г._3680,00_2,50_963258000
...
Рейтинг: 0 / 0
04.02.2008, 10:43
| Ответить | Цитировать | Написать  
Работа со строками
    #35107647
DEP1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DEP1
Гость
Функция Mid() потом Replace(). Для того чтобы отрезать на отдельные куски потом уже Replace() сделать.
...
Рейтинг: 0 / 0
04.02.2008, 11:22
| Ответить | Цитировать | Написать  
Работа со строками
    #35107766
Joris
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joris
Участник
Попробовал, не получилось или я что-то не так сделаю, ну общим как определить первой символ слова равно буква, например:
If Mid(slovo(0), 1, 1) =”Буква” - переведите на языке программированные
...
Рейтинг: 0 / 0
04.02.2008, 11:45
| Ответить | Цитировать | Написать  
Работа со строками
    #35107826
DEP1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DEP1
Гость
Компилируй этот код если что не поймеш пиши:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Private Sub Form_Load()

Dim str As String
Dim partone As String
Dim parttwo As String
Dim Result As String

str = "Welcome To Visual Basic"

partone = Replace(Mid(str,  1 ,  10 ), " ", "_")

MsgBox partone

parttwo = Replace(Mid(str,  11 ,  13 ), " ", "_")

MsgBox parttwo

Result = partone + parttwo

MsgBox Result


End Sub
...
Рейтинг: 0 / 0
04.02.2008, 11:57
| Ответить | Цитировать | Написать  
Работа со строками
    #35107897
Joris
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joris
Участник
на счет это уже знаю, вот задача, ест строка надо проверит, если строка начинается с цифрами, то найти и разделить цифра из слова:

1236580русскийязык3220002365550английкийязик
123658023300121265русскийязыкывывыв3220002365550английкийязик
35346346312435435345русскийязыкывывывывывывывыв3220002365550ывывывывыанглийкийязик

Количество буква в слова и цифры неизвестно
...
Рейтинг: 0 / 0
04.02.2008, 12:14
| Ответить | Цитировать | Написать  
Работа со строками
    #35107979
jenekcowboy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jenekcowboy
Гость
а кто подскажет как добавлять символы или строки в строку?
...
Рейтинг: 0 / 0
04.02.2008, 12:34
| Ответить | Цитировать | Написать  
Работа со строками
    #35107998
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
Максимально быстрая функция:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Function MyReplace(ByVal s As String) As String
    Dim i As Integer, j As Integer, k As Integer
    
    Mid$(s, InStr( 1 , s, " ", vbBinaryCompare),  1 ) = "_"
    i = Len(s)
    For k =  0  To  2 
        j = InStrRev(s, " ", i, vbBinaryCompare)
        Mid$(s, j,  1 ) = "_"
        i = j -  1 
    Next k
    MyReplace = s
End Function
...
Рейтинг: 0 / 0
04.02.2008, 12:38
| Ответить | Цитировать | Написать  
Работа со строками
    #35108070
jenekcowboy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
jenekcowboy
Гость
я имел ввиду допустим есть ячейки размером 4 на 4 ..вот из них мне надо все записать в строку
...
Рейтинг: 0 / 0
04.02.2008, 12:58
| Ответить | Цитировать | Написать  
Работа со строками
    #35108148
FAndrew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FAndrew
Участник
jenekcowboyя имел ввиду допустим есть ячейки размером 4 на 4 ..вот из них мне надо все записать в строку
Ячейки чего есть? И в чем ей размер 4 на 4?

jenekcowboyа кто подскажет как добавлять символы или строки в строку?
Конкантенация - &
...
Рейтинг: 0 / 0
04.02.2008, 13:14
| Ответить | Цитировать | Написать  
Работа со строками
    #35108154
DEP1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DEP1
Гость
Вот думаю полезный модуль с инета скачал может кому понадобится там есть полезные функции хотя их можно и самому писат но зачем заново изобретать колесо.
...
Рейтинг: 0 / 0
04.02.2008, 13:17
| Ответить | Цитировать | Написать  
Работа со строками
    #35108797
mike160
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mike160
Участник
JorisКак обработать такой файл:
2007 Экономика 2007 г. 3680,00 2,50 963258000
2007 Информатика 2007 г. 520,00 2,50 963258000
В таком виде:
2007_Экономика 2007 г._3680,00_2,50_963258000
2007_Информатика 2007 г._520,00_2,50_963258000
т.е. заменить пробела до или после слова например:

Вот это поможет : Replace(Split(a, "г. ")(0), " ", "_") + "г. " + Replace(Split(a, "г. ")(1), " ", "_")
...
Рейтинг: 0 / 0
04.02.2008, 16:27
| Ответить | Цитировать | Написать  
Работа со строками
    #35108802
mike160
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mike160
Участник
конечно, где а = "2007 Экономика 2007 г. 3680,00 2,50 963258000"
...
Рейтинг: 0 / 0
04.02.2008, 16:30
| Ответить | Цитировать | Написать  
Работа со строками
    #35109387
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Так и не понял что автору надо. Но если задача сложная - решать надо с помощью регулярных выражений.
...
Рейтинг: 0 / 0
04.02.2008, 21:41
| Ответить | Цитировать | Написать  
Работа со строками
    #35109569
Joris
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joris
Участник
DEP1Вот думаю полезный модуль с инета скачал может кому понадобится там есть полезные функции хотя их можно и самому писат но зачем заново изобретать колесо.

Подцепил ваш модуль в программ наработает, или что-то нетто сделал…
...
Рейтинг: 0 / 0
05.02.2008, 06:01
| Ответить | Цитировать | Написать  
Работа со строками
    #35109571
Joris
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Joris
Участник
WorobjoffТак и не понял что автору надо. Но если задача сложная - решать надо с помощью регулярных выражений.
Задача помоему сложно, в строка количество буква в слав и цифр неизвестно просто разделит цифра из слов, первый и последний буква в слов неизвестно………..
Пока я сам не разбирался, поэтому обращаюсь к вашу помощь.
...
Рейтинг: 0 / 0
05.02.2008, 06:08
| Ответить | Цитировать | Написать  
Работа со строками
    #35109676
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
mike160
Вот это поможет : Replace(Split(a, "г. ")(0), " ", "_") + "г. " + Replace(Split(a, "г. ")(1), " ", "_")

Некорректно.

Там ведь, по идее, не только приведенные автором вопроса слова могут быть, но и другие.
А вместо "Экономика" может быть "Теоретическая механика".
Соответственно и "г." для разделения использовать нельзя - а вдруг встретится в каком-то названии... Ну и операции конактации строк и Split не самые быстрые в любом языке (хотя для единичной операции большой роли не сыграют, конечно). Т.е задачу лучше рассматривать именно в таком плане, чтобы не скатиться совсем уж к примитиву.

А правильный ответ - дык он уже был... ;)
...
Рейтинг: 0 / 0
05.02.2008, 08:40
| Ответить | Цитировать | Написать  
Работа со строками
    #35110827
mike160
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mike160
Участник
AndrF mike160
Вот это поможет : Replace(Split(a, "г. ")(0), " ", "_") + "г. " + Replace(Split(a, "г. ")(1), " ", "_")

Некорректно.

Там ведь, по идее, не только приведенные автором вопроса слова могут быть, но и другие.
А вместо "Экономика" может быть "Теоретическая механика".
Соответственно и "г." для разделения использовать нельзя - а вдруг встретится в каком-то названии... Ну и операции конактации строк и Split не самые быстрые в любом языке (хотя для единичной операции большой роли не сыграют, конечно). Т.е задачу лучше рассматривать именно в таком плане, чтобы не скатиться совсем уж к примитиву.

А правильный ответ - дык он уже был... ;)

1.<<А вместо "Экономика" может быть "Теоретическая механика".>>
Ну и пусть будет, все равно сработает.

2.<<Соответственно и "г." для разделения использовать нельзя...>>
Не "г.", а "г" + точка + пробел : я предполагаю что структура строк регулярная, это уж пусть
автор сам проверит (можно сбросить данные в Access, SQL и т.д. и проверить запросом встречаются ли "г. " в других местах, кроме как в обозначении года)
...
Рейтинг: 0 / 0
05.02.2008, 14:03
| Ответить | Цитировать | Написать  
Работа со строками
    #35114190
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
mike160
Не "г.", а "г" + точка + пробел : я предполагаю что структура строк регулярная, это уж пусть
автор сам проверит (можно сбросить данные в Access, SQL и т.д. и проверить запросом встречаются ли "г. " в других местах, кроме как в обозначении года)

Я на такое предпочитаю не надеяться, а расчитывать на то что пользователь мог ввести в название что угодно.
...
Рейтинг: 0 / 0
06.02.2008, 15:51
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа со строками
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=202&tid=2162735]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 28ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 217ms
total:  343ms
созд. / загр.: 343ms
x
x
Закрыть


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