ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / txt вывод в html
25 сообщений из 25, страница 1 из 1
txt вывод в html
    #36954478
ppc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ppc
Участник
Какой функцией пробелы в текстовом файле перевести в пробелы в html. Я понимаю что надо использовать nbsp. Но еще не понял как.

Делал вот так

Код: plaintext
1.
2.
3.
4.
5.
Do While i < intLen
                   If  Mid(strline,i, 1 )=" " Then
                   Mid(strline,i)=" &nbsp"
                   End If
                 Loop
Но нет не тут то было пишет Недопустимый вызов или аргумент процедуры: 'Mid'. Видимо нельзя так использлвать mid, а как можно еще не догадался. Подскажите как использовать эту функцию или как еще можно сделать вывод в html.
TXT файл выглядит вот так:
ФИО Математика Информатика История
Алексеев А.А. 5 5 5
Борисов И.А. 4 5 2
Елисеев А.П. 5 4 4
Егорина В.А. 4 4 4
Карамзин Р.О. 3 3 5
Гоголь А.В. 4 4 4
Церберов И.У. 4 5 5
Кербин В.К. 5 5 5
Увалов К.Н. 5 3 4
Ежиков А.П. 4 4 3
...
Рейтинг: 0 / 0
13.11.2010, 19:00
| Ответить | Цитировать | Написать  
txt вывод в html
    #36954479
ppc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ppc
Участник
попоравка Mid(strline,i,1)=" &nbsp "
...
Рейтинг: 0 / 0
13.11.2010, 19:01
| Ответить | Цитировать | Написать  
txt вывод в html
    #36954482
ppc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ppc
Участник
еще раз )
Mid(strline,i)=" nbsp "
...
Рейтинг: 0 / 0
13.11.2010, 19:02
| Ответить | Цитировать | Написать  
txt вывод в html
    #36954492
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
ppc,

вы хотите получить гладкий текст или таблицу для открытия в ворд
...
Рейтинг: 0 / 0
13.11.2010, 19:09
| Ответить | Цитировать | Написать  
txt вывод в html
    #36954494
ppc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ppc
Участник
Гладкий текст.
...
Рейтинг: 0 / 0
13.11.2010, 19:11
| Ответить | Цитировать | Написать  
txt вывод в html
    #36954495
ppc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ppc
Участник
но чтобы в том же формате что и в текстовом файле это важно
...
Рейтинг: 0 / 0
13.11.2010, 19:12
| Ответить | Цитировать | Написать  
txt вывод в html
    #36954498
ppc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ppc
Участник
Я дико извиняюсь можно и в таблице я в принципе так и начал

Код: plaintext
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.
 If objFileFSO.FileExists(strFileName) Then
          Set objFileTS=objFileFSO.OpenTextFile(strFileName, ForReading)

               response.write "<table border=1>"
               Do While  NOT objFileTS. AtEndOfStream
                 strLine=objFileTS.ReadLine()
                  intLen=Len(strLine)
                  Do While i < intLen
                   If  Mid(strline,i, 1 )=" " Then
                   Mid(strline,i, 1 )="&nbsp"
                   End If
                 Loop
		response.write " <tr><td>"
		response.write intLen
                Response.Write strLine
                response.write "</td></tr>"
                MyFile.Writeline (strLine)
           Loop
	   response.write "</table>"
           objFileTS.Close
           MyFile.Close
 Set MyFile=nothing

End If
...
Рейтинг: 0 / 0
13.11.2010, 19:14
| Ответить | Цитировать | Написать  
txt вывод в html
    #36954504
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
ppc,

все синтаксисы перепутались

?'<html>'
?'<meta http-equiv=Content-Type content="text/html; charset=windows-1251">'
?'<body>'
?'<pre>'
?mid('ФИО' & space(20),1,20)), 'Математика Информатика История'

выполнить пока есть записи
?mid(fio & space(20),1,20)),ot1,space(9),ot2,space(10),ot3
читать следующую
конец цикда


?'</pre>'
?'</body>'
?'<html>'
...
Рейтинг: 0 / 0
13.11.2010, 19:21
| Ответить | Цитировать | Написать  
txt вывод в html
    #36954516
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
ppc,

в таблице пробелы прописывать не надо, только выравнивание для числовых
Код: plaintext
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.
26.
27.
 If objFileFSO.FileExists(strFileName) Then
          Set objFileTS=objFileFSO.OpenTextFile(strFileName, ForReading)
 response.write "<html>"
response.write "<meta http-equiv=Content-Type content=""text/html; charset=windows-1251"">"
response.write "<body>"
               response.write "<table border=1>"
response.write "<tr><th>фио<th>Математика<th>Информатика<th>История"
  
               Do While  NOT objFileTS. AtEndOfStream
                 strLine=objFileTS.ReadLine()
strLine=" <tr><td align=left>" & fio & "<td align=center>" & ot1 ...........
                  
               
		response.write intLen
                Response.Write strLine
                response.write "</td></tr>"
                MyFile.Writeline (strLine)
           Loop
	   response.write "</table>"
 response.write "</body>"
 response.write "</html>"


           objFileTS.Close
           MyFile.Close
 Set MyFile=nothing

End If
...
Рейтинг: 0 / 0
13.11.2010, 19:33
| Ответить | Цитировать | Написать  
txt вывод в html
    #36954524
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
ПЕНСИОНЕРКА,

если response.write intLen порядковый номер


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
response.write "<tr><th>№№<th>фио<th>Математика<th>Информатика<th>История"
  
intLen= 0 
Do While  NOT objFileTS. AtEndOfStream
 strLine=objFileTS.ReadLine()

intLen=intLen+ 1 
strLine=" <td align=left>" & fio & "<td align=center>" & ot1 & "<td align=center>" & ot2 & "<td align=center>" & ot3
response.write "<tr><td align=right>" & intLen
Response.Write strLine


хотя у вас еще непонятка с strLine=objFileTS.ReadLine()
-у вас не структура на вводе, строка ?
-в этом случае надо искать пробел в строке и вставлять <td>
...
Рейтинг: 0 / 0
13.11.2010, 19:41
| Ответить | Цитировать | Написать  
txt вывод в html
    #36954546
ppc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ppc
Участник
strFileName="E:\ocenki.txt"
Set objFileTS=objFileFSO.OpenTextFile(strFileName, ForReading)
...
Рейтинг: 0 / 0
13.11.2010, 19:56
| Ответить | Цитировать | Написать  
txt вывод в html
    #36954552
ppc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ppc
Участник
Пишет ошибку
Предполагается наличие окончания инструкции
/FFILES/vivod1.asp, line 21, column 32
s3= mid(" ФИО" & space(20),1,20))
Какую инструкцию ему окончить надо я не понимаю
...
Рейтинг: 0 / 0
13.11.2010, 20:03
| Ответить | Цитировать | Написать  
txt вывод в html
    #36954553
ppc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ppc
Участник
Извиняюсь лишняя скобка)
...
Рейтинг: 0 / 0
13.11.2010, 20:04
| Ответить | Цитировать | Написать  
txt вывод в html
    #36954592
ppc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ppc
Участник
А в чем смысл space?
сделал вот так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
s1= mid(strLine & space( 20 ), 1 , 15 )
                 s2= mid(strLine & space( 9 ), 15 , 20 )
                 s3= mid(strLine & space( 1 ), 34 , 45 )

		       // response.write " <tr><td>"
		        response.write intLen
		        Response.Write s1
		        Response.Write s2
		        Response.Write s3
		        response.write "<br>"

Вывод в HTML
54ФИО Математика Информатика История
59Алексеев А.А. 5 5 5
60Борисов И.А. 4 5 2
61Елисеев А.П. 5 4 4
60Егорина В.А. 4 4 4
60Карамзин Р.О. 3 3 5
60Гоголь А.В. 4 4 4
60Церберов И.У. 4 5 5
60Кербин В.К. 5 5 5
61Увалов К.Н. 5 3 4
62Ежиков А.П. 4 4 3

Хотелось что бы отценки стояли под своими предметами если это возможно. Менял значения в space ничего не измнялось, так и не понял как с этим бороться.
...
Рейтинг: 0 / 0
13.11.2010, 20:38
| Ответить | Цитировать | Написать  
txt вывод в html
    #36954666
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Делать через <td> ... <tr>

Кстати, народ - а почему " nbsp "?
Правильный тэг пробела - &.n.b.s.p.; (точки внутри уберёте сами).
...
Рейтинг: 0 / 0
13.11.2010, 21:35
| Ответить | Цитировать | Написать  
txt вывод в html
    #36954676
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Как написать  : &nbsp;.
...
Рейтинг: 0 / 0
13.11.2010, 21:40
| Ответить | Цитировать | Написать  
txt вывод в html
    #36954679
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
От блин.
Как написать &nbsp;: &amp;nbsp;.
...
Рейтинг: 0 / 0
13.11.2010, 21:42
| Ответить | Цитировать | Написать  
txt вывод в html
    #36954926
ppc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ppc
Участник
ПЕНСИОНЕРКАПЕНСИОНЕРКА,

если response.write intLen порядковый номер


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
response.write "<tr><th>№№<th>фио<th>Математика<th>Информатика<th>История"
  
intLen= 0 
Do While  NOT objFileTS. AtEndOfStream
 strLine=objFileTS.ReadLine()

intLen=intLen+ 1 
strLine=" <td align=left>" & fio & "<td align=center>" & ot1 & "<td align=center>" & ot2 & "<td align=center>" & ot3
response.write "<tr><td align=right>" & intLen
Response.Write strLine


хотя у вас еще непонятка с strLine=objFileTS.ReadLine()
-у вас не структура на вводе, строка ?
-в этом случае надо искать пробел в строке и вставлять <td>
А как лучше всего искать пробел?
...
Рейтинг: 0 / 0
14.11.2010, 00:06
| Ответить | Цитировать | Написать  
txt вывод в html
    #36956006
ppc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ppc
Участник
Пенсионерка спасибо за помощь ;-)
...
Рейтинг: 0 / 0
15.11.2010, 00:35
| Ответить | Цитировать | Написать  
txt вывод в html
    #36956018
ppc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ppc
Участник
Все таки пока не разбеору как вместо пробела поставить тег td, ведь потом еще его надо закрыть после окончания слова перед новым пробелом?


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
    response.write "<table border=1> <tr><td>"
 Do While  NOT objFileTS. AtEndOfStream
                 strLine=objFileTS.ReadLine()
                  intLen=Len(strLine)
                 Do while i<intLen
                 if strLine(i)=" " Then
                  strLine(i)="<td>"
                 end if
                 Loop
                 
                Response.Write strLine
                response.write "</td></tr>"
                MyFile.Writeline (strLine)
		        response.write intLen
                MyFile.Writeline (strLine)
           Loop
Да и еще ругается на несоответствие типа вот на этом месте if strLine(i)=" " Then. Я в синтаксисе vba не силен подскажите в чем дело плз.
...
Рейтинг: 0 / 0
15.11.2010, 00:56
| Ответить | Цитировать | Написать  
txt вывод в html
    #36956034
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ppcДа и еще ругается на несоответствие типа вот на этом месте if strLine(i)=" " Then. Я в синтаксисе vba не силен подскажите в чем дело плз.
а что вы вообще хотели этим сказать:
strLine(i)
?
...
Рейтинг: 0 / 0
15.11.2010, 01:13
| Ответить | Цитировать | Написать  
txt вывод в html
    #36956145
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
ppc,

решение на vba-access
'на входе
''ФИО Математика Информатика История3 пробела'Алексеев А.А. 5 5 54 пробела'Борисов И.А. 4 5 24

Код: plaintext
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.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
Sub m101115_0879()
Dim intLen, j1, j2, s1, strLine
Open "c:\vba00.txt" For Input As # 1 
' Set objFileTS=objFileFSO.OpenTextFile(strFileName, ForReading)

Open "c:\vba00.htm" For Output As # 2 
'если дадите расширенис DOC,то легко откроете в WORD
'Set objFileTS=objFileFSO.OpenTextFile(strFileName, Forwriting)
Print # 2 , "<html>"
'Response.Write "<html>"
Print # 2 , "<meta http-equiv=Content-Type content=""text/html; charset=windows-1251"">"
Print # 2 , "<body>"
Print # 2 , "<table border=1>"

intLen =  0 
Do While EOF( 1 ) = False
'Do While Not objFileTS.AtEndOfStream

Line Input # 1 , strLine
 'strLine = objFileTS.ReadLine()

intLen = intLen +  1 
If intLen =  1  Then   'строка заголовка
    Print # 2 , "<thead>"
    Print # 2 , "<tr>"
    
    Print # 2 , "<th>№№"
    j1 = InStr(strLine, " ")
    Do While j1 >  0 
    Print # 2 , "<th>" & Mid(strLine,  1 , j1)
    strLine = Trim(Mid(strLine, j1))
    j1 = InStr(strLine, " ")
    Loop
    Print # 2 , "<th>" & strLine
    Print # 2 , "</thead>"
Else
    Print # 2 , "<tr>"
    Print # 2 , "<td align=right>" & (intLen -  1 )
    j1 = InStr(strLine, " ")
    j2 =  0 
    Do While j1 >  0 
    j2 = j2 +  1 
    If j2 =  1  Then 'fam
    Print # 2 , "<td align=left>" & Mid(strLine,  1 , j1)
    ElseIf j2 =  2  Then 'name-oth
    Print # 2 , " " & Mid(strLine,  1 , j1)
    Else               'отметки
    Print # 2 , "<td align=center>" & Mid(strLine,  1 , j1)
    s1 = ""
    End If
    strLine = Trim(Mid(strLine, j1))
    j1 = InStr(strLine, " ")
    Loop
    Print # 2 , "<td align=center>" & strLine
End If
Loop
 Print # 2 , "</table>"
 Print # 2 , "</html>"
Reset
'закрой файлы
End Sub
...
Рейтинг: 0 / 0
15.11.2010, 08:40
| Ответить | Цитировать | Написать  
txt вывод в html
    #36956625
ppc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ppc
Участник
Shocker.ProppcДа и еще ругается на несоответствие типа вот на этом месте if strLine(i)=" " Then. Я в синтаксисе vba не силен подскажите в чем дело плз.
а что вы вообще хотели этим сказать:
strLine(i)
?Эксперементировал я же сказал что синтаксис плохо знаю.
...
Рейтинг: 0 / 0
15.11.2010, 12:16
| Ответить | Цитировать | Написать  
txt вывод в html
    #36956654
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ppcShocker.Proпропущено...

а что вы вообще хотели этим сказать:
strLine(i)
?Эксперементировал я же сказал что синтаксис плохо знаю.
так я вижу, что плохо знаете. Вы же просите помочь с синтаксисом, я в свою очередь спрашиваю, а что вы хотели написать в этой строке
...
Рейтинг: 0 / 0
15.11.2010, 12:22
| Ответить | Цитировать | Написать  
txt вывод в html
    #36973954
ppc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ppc
Участник
Shocker.Proppcпропущено...
Эксперементировал я же сказал что синтаксис плохо знаю.
так я вижу, что плохо знаете. Вы же просите помочь с синтаксисом, я в свою очередь спрашиваю, а что вы хотели написать в этой строке
Я думал что смогу так по строке перемещаться, как в паскале.
...
Рейтинг: 0 / 0
24.11.2010, 13:01
| Ответить | Цитировать | Написать  
25 сообщений из 25, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / txt вывод в html
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=114&tid=2159218]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 31ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 65ms
get tp. blocked users:
 2ms
others: 14ms
total:  161ms
созд. / загр.: 161ms
x
x
Закрыть


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