Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Определить позицию слова в тексте / 16 сообщений из 16, страница 1 из 1
13.07.2012, 13:21
    #37878091
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить позицию слова в тексте
Всем доброго дня !!!

Есть текст (вернее всего редактор программы)
В нем написан код программы
Как определить, что некоторые слова текста
начинаются с нулевой позиции.
Т.е. с самого левого края ?

Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2012, 13:27
    #37878105
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить позицию слова в тексте
ну левому краю, очевидно, предшествует vbCrLf
вот и ищи vbCrLf+"слово"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2012, 13:34
    #37878123
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить позицию слова в тексте
Так вроде все строки заканчиваются vbCrLf ...
Не имея значения откуда слева начинаются.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2012, 13:40
    #37878137
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить позицию слова в тексте
так в чем проблема-то. не понимаю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2012, 13:50
    #37878159
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить позицию слова в тексте
Например такой текст проги

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
stripLeadingSpaces(string)
    f i=1:1:$l(string) QUIT:$e(string,i)'=" "
    QUIT $e(string,i,$l(string))
stripTrailingSpaces(string)
    n i,spaces,new
    s spaces=$$makeString(" ",100)
    s new=string_spaces
    QUIT $p(new,spaces,1)
makeString(char,len) 
   ...



Как определить эти три строки:
stripLeadingSpaces(string)
stripTrailingSpaces(string)
makeString(char,len)
которые начинаются с нулевой позиции, те с левого края
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2012, 14:15
    #37878222
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить позицию слова в тексте
> Автор: Valeriu
> Например такой текст проги

здесь ПХП(или что это за язык???) никто не знает

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2012, 14:17
    #37878228
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить позицию слова в тексте
> Автор: Valeriu
> которые начинаются с нулевой позиции, те с левого края

это те строки у которых после vbCrLf нет vbTab или пробела. В чем сложность???

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2012, 15:14
    #37878408
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить позицию слова в тексте
Я предполагаю, что vbCrLf находятся не в начале строки, а в конце ..

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim arr As String[]
Dim i As Integer
Dim arrstring As String[]

  arr = Split(SRCTXT.Text, "\n")
  For i = 0 To arr.Count - 1
  If InStr(arr[i], "\n") And Not InStr(arr[i], " ") Then
    Message(arr[i])
  Endif
  Next
' Catch
 '  Message.Error("Code: " & Error.Code & ", = " & Error.Text & " At: " & Error.Where, " OK ")



Это не работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2012, 15:16
    #37878414
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить позицию слова в тексте
Код: vbnet
1.
2.
3.
4.
Dim arr As String[]

...
arr = Split(SRCTXT.Text, "\n")



это явно не VB6.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2012, 15:16
    #37878417
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить позицию слова в тексте
CRLF = \r\n
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2012, 15:17
    #37878419
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить позицию слова в тексте
Правильно, это Gambas, но структура кода похоже.
Дело в сути .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2012, 15:19
    #37878425
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить позицию слова в тексте
Код: vbnet
1.
InStr(arr[i], "\n")



этого там не будет после сплита никогда, условие меняй
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2012, 15:28
    #37878450
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить позицию слова в тексте
В arr[i] я получаю каждую строку в цикле.
Проверено. Вот ее и проверяю ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2012, 15:29
    #37878455
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить позицию слова в тексте
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
  arr = Split(SRCTXT.Text, "\n")
'в массиве строки без \n будут
  For i = 0 To arr.Count - 1
  If InStr(arr[i], "\n") And Not InStr(arr[i], " ") Then
'сюда никогда не попадёт
    Message(arr[i])
  Endif
  Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2012, 15:30
    #37878461
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить позицию слова в тексте
Код: vbnet
1.
If Left(arr[i], 1) <> " " And Left(arr[i], 1) <> ";" And Left(arr[i], 1) <> vbTab Then



......
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2012, 15:35
    #37878476
Valeriu
Valeriu
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Определить позицию слова в тексте
авторэто те строки у которых после vbCrLf нет vbTab или пробела. В чем сложность???
Я просто пошел по этому пути ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Определить позицию слова в тексте / 16 сообщений из 16, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 174ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2157596]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 50ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 58ms
get tp. blocked users:
 2ms
others: 17ms
total:  174ms
x
x
Закрыть


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