Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Переход на следующую строку / 17 сообщений из 17, страница 1 из 1
14.07.2016, 14:12
    #39273792
Ekael
Ekael
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на следующую строку
в переменную занесён текст, при выводе этой переменной через msgbox выводит текст в три строки:
текст1
текст2
текст3

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


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


ошибка type mismatch
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2016, 14:31
    #39273815
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на следующую строку
что такое stroka ?
что такое a ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2016, 14:42
    #39273830
Ekael
Ekael
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на следующую строку
Konst_One,
stroka это переменная, в которую заносится текст первой строки
a это переменная, в которой хранится весь текст
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2016, 14:54
    #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, 15:05
    #39273848
Ekael
Ekael
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на следующую строку
Konst_One,
запускал в immediate не работает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2016, 15:08
    #39273853
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на следующую строку
а я вижу , что всё работает.

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

Код: vbnet
1.
2.
3.
...
Debug.Print i & ": " & arr(i)
...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2016, 15:20
    #39273868
Ekael
Ekael
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на следующую строку
Konst_One,
Буду по существу, в переменной а храниться какой-то текст, он не будет постоянный, потому что каждый день он будет разный, но он всегда будет состоять из трёх строк,
Мне надо текст первой строки поместить в переменную stroka1, второй stroka2, третьей stroka3. Может ваш код и правильный, но я в нем не разобрался, если да, то можете объяснить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2016, 15:51
    #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:52
    #39273920
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на следующую строку
вот так, а то наверняка у вас не установлен пресет
Код: vbnet
1.
2.
3.
...
Select Case i + 1
...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2016, 16:29
    #39273965
Ekael
Ekael
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на следующую строку
Konst_One,
Честно говоря ничего не работает я убрал debug.print потому что они мне не нужны и добавил добавление текста переменной в таблицу. результат-никакой.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2016, 16:43
    #39273991
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Переход на следующую строку
в отладке посмотрите значения переменных, а что вы там дальше делать с нимибудете я не в курсе и ,честно, даже не интересно уже
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.07.2016, 21:41
    #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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Переход на следующую строку / 17 сообщений из 17, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 446ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2155482]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 31ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 321ms
total:  446ms
x
x
Закрыть


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