ReSQL.ru
     
powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / определить количество символом в строке
9 сообщений из 9, страница 1 из 1
определить количество символом в строке
    #39709043
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Ребята подскажите пожалуйста, как при записи строки в текстовый файл записать определенное количество символов которые будут переносится на другую строку, например в Text4.Text записать определенное количество строк и остальное перенести на другую строку! заранее всем спасибо! пример приложил
...
Рейтинг: 0 / 0
27.09.2018, 09:52
| Ответить | Цитировать | Написать  
определить количество символом в строке
    #39709070
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Функции Left$ и Mid$ вам в помощь
...
Рейтинг: 0 / 0
27.09.2018, 10:14
| Ответить | Цитировать | Написать  
определить количество символом в строке
    #39709078
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Shocker.Pro, спасибо за подсказку, будем изучать!
...
Рейтинг: 0 / 0
27.09.2018, 10:20
| Ответить | Цитировать | Написать  
определить количество символом в строке
    #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:28
| Ответить | Цитировать | Написать  
определить количество символом в строке
    #39709083
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
В принципе ещё небесполезно перед нарезкой убрать парные пробелы. Но это уже самостоятельно...
...
Рейтинг: 0 / 0
27.09.2018, 10:29
| Ответить | Цитировать | Написать  
определить количество символом в строке
    #39709096
assei
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assei
Гость
Akina, додумался только вот до чего:
Код: vbnet
1.
Print #1, Left(Text4.Text, 60) + vbCrLf + Mid(Text4.Text, 61, 60)
...
Рейтинг: 0 / 0
27.09.2018, 10:45
| Ответить | Цитировать | Написать  
определить количество символом в строке
    #39709148
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Убиццо... а если там слово - его тупо пополам где получится? некрасиво же...
...
Рейтинг: 0 / 0
27.09.2018, 11:17
| Ответить | Цитировать | Написать  
определить количество символом в строке
    #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, 11:37
| Ответить | Цитировать | Написать  
определить количество символом в строке
    #39709204
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Оттрассируйте код-то... откройте окно локальных переменных, и исполняйте по одному оператору, наблюдая за изменением значений переменных.
...
Рейтинг: 0 / 0
27.09.2018, 12:28
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / определить количество символом в строке
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=39709070&tid=2154998]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 62ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 279ms
total:  438ms
созд. / загр.: 438ms
x
x
Закрыть


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