Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / определить количество символом в строке / 9 сообщений из 9, страница 1 из 1
27.09.2018, 09:52
    #39709043
assei
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определить количество символом в строке
Ребята подскажите пожалуйста, как при записи строки в текстовый файл записать определенное количество символов которые будут переносится на другую строку, например в Text4.Text записать определенное количество строк и остальное перенести на другую строку! заранее всем спасибо! пример приложил
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.09.2018, 10:14
    #39709070
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определить количество символом в строке
Функции Left$ и Mid$ вам в помощь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.09.2018, 10:20
    #39709078
assei
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определить количество символом в строке
Shocker.Pro, спасибо за подсказку, будем изучать!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.09.2018, 10:28
    #39709082
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определить количество символом в строке
asseiкак при записи строки в текстовый файл записать определенное количество символов которые будут переносится на другую строкуНи хрена не понять...

Допустим, что нужно следующее. Имеется длинная строка в переменной. Нужно записать её в текстовый файл, разбив на строки не длиннее заданной максимальной длины. Разбиение выполнять по пробелам, выравнивание справа не требуется. Тогда:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
longstr="некая длинная строка ... очень длинная ... строка"
maxlen=80 ' макс. длина строки в выводе
filename="c:\file.txt" ' файл для вывода

open filename for output as #1
do until trim(longstr)=""
    longstr=trim(longstr)
    part1=trim(left(longstr, maxlen))
    part2=trim(mid(longstr, maxlen + 1))
    if instr(part1, " ") > 0 then
	spacepos = instrrev(part1, " ")
	part2 = trim(mid(part1, spacepos)) & " " & part2
	part1 = trim(left(part1, spacepos))
    end if
    print #1, part1
    longstr=trim(part2)
loop
close #1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.09.2018, 10:29
    #39709083
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определить количество символом в строке
В принципе ещё небесполезно перед нарезкой убрать парные пробелы. Но это уже самостоятельно...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.09.2018, 10:45
    #39709096
assei
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определить количество символом в строке
Akina, додумался только вот до чего:
Код: vbnet
1.
Print #1, Left(Text4.Text, 60) + vbCrLf + Mid(Text4.Text, 61, 60)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.09.2018, 11:17
    #39709148
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определить количество символом в строке
Убиццо... а если там слово - его тупо пополам где получится? некрасиво же...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.09.2018, 11:37
    #39709166
assei
assei
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определить количество символом в строке
Akina, что то и ваш пример ни как не то количество символов может я строку не правильно записал:
Код: vbnet
1.
2.
3.
4.
5.
longstr = "Ф.И.О.: " & Text1 & " " & Text2 & " " & Text3 & ", г.р.: " & MaskEdBox3 & _
"п-т: серия: " & MaskEdBox5 & ", №: " & Text4 & ", Дата выд.: " & MaskEdBox4 & ", кп: " & _
MaskEdBox6 & "Кем выдан: " & Text6 & "Зарегистрирован: " & Text8 & "Место фак.прож.: " & Text9

maxlen = 60
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.09.2018, 12:28
    #39709204
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
определить количество символом в строке
Оттрассируйте код-то... откройте окно локальных переменных, и исполняйте по одному оператору, наблюдая за изменением значений переменных.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / определить количество символом в строке / 9 сообщений из 9, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 152ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2154998]:
 0ms
get settings:
 12ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 38ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 14ms
total:  152ms
x
x
Закрыть


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