Solved

control image tags in a string ?

Posted on 2016-11-10
12
62 Views
Last Modified: 2016-11-20
i have a string that contain those 6 image tags

StringI := '<img src="'path'"><img src="'path'"><img src="'path'"><img src="'path'"><img src="'path'"><img src="'path'">';

Open in new window


i want to control on that string so if the images string longer than or equal 6 remove the last 3 image tags from string  .

how can i achieve that in coding
0
Comment
Question by:dolphin King
  • 4
  • 4
  • 2
  • +1
12 Comments
 
LVL 14

Expert Comment

by:Pierre Cornelius
ID: 41883449
I suggest you break it down into an array of strings giving you indexed access to them. e.g.
uses StrUtils, Types;

procedure TForm1.Button1Click(Sender: TObject);
var StringI: string;
    i: integer;
    s: TStringDynArray;
begin
  StringI:= '<img src="path"><img src="path"><img src="path"><img src="path"><img src="path"><img src="path">';
  StringI:= StringReplace(StringI, '><','>;<', [rfReplaceAll]);
  s:= SplitString(StringI, ';');
  for i:= 0 to length(s)-1
    do ListBox1.Items.Add(s[i]);
end;

Open in new window

0
 
LVL 22

Expert Comment

by:Ferruccio Accalai
ID: 41883630
@i want to control on that string so if the images string longer than or equal 6 remove the last 3 image tags from string  .

Do you mean that you need just the first 3 img tags from the string?
If so you could use a function like this:
uses StrUtils;
function FirstThreeImgTags(S: String): string;
var
  p, t, i: integer;
begin
  p := 0;
  i := 1;
  while i <= 3 do
  begin
    p := posex('>', S, p+1);
    if p = 0 then
      break
    else
      t := p;
    inc(i);
  end;
  result := copy(S, 1, t);
end;

Open in new window

0
 

Author Comment

by:dolphin King
ID: 41884413
this text will be dynamic as example
strsm := 'Hi there My name is Trunk and this is my images <img src=""><img src=""> But This images need to be controlled <img src=""><img src=""><img src=""><img src="">'; 

Open in new window


i need to control on how Manny images Tags on that string

@Ferruccio Accalai your code clear all the text even without images on it  also i use this method in dll application not exe

@Pierre Cornelius This cannot be array its changeable string it does not have stable text or identification
0
 
LVL 36

Expert Comment

by:Geert Gruwez
ID: 41885564
how do those tags get in that text ?
where is the source of those texts coming from ?
0
 

Author Comment

by:dolphin King
ID: 41885899
@Geert Gruwez those tags are inserted from Tedit control so they can be changeable and not only images
0
IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 
LVL 36

Expert Comment

by:Geert Gruwez
ID: 41886135
So your form is used to generate the string
Well, do the checks upon generating the string
Checking after with parsing is more difficult
0
 
LVL 22

Expert Comment

by:Ferruccio Accalai
ID: 41894445
Why a deletion request without giving more inputs?
In the first question the request was about something that seems different from the real needs.
It's hard to give the right answer to a not completely clear question.
0
 
LVL 36

Expert Comment

by:Geert Gruwez
ID: 41894620
our answers are not helpful because you are not responding to our questions
this will be the same for every question you ask here

you didn't post any of your code either

so we are second guessing at what's really going on
which, btw, you didn't explain either
0
 

Author Comment

by:dolphin King
ID: 41894631
@Ferruccio Accalai  i have gives you more details see the following quote



this text will be dynamic as example
strsm := 'Hi there My name is Trunk and this is my images <img src=""><img src=""> But This images need to be controlled <img src=""><img src=""><img src=""><img src="">';

Open in new window

i need to control on how Manny images Tags on that string

@Ferruccio Accalai your code clear all the text even without images on it  also i use this method in dll application not exe

@Pierre Cornelius This cannot be array its changeable string it does not have stable text or identification



@Geert Gruwez giving more explanation already posted above ! which kind of codes i have to post ? the question were about how to do it.  that's means i am unable to write a solution myself .
0
 
LVL 36

Accepted Solution

by:
Geert Gruwez earned 500 total points
ID: 41894714
well, in pseudo it would be this:

using regular expression (cos a simple search doesn't work) count for the number of <img  src="">
and replace from the 7th with nothing, that's also with regex

the regex pattern you need to find is this: (case insensitive)
<img.*?src=".*?".*?>

this replaces all items found beyond the 6'th item with an empty string
unit uMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, RegularExpressions;

type
  TForm1 = class(TForm)
    mmoInput: TMemo;
    mmoOutput: TMemo;
    btnParse: TButton;
    procedure btnParseClick(Sender: TObject);
  private
    nMatchCount: Integer;
    function MatchReplace(const Match: TMatch): string;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnParseClick(Sender: TObject);
var R: TRegEx;
  mc: TMatchCollection;
  n: Integer;
begin
  // Find entry <img src="">
  // count
  R.Create('<img.*?src=".*?".*?>');
  mc := R.Matches(mmoInput.Text);
  n := mc.Count;
  if n > 6 then
  begin
    nMatchCount := 0;
    mmoOutput.Text := R.Replace(mmoInput.Text, MatchReplace);
  end;
end;

function TForm1.MatchReplace(const Match: TMatch): string;
begin
  Inc(nMatchCount);
  Result := Match.Value;
  if nMatchCount> 6 then Result := '';
end;

end.

Open in new window

0
 

Author Closing Comment

by:dolphin King
ID: 41894719
Thats works Thanks
0

Featured Post

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

Suggested Solutions

Displaying an arrayList in a listView using the default adapter is rarely the best solution. To get full control of your display data, and to be able to refresh it after editing, requires the use of a custom adapter.
In this post we will learn how to connect and configure Android Device (Smartphone etc.) with Android Studio. After that we will run a simple Hello World Program.
An introduction to basic programming syntax in Java by creating a simple program. Viewers can follow the tutorial as they create their first class in Java. Definitions and explanations about each element are given to help prepare viewers for future …
In this fifth video of the Xpdf series, we discuss and demonstrate the PDFdetach utility, which is able to list and, more importantly, extract attachments that are embedded in PDF files. It does this via a command line interface, making it suitable …

757 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now