542791_de-DE

liliconcom

Einfügen von Bildern in Text mit Tags zum Erstellen eines Anzeigefelds

Ich habe eine JSON, die ich mit GET-Anforderung erhalte. Der JSON enthält zwei Schlüssel, Text und Bilder . Bilder hat eine Liste von Objekten mit dem Namen des Bildes und dann das Bild.

Im Text „¤imagename|img¤“-Teile sind durch „imagename“-Bild zu ersetzen, von dem gefunden wurde Bilder .Unten ist ein Beispiel im assoziativen Array-Format

 

aa = Associative Array();
aa["text"] = "First line with no image
¤tile|img¤
text and ¤windmap|img¤ image
multiple ¤tile|img¤ ¤windmap|img¤ images
last line";
aa["images"] = Associative Array();
aa["images"]["tile"] = New Image("$SAMPLE_IMAGES/tile.jpg");
aa["images"]["windmap"] = New Image("$SAMPLE_IMAGES/windmap.png");

In der Originalanwendung hat der Text Bilder, die in den Text eingebettet sind, also sieht es ungefähr so aus:

 

 

Die Frage ist also: Wie baut man das mit JSL? Ich habe dazu eine rekursive Funktion geschrieben (unten), aber ich suche nach anderen Ideen / um anderen Skriptern eine Herausforderung zu bieten.

 

Meine aktuelle Lösung (die vorerst gut genug funktioniert):

Mehr sehen...

Names Default To Here(1);

// example associative array
aa = Associative Array();
aa["text"] = "First line with no image
¤tile|img¤
text and ¤windmap|img¤ image
multiple ¤tile|img¤ ¤windmap|img¤ images
last line";
aa["images"] = Associative Array();
aa["images"]["tile"] = New Image("$SAMPLE_IMAGES/tile.jpg");
aa["images"]["windmap"] = New Image("$SAMPLE_IMAGES/windmap.png");


find_imgs = function({str}, {Default Local},
 /* find img names from string */
 imgs = {};
 cur_img = Regex(str, "(¤.+?\|img¤)");
 While(!IsMissing(cur_img),
  Insert Into(imgs, cur_img);
  Substitute Into(str, cur_img, "");
  cur_img = Regex(str, "(¤.+?\|img¤)");
 );
 return(imgs);
);

create_line_hlb = function({cur_str, img_list, aa, hlb = H List Box()}, {Default Local},
 /* create one line of the text */
 If(Length(cur_str) < 1, // no more cur str
  return(hlb);
 );

 If(N Items(img_list) == 0, // no images left -> add rest of text to text box 
  Insert Into(hlb, Text Box(cur_str));
  return(hlb);
 );

 img_idx = Contains(cur_str, img_list[1]);
 If(img_idx == 1,
  cur_img = Remove From(img_list, 1)[1];
  img = aa[Substr(Word(1, cur_img, "|"), 2)];
  hlb << Append(img);
  cur_str = Substr(cur_str, Length(cur_img) + 1);
 ,
  txt = Substr(cur_str, 1, img_idx - 1);
  Insert Into(hlb, Text Box(txt));
  cur_str = Substr(cur_str, img_idx );
 );
 create_line_hlb(cur_str, img_list, aa, hlb);
);


text_to_displaybox = function({aa}, {Default Local},
 /* create the displaybox based on associative array */
 vlb = V List Box();
 For Each({line}, Words(aa["text"], "\!N"),
  img_list = find_imgs(line);
  hlb = create_line_hlb(line, img_list, aa["images"] /*,H List Box()*/);
  vlb << Append(hlb);
 );
 return(vlb);
);

// Demo of script
// change size to make new window a bit smaller
aa["images"]["tile"] << Set Size({128, 128});
aa["images"]["windmap"] << Set Size({128, 128});

nw = New window("test", text_to_displaybox(aa));
Write();&nbsp;&nbsp;

 

Skripterstellung