Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа со строками / 20 сообщений из 20, страница 1 из 1
04.02.2008, 10:16
    #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:24
    #35107413
FAndrew
FAndrew
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа со строками
Replace
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2008, 10:43
    #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, 11:22
    #35107647
DEP1
DEP1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа со строками
Функция Mid() потом Replace(). Для того чтобы отрезать на отдельные куски потом уже Replace() сделать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2008, 11:45
    #35107766
Joris
Joris
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа со строками
Попробовал, не получилось или я что-то не так сделаю, ну общим как определить первой символ слова равно буква, например:
If Mid(slovo(0), 1, 1) =”Буква” - переведите на языке программированные
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2008, 11:57
    #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, 12:14
    #35107897
Joris
Joris
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа со строками
на счет это уже знаю, вот задача, ест строка надо проверит, если строка начинается с цифрами, то найти и разделить цифра из слова:

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

Количество буква в слова и цифры неизвестно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2008, 12:34
    #35107979
jenekcowboy
jenekcowboy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа со строками
а кто подскажет как добавлять символы или строки в строку?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2008, 12:38
    #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:58
    #35108070
jenekcowboy
jenekcowboy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа со строками
я имел ввиду допустим есть ячейки размером 4 на 4 ..вот из них мне надо все записать в строку
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2008, 13:14
    #35108148
FAndrew
FAndrew
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа со строками
jenekcowboyя имел ввиду допустим есть ячейки размером 4 на 4 ..вот из них мне надо все записать в строку
Ячейки чего есть? И в чем ей размер 4 на 4?

jenekcowboyа кто подскажет как добавлять символы или строки в строку?
Конкантенация - &
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2008, 13:17
    #35108154
DEP1
DEP1
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа со строками
Вот думаю полезный модуль с инета скачал может кому понадобится там есть полезные функции хотя их можно и самому писат но зачем заново изобретать колесо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2008, 16:27
    #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:30
    #35108802
mike160
mike160
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа со строками
конечно, где а = "2007 Экономика 2007 г. 3680,00 2,50 963258000"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.02.2008, 21:41
    #35109387
Worobjoff
Worobjoff
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа со строками
Так и не понял что автору надо. Но если задача сложная - решать надо с помощью регулярных выражений.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.02.2008, 06:01
    #35109569
Joris
Joris
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа со строками
DEP1Вот думаю полезный модуль с инета скачал может кому понадобится там есть полезные функции хотя их можно и самому писат но зачем заново изобретать колесо.

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

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

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

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

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

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

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

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

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

Я на такое предпочитаю не надеяться, а расчитывать на то что пользователь мог ввести в название что угодно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Работа со строками / 20 сообщений из 20, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 434ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2162735]:
 0ms
get settings:
 9ms
get forum list:
 21ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 81ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 65ms
get tp. blocked users:
 1ms
others: 233ms
total:  434ms
x
x
Закрыть


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