powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / Разбить строку на подстроки и вывести на страницу
18 сообщений из 18, страница 1 из 1
Разбить строку на подстроки и вывести на страницу
    #37751570
newbie_newbie
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброго времени суток!
Помогите пожалуйста разобраться. В BDS 2006 Delphi создаю active server object. В Unit1 имеется строка, которую по разделителям (допустим '#') необходимо разбить на подстроки и вывести эти подстроки в браузер на страницу.
Вот то, что я попытался сделать...
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Unit1:

function TnewClass.Get_newName: WideString;
var
f: TStringList;
i: Integer;
begin
f:=TStringList.create;
f.Delimiter := '#';
f.DelimitedText := 'ddd#eee#hhh#hjgkjgjh#hhhuikl';       //строку необходимо разбить на подстроки
for i := 0 to f.Count-1 do
begin
Result :=f[i];
end;
end;



и файл .asp
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
<HTML>
<BODY>
<TITLE> Testing Delphi ASP </TITLE>
<CENTER>
<H3> You should see the results of your Delphi Active Server method below </H3>
</CENTER>
<HR>
<% Set DelphiASPObj = Server.CreateObject("Project1.newClass")
Dim varRet
varRet =  DelphiASPObj.newName
Response.write(varRet)
Dim i
For i=0 to UBound(varRet, 1)
Next
%>
<HR>
</BODY>
</HTML>



Может, все не так нужно делать? Помогите пожалуйста! Очень нужно!
...
Рейтинг: 0 / 0
Разбить строку на подстроки и вывести на страницу
    #37751803
brainproof
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Разбитие строки так сложно для вас?
Да и топик то по моему не в той ветке
...
Рейтинг: 0 / 0
Разбить строку на подстроки и вывести на страницу
    #37751818
brainproof
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
через делфу делать асп стрaницы? ...однако впервые такое вижу.
var words= inputString.split('#');
foreach (string s in words)
{
...
}
...
Рейтинг: 0 / 0
Разбить строку на подстроки и вывести на страницу
    #37751876
newbie_newbie
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
До этого только с С++ дело имел, с web и delphi впервые столкнулся, потому вопросы.
brainproof через делфу делать асп стрaницы?
Создается activex сервер (File->new->ActiveX->ActiveX Library), а затем File->...->Active Server Object.

Спасибо, что ответили....Разобраться очень надо, а инфы ни где найти не могу, либо не там ищу(((
А можно поподробнее про
brainproofvar words= inputString.split('#');
foreach (string s in words)
я так понял это регулярные выражения?
...
Рейтинг: 0 / 0
Разбить строку на подстроки и вывести на страницу
    #37751900
.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.
Гость
newbie_newbieВот то, что я попытался сделать...и каков результат? можешь привести тут получившийся HTML ?
...
Рейтинг: 0 / 0
Разбить строку на подстроки и вывести на страницу
    #37751943
Deza
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
newbie_newbieДо этого только с С++ дело имел, с web и delphi впервые столкнулся, потому вопросы.
brainproof через делфу делать асп стрaницы?
Создается activex сервер (File->new->ActiveX->ActiveX Library), а затем File->...->Active Server Object.

Спасибо, что ответили....Разобраться очень надо, а инфы ни где найти не могу, либо не там ищу(((
А можно поподробнее про
brainproofvar words= inputString.split('#');
foreach (string s in words)
я так понял это регулярные выражения?

С#
Возвращает строковый массив, содержащий подстроки данного экземпляра, разделенные элементами заданного массива знаков Юникода.

http://msdn.microsoft.com/ru-ru/library/b873y76a.aspx
...
Рейтинг: 0 / 0
Разбить строку на подстроки и вывести на страницу
    #37752112
newbie_newbie
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вот результат в браузере
http://radikal.ru/F/s019.radikal.ru/i623/1204/41/21d6b961d81a.jpg.html

Deza С#
Возвращает строковый массив, содержащий подстроки данного экземпляра, разделенные элементами заданного массива знаков Юникода.
А при чем здесь C# ???

В общем, что имеем: строка 'ddd#eee#hhh#hjgkjgjh#hhhuikl' выводиться на страницу без разделителей (#), но вот как теперь ее разбить чтоб каждое слово на новой строке писалось ума не приложу...
...
Рейтинг: 0 / 0
Разбить строку на подстроки и вывести на страницу
    #37752118
.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.
Гость
newbie_newbieкак теперь ее разбить чтоб каждое слово на новой строке писалось ума не приложу... http://htmlbook.ru/html/br
...
Рейтинг: 0 / 0
Разбить строку на подстроки и вывести на страницу
    #37752185
Deza
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
тыц

3 результат с верху, думать совершенно не умеем...
...
Рейтинг: 0 / 0
Разбить строку на подстроки и вывести на страницу
    #37752346
newbie_newbie
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо большое всем за ответы!!! Буду разбираться! )))
...
Рейтинг: 0 / 0
Разбить строку на подстроки и вывести на страницу
    #37752396
VIT2708
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
newbie_newbie,

String.substring(0, 2) - в скобках я привел пример 0 - начало строки, 2 количество символов
...
Рейтинг: 0 / 0
Разбить строку на подстроки и вывести на страницу
    #37779820
newbie_newbie
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А можете еще чутка помочь? Не могу понять...

В Unit1 пишу:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
var
f: TStringList;
begin
f:=TStringList.create;
f.text:=StringReplace('раз#два#три','#',#13#10,[rfReplaceAll]);
Response.write (f[0]);
Response.write (f[1]);
Response.write (f[2]);
f.free;
end;



А в my.asp
Код: html
1.
2.
3.
<% Set DelphiASPObj = Server.CreateObject("Project1.name") 
   Response.Write DelphiASPObj.pr
%>



И получается, что то что разбивается в Unit'e в итоге все равно выводиться как одна строка ,
т.к. "Response.Write DelphiASPObj.pr"

На экран выводит как " раздватри "
...
Рейтинг: 0 / 0
Разбить строку на подстроки и вывести на страницу
    #37779976
.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.
Гость
...
Рейтинг: 0 / 0
Разбить строку на подстроки и вывести на страницу
    #37779979
newbie_newbie
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Блин, да раз вы все такие умные, можно просто по человечески - на пальцах (коде) показать!? ПЛИЗЗЗЗЗ!!!!!!
...
Рейтинг: 0 / 0
Разбить строку на подстроки и вывести на страницу
    #37779989
.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.
Гость
ты мою ссылку почему не читал? религия не позволила?
...
Рейтинг: 0 / 0
Разбить строку на подстроки и вывести на страницу
    #37780000
newbie_newbie
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
http://htmlbook.ru/html/br - эту? Я это и без ссылочки знал...
но! я как понял - Response.Write DelphiASPObj.pr выводит сразу все, что описано в Unit'e : function Tname.Get_pr: WideString; не смотря на то, что там разбивка идет и весь массив снова одной строкой выдается... а как br запихать между элементами массива?
...
Рейтинг: 0 / 0
Разбить строку на подстроки и вывести на страницу
    #37780018
.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.
Гость
newbie_newbieя как понял - Response.Write DelphiASPObj.pr выводит сразу все, что описано в Unit'eне надо "я как понял"

а надо в браузере правой педалью мыши глянуть "Исходный код страницы" - это то что пришло в браузер от сервера
затем сравнить с тем что ты хочешь чтобы пришло в браузер от сервера
и соответственно изменить свой серверный код
...
Рейтинг: 0 / 0
Разбить строку на подстроки и вывести на страницу
    #37780021
newbie_newbie
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
хм....спасибо, щас попробую)
...
Рейтинг: 0 / 0
18 сообщений из 18, страница 1 из 1
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / Разбить строку на подстроки и вывести на страницу
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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