BB-Codes in Delphi darstellen

**dahead**

interessant.

was geht denn nicht? welche fehlermeldung?

wie sieht dein code aus?

fragen über fragen.

**Evian**

Hier probier das mal aus:

Delphi-Quellcode:

			unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, OleCtrls, SHDocVw, StdCtrls, ActiveX;

type

  TForm1 = class(TForm)

    Memo1: TMemo;

    WebBrowser1: TWebBrowser;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

function BBtoHTML(html : String): STRING;

BEGIN

  html:=StringReplace(html,'[','<',[rfReplaceAll]);

  html:=StringReplace(html,']','>',[rfReplaceAll]);

  result := '<html><head></head><body>'+html+'</body>';

END;

procedure TForm1.Button1Click(Sender: TObject);

var

  memStream: TMemoryStream;

  bbhtml : STRING;

begin

  bbhtml := BBtoHTML(memo1.Lines.Text);

  webbrowser1.Navigate('about:blank');

  while webbrowser1.ReadyState <> READYSTATE_COMPLETE do

  begin

    Sleep(5);

    Application.ProcessMessages;

  end;

  memStream := TMemoryStream.Create;

  memStream.Write(Pointer(bbhtml)^,Length(bbhtml));

  memStream.Seek(0,0);

  (webbrowser1.Document as IPersistStreamInit).Load(

    TStreamAdapter.Create(memStream));

  memStream.Free;

END;

end.

mit der Fettschrift geht es schon ... musst halt nur noch Zeilenumbruch und evtl. andere Codes von BB anpassen... kenn mich mit BB nicht aus.

**Die Muhkuh**

@dahead

StringReplace ist eine Funktion und gibt den formatierten String zurück:

markieren

Delphi-Quellcode:

			var

  I: Integer;

begin

for I := 0 to Memo1.Lines.Count - 1 do

  Memo1.Lines[I] := StringReplace(Memo1.Lines[I], 'Test suchen', 'Text ersetzen', [rfReplaceAll]);

end;

**dahead**

@Spider:

ja, danke weiß ich (eigentlich). habe vergessen das result zu übernehmen.

@sonic:

geht spiders version?

**Sonic the Hedgehoge**

spiders version geht danke

aber ich werds aufgeben ich bekomme des einfach nicht hin

**dahead**

Zitat:

aber ich werds aufgeben ich bekomme des einfach nicht hin

wenn du nicht willst, ist das was anderes.
andererseits könntest du auch schreiben was nicht geht, dann könnte dir wiederum jemand helfen.
liegt an dir dein problem zu schildern.

**Sonic the Hedgehoge**

es ging jetzt soweit mit dem ersetzen aber
dann ist alles ohne zeilenumbruch

Altes Projekt, aber vielleicht die Lösung: http://assarbad.net/stuff/!import/nico.old/DelphUBBsrc.zip

**Daniel**

Die WPTools (

http://www.wpcubed.com/products/wptools/index.htm) unterstützen ebenfalls einen Satz BBCodes.

Ob die Liste mittlerweile erweiterbar ist, kann ich jedoch nicht sagen. Die Standard-Codes werden aber auf alle Fälle untersützt.

**velgreyer**

Und was ist, wenn man auch Attribute in den BB-Tags miteinbringen möchte? 10x string_replace für [size=1], [size=2] usw.

Fang es garnicht erst an

Für solche Zwecke sind Reguläre Ausdrücke (Delphi-Link:

http://www.regular-expressions.info/delphi.html) geschaffen.

http://www.datar.de/s.jpg, vel

BB-Codes in Delphi darstellen

Re: BB-Codes in Delphi darstellen

Re: BB-Codes in Delphi darstellen

Re: BB-Codes in Delphi darstellen

Re: BB-Codes in Delphi darstellen

Re: BB-Codes in Delphi darstellen

Re: BB-Codes in Delphi darstellen

Re: BB-Codes in Delphi darstellen

Re: BB-Codes in Delphi darstellen

Re: BB-Codes in Delphi darstellen

Re: BB-Codes in Delphi darstellen

Forumregeln

dahead Registriert seit: 16. Mai 2005 620 Beiträge	#11 Re: BB-Codes in Delphi darstellen 27. Aug 2005, 21:31 interessant. was geht denn nicht? welche fehlermeldung? wie sieht dein code aus? fragen über fragen. mfg, dahead. Chuck Norris counted to infinity - twice.
	Zitat

Die Muhkuh Registriert seit: 21. Aug 2003 7.332 Beiträge Delphi 2009 Professional	#13 Re: BB-Codes in Delphi darstellen 27. Aug 2005, 21:33 @dahead StringReplace ist eine Funktion und gibt den formatierten String zurück: markieren Delphi-Quellcode: var I: Integer; begin for I := 0 to Memo1.Lines.Count - 1 do Memo1.Lines[I] := StringReplace(Memo1.Lines[I], 'Test suchen', 'Text ersetzen', [rfReplaceAll]); end; Manuel Blog reactivated
	Zitat

dahead Registriert seit: 16. Mai 2005 620 Beiträge	#14 Re: BB-Codes in Delphi darstellen 27. Aug 2005, 21:36 @Spider: ja, danke weiß ich (eigentlich). habe vergessen das result zu übernehmen. @sonic: geht spiders version? mfg, dahead. Chuck Norris counted to infinity - twice.
	Zitat

Sonic the Hedgehoge Registriert seit: 27. Aug 2005 7 Beiträge	#15 Re: BB-Codes in Delphi darstellen 27. Aug 2005, 21:38 spiders version geht danke aber ich werds aufgeben ich bekomme des einfach nicht hin
	Zitat

dahead Registriert seit: 16. Mai 2005 620 Beiträge	#16 Re: BB-Codes in Delphi darstellen 27. Aug 2005, 22:56 Zitat: aber ich werds aufgeben ich bekomme des einfach nicht hin wenn du nicht willst, ist das was anderes. andererseits könntest du auch schreiben was nicht geht, dann könnte dir wiederum jemand helfen. liegt an dir dein problem zu schildern. mfg, dahead. Chuck Norris counted to infinity - twice.
	Zitat

Sonic the Hedgehoge Registriert seit: 27. Aug 2005 7 Beiträge	#17 Re: BB-Codes in Delphi darstellen 27. Aug 2005, 23:07 es ging jetzt soweit mit dem ersetzen aber dann ist alles ohne zeilenumbruch
	Zitat

Olli (Gast) n/a Beiträge	#18 Re: BB-Codes in Delphi darstellen 27. Aug 2005, 23:24 Altes Projekt, aber vielleicht die Lösung: http://assarbad.net/stuff/!import/nico.old/DelphUBBsrc.zip
	Zitat

Daniel (Co-Admin) Registriert seit: 30. Mai 2002 Ort: Hamburg 13.920 Beiträge Delphi 10.4 Sydney	#19 Re: BB-Codes in Delphi darstellen 28. Aug 2005, 00:17 Die WPTools (http://www.wpcubed.com/products/wptools/index.htm) unterstützen ebenfalls einen Satz BBCodes. Ob die Liste mittlerweile erweiterbar ist, kann ich jedoch nicht sagen. Die Standard-Codes werden aber auf alle Fälle untersützt. Daniel R. Wolf mit Grüßen aus Hamburg
	Zitat