Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / txt вывод в html / 25 сообщений из 25, страница 1 из 1
13.11.2010, 19:00
    #36954478
ppc
ppc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
txt вывод в html
Какой функцией пробелы в текстовом файле перевести в пробелы в 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:01
    #36954479
ppc
ppc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
txt вывод в html
попоравка Mid(strline,i,1)=" &nbsp "
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2010, 19:02
    #36954482
ppc
ppc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
txt вывод в html
еще раз )
Mid(strline,i)=" nbsp "
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2010, 19:09
    #36954492
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
txt вывод в html
ppc,

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

Код: 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:21
    #36954504
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
txt вывод в html
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:33
    #36954516
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
txt вывод в html
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:41
    #36954524
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
txt вывод в html
ПЕНСИОНЕРКА,

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

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

если 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
| Ответить | Цитировать | Написать  
15.11.2010, 00:35
    #36956006
ppc
ppc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
txt вывод в html
Пенсионерка спасибо за помощь ;-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2010, 00:56
    #36956018
ppc
ppc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
txt вывод в html
Все таки пока не разбеору как вместо пробела поставить тег 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, 01:13
    #36956034
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
txt вывод в html
ppcДа и еще ругается на несоответствие типа вот на этом месте if strLine(i)=" " Then. Я в синтаксисе vba не силен подскажите в чем дело плз.
а что вы вообще хотели этим сказать:
strLine(i)
?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2010, 08:40
    #36956145
ПЕНСИОНЕРКА
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
txt вывод в html
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, 12:16
    #36956625
ppc
ppc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
txt вывод в html
Shocker.ProppcДа и еще ругается на несоответствие типа вот на этом месте if strLine(i)=" " Then. Я в синтаксисе vba не силен подскажите в чем дело плз.
а что вы вообще хотели этим сказать:
strLine(i)
?Эксперементировал я же сказал что синтаксис плохо знаю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.11.2010, 12:22
    #36956654
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
txt вывод в html
ppcShocker.Proпропущено...

а что вы вообще хотели этим сказать:
strLine(i)
?Эксперементировал я же сказал что синтаксис плохо знаю.
так я вижу, что плохо знаете. Вы же просите помочь с синтаксисом, я в свою очередь спрашиваю, а что вы хотели написать в этой строке
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2010, 13:01
    #36973954
ppc
ppc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
txt вывод в html
Shocker.Proppcпропущено...
Эксперементировал я же сказал что синтаксис плохо знаю.
так я вижу, что плохо знаете. Вы же просите помочь с синтаксисом, я в свою очередь спрашиваю, а что вы хотели написать в этой строке
Я думал что смогу так по строке перемещаться, как в паскале.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / txt вывод в html / 25 сообщений из 25, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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