Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - ASP и VBScript

Страница: 1 |

 

  Вопрос: Считывание файла ASP .NET Добавлено: 12.06.03 23:20  

Автор вопроса:  hedgehog | Web-сайт: ezh.ru | ICQ: 175571327 

При считывании файла возвращается строка, состоящая только из знаков препинания и латинских букв. В общем русский текст начисто игнорируется. Кто знает как с этим бороться и что я делаю не так или чего не делаю?

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 hedgehog



ICQ: 175571327 

Вопросов: 15
Ответов: 207
 Web-сайт: ezh.ru
 Профиль | | #1
Добавлено: 12.06.03 23:36

Конкретизирую проблему: имею страницу, в которой пользовательский контрол, в который должен выводиться текст из текстового файла. Файл определяется в зависимости от параметров в URL - article и part. Имя файла в таком случае, если например article = 1 и part = 2, будет 1.2.txt, если URL без параметров то открывается файл about.workshop.txt.

workshop.aspx

...

<%@ Register TagPrefix="hedge" TagName="outputArea" src="user_controls/workshop.output.area.ascx" %>

<SCRIPT language="vb" runat="server">

Dim Article As String

Dim Part As String

Sub GetParameters()

Article = Request.QueryString("article")

Part = Request.QueryString("part")

If Article Is Nothing Then Article = "0"

If Part Is Nothing Then Part = "0"

End Sub

Sub Page_Load(Sender As Object, E As EventArgs)

GetParameters

outputControl.Article = Int32.Parse(Article)

outputControl.Part = Int32.Parse(Part)

outputControl.PrintArticle()

End Sub

</SCRIPT>

.......... страница и все такое ................

<HEDGE:OUTPUTAREA id="outputControl" runat="server" />

.......... страница и все такое ................

 

и сам контрол workshop.output.area.ascx

<%@ Import Namespace="System.IO" %> <%@ Import Namespace="System.IO" %>

<%@ Control Language="vb" AutoEventWireup="false" Codebehind="workshop.output.area.ascx.vb" Inherits="hedgehog.net.workshop_output_area" TargetSchema="http://schemas.microsoft.com/intellisense/ie5" %>

<SCRIPT language="vb" runat="server">

Private _Article As Integer

Private _Part As Integer

Public WriteOnly Property Article As Integer

Set(Value As Integer)

_Article = Value

End Set

End Property

Public WriteOnly Property Part As Integer

Set(Value As Integer)

_Part = Value

End Set

End Property

Public Sub PrintArticle()

Dim strPath As String

If _Article > 0 And _Part > 0 Then

strPath = Server.MapPath("articles/" & _Article & "." & _Part & ".txt")

Else

strPath = Server.MapPath("articles/about.workshop.txt")

<

Ответить

Номер ответа: 2
Автор ответа:
 hedgehog



ICQ: 175571327 

Вопросов: 15
Ответов: 207
 Web-сайт: ezh.ru
 Профиль | | #2
Добавлено: 12.06.03 23:39

В конце предыдущего - это просто мусор при копировании получился откуда-то. Дико извиняюсь. Короче, после

<ASP:LABEL id="mainArea" runat="server" />

ничего кроме вопроса быть не должно было

Ответить

Номер ответа: 3
Автор ответа:
 Павел



Администратор

ICQ: 326066673 

Вопросов: 368
Ответов: 5968
 Web-сайт: www.vbnet.ru
 Профиль | | #3
Добавлено: 13.06.03 08:26

Чем читаешь?

Когда открываешь FileStream, посмотри, там в конструкторе есть параметр Encoding. Посставь его равным Text.Encoding.GetEncoding(1251).

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам