ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Переход на следующую строку
17 сообщений из 17, страница 1 из 1
Переход на следующую строку
    #39273792
Ekael
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ekael
Гость
в переменную занесён текст, при выводе этой переменной через msgbox выводит текст в три строки:
текст1
текст2
текст3

Как можно занести в отдельные переменные текст каждой строки?
...
Рейтинг: 0 / 0
14.07.2016, 14:12
| Ответить | Цитировать | Написать  
Переход на следующую строку
    #39273793
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
split по vbCrLf
...
Рейтинг: 0 / 0
14.07.2016, 14:13
| Ответить | Цитировать | Написать  
Переход на следующую строку
    #39273800
Ekael
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ekael
Гость
Konst_One,
но split как знаю применяется с массивом, и я пробовал сплит, но у меня не получалось
Код: vbnet
1.
stroka = Split(a, Chr(10))


переменная а
...
Рейтинг: 0 / 0
14.07.2016, 14:16
| Ответить | Цитировать | Написать  
Переход на следующую строку
    #39273803
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Konst_OnevbCrLf
...
Рейтинг: 0 / 0
14.07.2016, 14:19
| Ответить | Цитировать | Написать  
Переход на следующую строку
    #39273804
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
вернёт массив строк
...
Рейтинг: 0 / 0
14.07.2016, 14:20
| Ответить | Цитировать | Написать  
Переход на следующую строку
    #39273807
Ekael
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ekael
Гость
Konst_One,
даже так
Код: vbnet
1.
stroka = Split(a, vbCrLf)


ошибка type mismatch
...
Рейтинг: 0 / 0
14.07.2016, 14:21
| Ответить | Цитировать | Написать  
Переход на следующую строку
    #39273815
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
что такое stroka ?
что такое a ?
...
Рейтинг: 0 / 0
14.07.2016, 14:31
| Ответить | Цитировать | Написать  
Переход на следующую строку
    #39273830
Ekael
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ekael
Гость
Konst_One,
stroka это переменная, в которую заносится текст первой строки
a это переменная, в которой хранится весь текст
...
Рейтинг: 0 / 0
14.07.2016, 14:42
| Ответить | Цитировать | Написать  
Переход на следующую строку
    #39273838
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
EkaelKonst_One,
stroka это переменная, в которую заносится текст первой строки
a это переменная, в которой хранится весь текст

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim a as String
Dim arr() as String
Dim i as Integer

a = "первая" & vbCrLf & "вторая" & vbCrLf & "третья"
arr = Split(a, vbCrLf)

For i = LBound(arr) To UBound(arr)
     Debug.Print arr(i)
Next
...
Рейтинг: 0 / 0
14.07.2016, 14:54
| Ответить | Цитировать | Написать  
Переход на следующую строку
    #39273848
Ekael
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ekael
Гость
Konst_One,
запускал в immediate не работает
...
Рейтинг: 0 / 0
14.07.2016, 15:05
| Ответить | Цитировать | Написать  
Переход на следующую строку
    #39273853
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
а я вижу , что всё работает.

arr(i) - это каждая ваша строка

Код: vbnet
1.
2.
3.
...
Debug.Print i & ": " & arr(i)
...
...
Рейтинг: 0 / 0
14.07.2016, 15:08
| Ответить | Цитировать | Написать  
Переход на следующую строку
    #39273868
Ekael
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ekael
Гость
Konst_One,
Буду по существу, в переменной а храниться какой-то текст, он не будет постоянный, потому что каждый день он будет разный, но он всегда будет состоять из трёх строк,
Мне надо текст первой строки поместить в переменную stroka1, второй stroka2, третьей stroka3. Может ваш код и правильный, но я в нем не разобрался, если да, то можете объяснить?
...
Рейтинг: 0 / 0
14.07.2016, 15:20
| Ответить | Цитировать | Написать  
Переход на следующую строку
    #39273915
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: vbnet
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.
Dim a as String
Dim arr() as String
Dim i as Integer
Dim stroka1 as String
Dim stroka2 as String
Dim stroka3 as String

a = "первая" & vbCrLf & "вторая" & vbCrLf & "третья"
arr = Split(a, vbCrLf)

For i = LBound(arr) To UBound(arr)
     Select Case i
           Case 1
                stroka1  = arr(i)
           Case 2
                stroka2  = arr(i)                
           Case 3
                stroka3  = arr(i)
    End Select
    'Debug.Print i & ": " & arr(i)
Next

Debug.Print "Вот что в моей строке stroka1: " & stroka1
Debug.Print "Вот что в моей строке stroka2: " & stroka2
Debug.Print "Вот что в моей строке stroka3: " & stroka3



тяжело как с вами, вообще ничего не хотите сами делать
...
Рейтинг: 0 / 0
14.07.2016, 15:51
| Ответить | Цитировать | Написать  
Переход на следующую строку
    #39273920
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
вот так, а то наверняка у вас не установлен пресет
Код: vbnet
1.
2.
3.
...
Select Case i + 1
...
...
Рейтинг: 0 / 0
14.07.2016, 15:52
| Ответить | Цитировать | Написать  
Переход на следующую строку
    #39273965
Ekael
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ekael
Гость
Konst_One,
Честно говоря ничего не работает я убрал debug.print потому что они мне не нужны и добавил добавление текста переменной в таблицу. результат-никакой.
...
Рейтинг: 0 / 0
14.07.2016, 16:29
| Ответить | Цитировать | Написать  
Переход на следующую строку
    #39273991
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
в отладке посмотрите значения переменных, а что вы там дальше делать с нимибудете я не в курсе и ,честно, даже не интересно уже
...
Рейтинг: 0 / 0
14.07.2016, 16:43
| Ответить | Цитировать | Написать  
Переход на следующую строку
    #39274162
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
Уж не знаю, почему Konst_One решил помочь в таком запущенном случае, но все же подыграю.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim text As String
Dim arr() As String
Dim str1 As String, str2 As String, str3 As String, 
text = "текст1" & vbNewLine & "текст2" & vbNewLine & "текст3"
arr = Split(text, vbNewLine)
If (UBound(arr) - LBound(arr) + 1) < 3 Then
  MsgBox "В тексте меньше трех строк"
  End
End If
str1 = arr(LBound(arr))
str2 = arr(LBound(arr)+1)
str3 = arr(LBound(arr)+2)
Debug.Print "str1 = " & str1
Debug.Print "str2 = " & str2
Debug.Print "str3 = " & str3
...
Рейтинг: 0 / 0
14.07.2016, 21:41
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Переход на следующую строку
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39273868&tid=2155482]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 45ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 313ms
total:  453ms
созд. / загр.: 453ms
x
x
Закрыть


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