<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0026)http://www.list-editor.de/ -->
LIST-EDITOR Â Mario Mueller
<meta name='description' content='Dieser Editor dient der Bearbeitung und Auswertung von Listen.'>
<meta name='author' content='Mario Mueller'>
<meta name='keywords' content='Editor, Listen,
Bearbeiten,Auswerten, Mario, Mueller'>
<meta content='text/html; charset=windows-1252' http-equiv='Content-Type'>
<script language='JavaScript'>
<!--
var tab_warn = "Im Arbeitsbereich wurden Tabulatoren festgestellt. Dies kann zu unerwuenschten Ergebnissen fuehren. Sie sollten die Tabulatoren entfernen (Button Sonderfunktionen -> Tabulatoren ausgleichen.) Wollen Sie dies jetzt tun?";
var BM = " Bundesministerium ";
var help_doku = "Diese Funktion ist in der allgemeinen Hilfe dokumentiert.\nBetaetigen Sie hierzu den Button HILFE.";
var back_work = "Im Arbeitsbereich ist jetzt die Hilfe eingeblendet.\n\nWenn Sie die Hilfe gelesen haben, betaetigen Sie RUECKGAENGIG um zu Ihrer Arbeit zurueckzukehren.";
var C_PLEASE_MARK = "Bitte eine Markierung vornehmen. Es konnte keine Markierung gefunden werden. Wollen Sie Hilfe?";
var C_20 = "____________________";
var n = "\n"+"\n";
var Beispiel_einer_liste =
" "+BM +"der Finanzen 10117 Berlin Wilhelmstraße 97 "+ "\n"+
" "+BM +"des Innern 10559 Berlin Alt-Moabit 101 D "+ "\n"+
" "+BM +"für Bildung und Forschung 53175 Bonn Heinemannstr. 2 "+ "\n"+
" "+BM +"für Gesundheit 53121 Bonn Am Propsthof 78 a "+ "\n";
var bsp_31 =
" 3.1) Spaltenweises Loeschen:"+"\n"+"\n"
+ " Sie wollen in folgender Liste in jeder Zeile die Postleitzahl"+"\n"
+ " und den Ort entfernen."+"\n"+"\n"
+ Beispiel_einer_liste+"\n"
+ " Markieren Sie hierzu in der ERSTEN Zeile >>>10117 Berlin<<< "+"\n"
+ " Waehlen Sie die Funktion: >>>Loesche spaltenweise in jeder Zeile: die Markierung<<<"+"\n"+"\n"
+ " Ergebnis:"+"\n"+"\n"
+ " "+BM+"der Finanzen Wilhelmstraße 97 "+"\n"
+ " "+BM+"des Innern Alt-Moabit 101 D "+"\n"
+ " "+BM+"für Bildung und Forschung Heinemannstr. 2 "+"\n"
+ " "+BM+"für Gesundheit Am Propsthof 78 a "+"\n"+"\n"
+ " Die Funktion: >>>Loesche spaltenweise in jeder Zeile: alles ausser der Markierung<<<"+"\n"
+ " bewirkt das Gegenteil und laesst in jeder Zeile nur die Postleitzahl und den Ort stehen. "+"\n"+"\n";
var bsp_32 =
" 3.2) Spaltenweises Einfuegen:"+"\n"+"\n"
+" Angenommen Sie haben folgenden Text in den Arbeitsbereich gestellt:"+"\n"+"\n"
+" "+BM+"der Finanzen 10117 Berlin"+ "\n"
+" "+BM+"des Innern 10559 Berlin"+ "\n"
+" "+BM+"für Bildung und Forschung 53175 Bonn "+ "\n"
+" "+BM+"für Gesundheit 53121 Bonn "+ "\n"
+"\n"
+" und wollen folgendes Ergebnis:"+"\n"+"\n"
+" "+BM+"der Finanzen liegt in 10117 Berlin"+"\n"
+" "+BM+"des Innern liegt in 10559 Berlin"+"\n"
+" "+BM+"für Bildung und Forschung liegt in 53175 Bonn "+"\n"
+" "+BM+"für Gesundheit liegt in 53121 Bonn "+"\n"
+"\n"
+" Schreiben Sie hierzu in das Textfeld links unten >>> liegt in <<<."+"\n"
+" Markieren Sie in der ERSTEN Zeile >>>10117 Berlin<<<" + "\n"
+" Klicken Sie auf den Button >>>Links neben Markierung einfuegen<<<"+"\n"+"\n";
var bsp_4 =
" 4) ______ BEISPIEL FUER ZEILENWEISE-VERARBEITUNG:___________________"+C_20+"\n"+"\n"
+" Sie wollen in folgender Liste alle Zeilen loeschen, die als Ort >>>Berlin<<< haben" + "\n"
+ Beispiel_einer_liste+ "\n"
+" Markieren Sie hierzu in der ERSTEN Zeile >>>Berlin<<< (funktioniert auch mit Doppelklick!)"+"\n"
+" Waehlen Sie die Funktion: >>>Loesche Zeilen, welche die Markierung: genau an der Stelle enthalten<<<" + "\n"+"\n"
+" Ergebnis:"+"\n"+"\n"
+" "+BM+"für Bildung und Forschung 53175 Bonn Heinemannstr. 2 "+"\n"
+" "+BM+"für Gesundheit 53121 Bonn Am Propsthof 78 a "+"\n"
+"\n";
lineNo=0;
lineList=new Array();
merkList=new Array();
merkList_Links=new Array();
merkList_Rechts=new Array();
h_merkList_Links=new Array();
h_merkList_Rechts=new Array();
var work = document.createElement('textfield');
var workfield = document.createElement('textfield');
var merkarea_l = document.createElement('textarea');
var merkarea_r = document.createElement('textarea');
var h_merkarea_l = document.createElement('textarea');
var h_merkarea_r = document.createElement('textarea');
//**************************************************************************
// FUNKTION ALL_HILFE()
//**************************************************************************
function all_hilfe()
{
merken();
work.value = ""+"\n";
work.value += " 1)___ A L L G E M E I N E S ___________________________________________"+C_20+n;
work.value += " Der Editor wurde entworfen, um Listen zu bearbeiten."+"\n";
work.value += " Unter einer Liste wird ein Text verstanden, dessen einzelne Zeilen die gleiche Struktur aufweisen."+"\n";
work.value += " Diesen Text muessen Sie hier in den Arbeitsbereich mittels Copy&Paste einfuegen.";
work.value += "\n"+"\n";
work.value += " Beispiel einer Liste:"+"\n"+"\n";
work.value += Beispiel_einer_liste;
work.value += "\n";
work.value += " Dieser Text ist nun entweder SPALTENWEISE oder ZEILENWEISE editierbar." + "\n";
work.value += " Zusaetzlich bestehen Sortier- und Zaehlfunktionen." + "\n";
work.value += " Beispiele hierzu finden Sie weiter unten." + "\n";
work.value += "\n";
work.value += " 2)___ T E C H N I S C H E I N F O R M A T I O N E N _________________"+C_20+n;
work.value += " Die Funktionalitaeten des Editors sind ausschliesslich in Javascript codiert. Somit ist"+"\n";
work.value += " der Editor hardwareunabhängig und Sie benoetigen keine Installation auf Ihrem Rechner. "+"\n";
work.value += " Es wird lediglich empfohlen, den Microsoft Internet Explorer > 5.5 zu verwenden. "+"\n";
work.value += " Eine weitere Restriktion besteht in der Groesse der zu bearbeitenden Liste. "+"\n";
work.value += " Je nach Rechnerleistung kann die Verarbeitung von Listen mit einer "+"\n";
work.value += " Zeilenanzahl groesser 2000 mehrere Sekunden dauern. "+"\n";
work.value += " Die Praxis zeigt aber, dass solch grosse Listen eher eine Ausnahme"+"\n";
work.value += " darstellen."+"\n"+"\n";
work.value += " 3) ______ BEISPIELE FUER SPALTENWEISE-VERARBEITUNG:___________________"+C_20+n;
work.value += bsp_31;
work.value += bsp_32;
work.value += bsp_4;
work.value += " ______________"+C_20+C_20+C_20+C_20+"\n"+"\n";
work.value += " Weitere Hilfe erhalten Sie in den einzelen Selektionsboxen."+"\n"+"\n";
work.value += " LIST-EDITOR Â Mario Mueller"+"\n";
document.formular.textarea.value = work.value;
alert(back_work);
//prompt("");
}
//**************************************************************************
// FUNKTION help_lsijz()
//**************************************************************************
function help_lsijz()
{
merken();
document.formular.textarea.value = bsp_31;
alert(back_work);
}
//**************************************************************************
// FUNKTION help_sort_and_filter()
//**************************************************************************
function help_sort_and_filter()
{
merken();
work.value = " _________ BEISPIEL FUER NACH MARKIERUNG SORTIEREN:____________________"+C_20+n;
work.value += " Angenommen Sie wollen den folgenden Text nach dem Strassennamen sortieren.";
work.value += "\n"+"\n";
work.value += " "+BM+"der Finanzen 10117 Berlin Wilhelmstraße 97 "+"\n";
work.value += " "+BM+"des Innern 10559 Berlin Alt-Moabit 101 D "+"\n";
work.value += " "+BM+"für Bildung und Forschung 53175 Bonn Heinemannstr. 2 "+"\n";
work.value += " "+BM+"für Gesundheit 53121 Bonn Am Propsthof 78 a"+"\n";
work.value += "\n"+"\n";
work.value += " a) Markieren Sie hierzu in der ersten Zeile >>>Wilhelmstraße<<< (funktioniert auch mit Doppelklick!)"+"\n";
work.value += " b) Waehlen Sie dann: Sortier- und Filterfunktionen: Nach Markierung sortieren"+"\n";
work.value += "\n"+"\n";
work.value += " Sie erhalten"+"\n"+"\n";
work.value += " "+BM+"des Innern 10559 Berlin Alt-Moabit 101 D "+"\n";
work.value += " "+BM+"für Gesundheit 53121 Bonn Am Propsthof 78 a"+"\n";
work.value += " "+BM+"für Bildung und Forschung 53175 Bonn Heinemannstr. 2 "+"\n";
work.value += " "+BM+"der Finanzen 10117 Berlin Wilhelmstraße 97 "+n;
work.value += " _________ BEISPIEL NACH MARKIERUNG GRUPPIEREN_________________________"+C_20+n;
work.value += " Angenommen Sie wollen in folgendem Text die Anzahl der Ministerien in Bonn bzw. Berlin bestimmen."+"\n";
work.value += "\n"+"\n";
work.value += " "+BM+"der Finanzen 10117 Berlin Wilhelmstraße 97 "+"\n";
work.value += " "+BM+"der Verteidigung 53123 Bonn Fontainengraben 150 "+"\n";
work.value += " "+BM+"des Innern 10559 Berlin Alt-Moabit 101 D "+"\n";
work.value += " "+BM+"für Arbeit und Sozialordnung 10117 Berlin Wilhelmstr. 49 "+"\n";
work.value += " "+BM+"für Bildung und Forschung 53175 Bonn Heinemannstr. 2 "+"\n";
work.value += " "+BM+"für Gesundheit 53121 Bonn Am Propsthof 78 a "+"\n";
work.value += " "+BM+"für Wirtschaft und Technologie 10115 Berlin Scharnhorststr. 34-37"+"\n";
work.value += "\n"+"\n";
work.value += " a) Markieren Sie hierzu in der ersten Zeile >>>Berlin<<< (funktioniert auch mit Doppelklick!)"+"\n";
work.value += " b) Waehlen Sie dann: Sortier- und Filterfunktionen: Nach Markierung gruppieren."+"\n";
work.value += "\n"+"\n";
work.value += " Sie erhalten"+"\n"+"\n";
work.value += " 4 x "+BM+"der Finanzen 10117 Berlin Wilhelmstraße 97 "+"\n";
work.value += " 4 x "+BM+"des Innern 10559 Berlin Alt-Moabit 101 D "+"\n";
work.value += " 4 x "+BM+"für Arbeit und Sozialordnung 10117 Berlin Wilhelmstr. 49 "+"\n";
work.value += " 4 x "+BM+"für Wirtschaft und Technologie 10115 Berlin Scharnhorststr. 34-37"+"\n";
work.value += " 3 x "+BM+"der Verteidigung 53123 Bonn Fontainengraben 150 "+"\n";
work.value += " 3 x "+BM+"für Bildung und Forschung 53175 Bonn Heinemannstr. 2 "+"\n";
work.value += " 3 x "+BM+"für Gesundheit 53121 Bonn Am Propsthof 78 a "+"\n";
document.formular.textarea.value = work.value;
alert(back_work);
}
//**************************************************************************
// HILFE_LOESCHE_ZEILEN_INCLUDE_FIX();
//**************************************************************************
function HILFE_LOESCHE_ZEILEN_INCLUDE_FIX()
{
HILFE_DELETE_LINES_ABSOLUT();
}
//**************************************************************************
// FUNKTION HILFE_LOESCHE_ZEILEN_INCLUDE_MA()
//**************************************************************************
function HILFE_LOESCHE_ZEILEN_INCLUDE_MA()
{
HILFE_LOESCHE_ZEILE();
}
//**************************************************************************
// FUNKTION HILFE_LOESCHE_ZEILEN_EXCLUDE_MA()
//**************************************************************************
function HILFE_LOESCHE_ZEILEN_EXCLUDE_MA()
{
HILFE_LOESCHE_ZEILE();
}
//**************************************************************************
// FUNKTION HILFE_LOESCHE_ZEILE()
//**************************************************************************
function HILFE_LOESCHE_ZEILE()
{
merken();
work.value = " __________BEISPIEL LOESCHE ZEILEN, WELCHE DIE MARKIERUNG ENTHALTEN/NICHT ENTHALTEN________"+"\n"+"\n";
work.value += " Angenommen Sie wollen in folgendem Text alle Zeilen loeschen, die eine 7 enthalten."+"\n"+"\n";
work.value += " "+BM+"der Finanzen 10117 Berlin Wilhelmstraße 97 "+"\n";
work.value += " "+BM+"der Justiz 10117 Berlin Mohrenstraße 37 "+"\n";
work.value += " "+BM+"der Verteidigung 53123 Bonn Fontainengraben 150"+"\n";
work.value += " "+BM+"des Innern 10559 Berlin Alt-Moabit 101 D "+"\n";
work.value += " "+BM+"für Arbeit und Sozialordnung 10117 Berlin Wilhelmstr. 49 "+"\n";
work.value += " "+BM+"für Bildung und Forschung 53175 Bonn Heinemannstr. 2 "+"\n"+"\n";
work.value += " a) Markieren Sie hierzu irgendwo im Text eine >>>7<<< "+"\n";
work.value += " b) Waehlen Sie dann: Loesche Zeilen, welche die Markierung: enthalten."+"\n";
work.value += "\n"+"\n";
work.value += " Sie erhalten"+"\n"+"\n";
work.value += " "+BM+"der Verteidigung 53123 Bonn Fontainengraben 150"+"\n";
work.value += " "+BM+"des Innern 10559 Berlin Alt-Moabit 101 D "+"\n";
work.value += "\n"+"\n";
work.value += " Die Funktion: Loesche Zeilen, welche die Markierung: NICHT enthalten."+"\n";
work.value += " funktioniert vice versa.";
document.formular.textarea.value = work.value;
alert(back_work);
}
//**************************************************************************
// FUNCTION MARK_IN_FIRST_LINE()
//**************************************************************************
function MARK_IN_FIRST_LINE(markierung,first_line)
{
var test = first_line.indexOf(markierung);
if (first_line.indexOf(markierung)==-1)
return in_first_line = "false";
}
//**************************************************************************
// FUNCTION HILFE_DELETE_LINES_ABSOLUT()
//**************************************************************************
function HILFE_DELETE_LINES_ABSOLUT()
{
merken();
document.formular.textarea.value = bsp_4;
alert(back_work);
}
//**************************************************************************
// FUNCTION COLUMN()
//**************************************************************************
function COLUMN()
{
if (formular.COLUM_WA.value=="LIJZML")
{loesche_in_jeder_zeile('DEL');}
if (formular.COLUM_WA.value=="COL_WITHOUT_MARK")
{loesche_in_jeder_zeile('REM');}
formular.COLUM_WA.value="DEFAULT";
}
//**************************************************************************
// FUNKTION openInfo(info)
//**************************************************************************
function openInfo(info, titel) {
infoWin= open("", "infoWindow","width=500,height=400,status=no,toolbar=no,menubar=no,scrollbars=yes,resizable=yes");
// open document for further output
infoWin.document.open();
// create document
infoWin.document.write("<html><head><title>");
infoWin.document.write(titel);
infoWin.document.write("</title></head><body>");
infoWin.document.write(info);
infoWin.document.write("</body></html>");
// close the document - (not the window!) & set Focus
infoWin.document.close();
infoWin.focus();
}
//**************************************************************************
// FUNKTION INS_AREA_HELP();
//**************************************************************************
function INS_AREA_HELP()
{
merken();
work.value = "";
work.value += " Angenommen Sie haben zwei Textbloecke.";
work.value += "\n"+"\n";
work.value += " Text 1:"+"\n"+"\n";
work.value += " "+BM+"der Finanzen Wilhelmstraße 97 "+ "\n";
work.value += " "+BM+"des Innern Alt-Moabit 101 D "+ "\n";
work.value += " "+BM+"für Bildung und Forschung Heinemannstr. 2 "+ "\n";
work.value += "\n";
work.value += " Text 2:"+"\n"+"\n";
work.value += " 10117 Berlin"+ "\n";
work.value += " 10559 Berlin"+ "\n";
work.value += " 53175 Bonn "+ "\n";
work.value += "\n"+"\n";
work.value += " und wollen folgendes Ergebnis:";
work.value += "\n"+"\n";
work.value += " "+BM+"der Finanzen 10117 Berlin Wilhelmstraße 97 "+"\n";
work.value += " "+BM+"des Innern 10559 Berlin Alt-Moabit 101 D "+ "\n";
work.value += " "+BM+"für Bildung und Forschung 53175 Bonn Heinemannstr. 2 "+ "\n";
work.value += "\n"+"\n";
work.value += " a) kopieren Sie Text 1 in den Arbeitsbereich"+"\n";
work.value += " b) kopieren Sie Text 2 in den Einfuegebereich"+"\n";
work.value += " c) markieren Sie in der ersten Zeile im Arbeitsbereich >>>Wilhelmstraße<<<"+"\n";
work.value += " d) Waehlen Sie die Funktion :Einfuegebereich setzen: links neben Markierung setzen"+"\n";
document.formular.textarea.value = work.value;
work.value += "\n"+"\n";
alert(back_work);
}
//**************************************************************************
// FUNKTION INS_AREA_INSERT()
//**************************************************************************
function INS_AREA_INSERT()
{
if (formular.INSERT_AREA.value=="INS_AREA_LEFT")
{
concatenate_left();
}
if (formular.INSERT_AREA.value=="INS_AREA_RIGHT")
{concatenate_right();}
if (formular.INSERT_AREA.value=="MOVE_WORKAREA_TO_INS_AREA")
{MOVE_WORKAREA_TO_INS_AREA();}
if (formular.INSERT_AREA.value=="MOVE_MARK_WORKAREA_TO_INS_AREA")
{move_mark_to_in_area();}
document.formular.INSERT_AREA.value="DEFAULT";
}
//********************************************************************************************
// FUNKTION move_mark_to_in_area
//********************************************************************************************
function move_mark_to_in_area()
{
var x;
var y;
var b=markierung(x,y);
init_work();
merken();
// verprobung, ob tabs enthalten
var area = document.formular.textarea.value;
var tab_check = area.indexOf("\t");
if (tab_check>-1)
{
Check = confirm(tab_warn);
if(Check == true)
{tabs();tabs_remaining_q();};
} // if (tab_check>-1)
var offset = where_is_mark(b);
lineList = "";
merklist = "";
mark = "";
var laenge = b.length
lineList=document.formular.textarea.value.split(/[\n\r]+/);
var in_first_line = MARK_IN_FIRST_LINE(b,lineList[0]);
if (in_first_line == "false")
{
Check = confirm("Bitte Markierungen in der obersten Zeile vornehmen. Dort konnte keine Markierung gefunden werden. Wollen Sie Hilfe?");
if(Check == true)
{ all_hilfe(); return;}
else
//MM // Fokus setzen
{ document.formular.textarea.focus();return; }
}
document.formular.textarea.value = "";
for (var i=0; i<lineList.length; i++){
workfield.value = lineList[i];
// Einfuegebereich
merklist += workfield.value.substring(0, offset) +
workfield.value.substring(0+offset+laenge) + "\n";
// Arbeitsbereich
mark += workfield.value.substring(offset,offset+laenge) + "\n";
// 1002
}
document.formular.con_area.value = mark;
document.formular.textarea.value = merklist;
document.formular.textarea.focus();
} //function
//**************************************************************************
// FUNKTION LINE_DELETE()
//**************************************************************************
function LINE_DELETE()
{
if (formular.LINE_DELETE_AREA.value=="LINE_DELETE_MARK")
{ mark_without_del('WITH_MARK');}
if (formular.LINE_DELETE_AREA.value=="LINE_DELETE_WITHOUT_MARK")
{ mark_without_del('WITHOUT_MARK');}
if (formular.LINE_DELETE_AREA.value=="LINE_DELETE_MARK_FIX")
{ mark_without_del('WITH_MARK_FIX');}
if (formular.LINE_DELETE_AREA.value=="LINE_DELETE_WITHOUT_MARK_FIX")
{ mark_without_del('WITHOUT_MARK_FIX');}
// Hilfe
if (formular.LINE_DELETE_AREA.value=="LINE_DELETE_MARK_HELP")
{ HILFE_LOESCHE_ZEILEN_INCLUDE_MA();}
// Hilfe
if (formular.LINE_DELETE_AREA.value=="LINE_DELETE_WITHOUT_MARK_HELP")
{ HILFE_LOESCHE_ZEILEN_EXCLUDE_MA();}
if (formular.LINE_DELETE_AREA.value=="LINE_DELETE_MARK_FIX_HELP")
{ HILFE_LOESCHE_ZEILEN_INCLUDE_FIX();}
if (formular.LINE_DELETE_AREA.value=="LINE_DELETE_WITHOUT_MARK_FIX_HELP")
{ HILFE_LOESCHE_ZEILEN_INCLUDE_FIX();}
formular.LINE_DELETE_AREA.value="DEFAULT";
}//function
//**************************************************************************
// FUNKTION WA
//**************************************************************************
function WA()
{
merken();
if (formular.DOK_WA.value=="DOK_WA_DELETE")
{inilialize_workarea();}
if (formular.DOK_WA.value=="DOK_WA_EGAL")
{egalize();}
if (formular.DOK_WA.value=="DOK_WA_TABS")
{merken();tabs();tabs_remaining_q();}
if (formular.DOK_WA.value=="DOK_WA_COUNT")
{count();}
if (formular.DOK_WA.value=="DOK_WA_COUNT_ALERT")
{COUNT_ALERT();}
if (formular.DOK_WA.value=="DETERMINE_LENGTH_MARK")
{DETERMINE_LENGTH_MARK();}
// *** loeschen ***
if (formular.DOK_WA.value=="DOK_WA_DELETE_HELP")
{alert("Diese Funktion loescht den Arbeitsbereich.");}
// *** numerieren ***
if (formular.DOK_WA.value=="DOK_WA_COUNT_HELP")
{alert("Diese Funktion numeriert die Zeilen im Arbeitsbereich.");}
// *** egalisieren ***
if (formular.DOK_WA.value=="DOK_WA_EGAL_HELP")
{
alert("Es kann es sein, dass die einzelnen Zeilen im Arbeitsbereich unterschiedliche Laenge haben. Da der Editor aber von Zeilen mit gleicher Struktur ausgeht, sollten alle Zeilen die gleiche Laenge haben. Die Funktion sucht die laengste Zeile und fuellt alle anderen rechtsbuendig mit Blanks auf.");
}
// *** Tabs ausgleichen ***
if (document.formular.DOK_WA.value=="DOK_WA_TABS_HELP")
{
alert("Tabulatoren helfen, eine Liste strukturiert aussehen zu lassen.Tatsache ist aber, dass gerade durch die Tabulatoren eine Liste ihre Struktur verliert \(\Beispielsweise, wenn Sie Zellen aus MS-EXCEL mittels Copy & Paste in einen Editor holen)\. Da der Editor aber von Zeilen mit gleicher Struktur ausgeht, sollten die Tabulatoren in der Liste mit dieser Funktion durch Blanks ersetzt werden.");
}
document.formular.DOK_WA.value="DEFAULT";
} //function
//**************************************************************************
// FUNKTION DETERMINE_LENGTH_MARK()
//**************************************************************************
function DETERMINE_LENGTH_MARK()
{
var x;
var y;
var b=markierung(x,y);
var offset = where_is_mark(b);
offset = offset + 1;
var laenge = b.length;
var laenge_string = "Laenge der Markierung: " + laenge + " Zeichen"+"\n"+"\n"+"Beginnend bei Zeichen "+offset;
alert(laenge_string);
}
//**************************************************************************
// FUNKTION SORT_ALPHA_DEL_DUBBLES()
//**************************************************************************
function SORT_ALPHA_DEL_DUBBLES()
{
if (formular.SORT_AREA.value=="SORT_ALPHA")
{sort_mark();}
if (formular.SORT_AREA.value=="DEL_DUBBLES")
{sort_and_count();
tabs();
alert("Im Arbeitsbereich wurde in der ersten Spalte die Anzahl der einzelnen Markierungen angegeben.");
set_focus();
init_work();
}// if sort_and_count
if (formular.SORT_AREA.value=="B_GROUP")
{B_GROUP();}
// HILFE
if (formular.SORT_AREA.value=="SORT_ALPHA_HELP")
{SORT_ALPHA_HELP_WINDOW();}
if (formular.SORT_AREA.value=="DEL_DUBBLES_HELP")
{DEL_DUBBLES_HELP_WINDOW();}
formular.SORT_AREA.value="DEFAULT";
}
//***********************************
// FUNKTION function B_GROUP
//***********************************
function B_GROUP()
{
// offset + laenge markierung halten
var x;
var y;
var b=markierung(x,y);
var offset_mark = where_is_mark(b);
var laenge_mark = b.length
var vgl_feld = "";
sort_and_count();
tabs();
work.value = "";
var offset = where_is_mark("x");
offset=offset+2;
lineList=formular.textarea.value.split(/[\n\r]+/);
//* loop über den array
for (var i=0; i<lineList.length; i++){
// beschrieben des Hilfsfeldes
var field = lineList[i];
vgl_feld = field.substring(offset);
work.value = work.value+vgl_feld+"\n";
} //loop
formular.textarea.value="";
//alert(offset_mark);
//alert(offset);
workList=new Array();
areaList=new Array();
workList=lineList;
// MM workList=work.value.split(/[\n\r]+/);
areaList=merkarea_l.value.split(/[\n\r]+/);
//alert(workList);
//alert(areaList);
work.value="";
for (var i=0; i<workList.length; i++)
{
var work_zeile = workList[i];
for (var j=0; j<areaList.length; j++)
{
var area_zeile = areaList[j];
//alert(work_zeile.substring(offset,offset+laenge_mark));
//alert(area_zeile.substring(offset_mark,offset_mark+laenge_mark));
if(work_zeile.substring(offset,offset+laenge_mark)==area_zeile.substring(offset_mark,offset_mark+laenge_mark))
{work.value = work.value+work_zeile.substring(0,offset)+area_zeile+"\n";}
} // loop j
} //loop i
formular.textarea.value=work.value;
}//function
//**************************************************************************
// FUNKTION init_work
//**************************************************************************
function init_work()
{
workfield.value = "";
work.value = "";
} //function
//*******************
// FUNKTION set_focus
//*******************
function set_focus()
{
document.formular.textarea.focus();
} //function
//***********************
// FUNKTION where_is_mark
//***********************
function where_is_mark(b)
{
var offset = document.formular.textarea.value.indexOf(b)
return offset;
} //function
//***********************************
// FUNKTION function sort_and_count()
//***********************************
function sort_and_count()
{
var x;
var y;
var b=markierung(x,y);
var offset = where_is_mark(b);
var laenge = b.length
// wenn nichts markiert
if(b=='')
{
Check = confirm(C_PLEASE_MARK);
if(Check == true)
all_hilfe();
else
// Fokus setzen
document.formular.textarea.focus();
}
if(b!='')
{
sort_mark_1(offset, laenge);
// in work.value steht die liste jetzt sortiert, enthaelt aber noch doppelte
lineList=work.value.split(/[\n\r]+/);
work.value = "";
var vgl_feld = "";
var j = 0;
for (var i=0; i<lineList.length; i++)
{
var field = lineList[i];
// fuer ersten satz
if (vgl_feld=="")
{
vgl_feld = field.substring(offset,offset + laenge);
}
// neuer satz im loop?
if (field.substring(offset,offset + laenge) != vgl_feld)
{
vgl_feld = field.substring(offset,offset + laenge);
work.value = work.value + j + " x" + "\t" + h_field.substring(offset,offset + laenge) + "\n";
// work.value = work.value + j + " x" + "\t" + vgl_feld + "\n";
var j = 0;
} //if
j = j + 1;
var h_field = lineList[i];
} // for
// letzten satz nach gruppenwechsel
work.value = work.value + j + " x" + "\t" + h_field.substring(offset,offset + laenge)
+ "\n";
document.formular.textarea.value = work.value;
} //else
}
//**************************************************************************
// FUNKTION function sort_mark
//**************************************************************************
function sort_mark()
{
var x;
var y;
var b=markierung(x,y);
var offset = where_is_mark(b);
var laenge = b.length
// verprobung, ob tabs enthalten
var area = document.formular.textarea.value;
var tab_check = area.indexOf("\t");
if (tab_check>-1)
{
Check = confirm(tab_warn);
if(Check == true)
{tabs();tabs_remaining_q();};
} // if (tab_check>-1)
sort_mark_1(offset, laenge);
document.formular.textarea.value = work.value;
set_focus();
}
//******************************
// FUNKTION function sort_mark_1
//******************************
function sort_mark_1(offset, laenge)
{
init_work();
merken();
lineList=document.formular.textarea.value.split(/[\n\r]+/);
document.formular.textarea.value = "";
var l_array=new Array();
var m_array=new Array();
//* loop über den array & löschen der markierung in jeder zeile
for (var i=0; i<lineList.length; i++)
{
var field = lineList[i];
l_array[i] = new Array();
l_array[i] = field.substring(offset,offset + laenge) + field.substring(0, offset) + field.substring(0+offset+laenge);
} // for
l_array.sort();
for (var i=0; i<lineList.length; i++)
{
var field = l_array[i];
work.value += field.substring(laenge,offset +laenge) + field.substring(0, laenge) + field.substring(offset+laenge) + "\n";
} // for
} //function
//**************************************************************************
// FUNKTION begruessung
//**************************************************************************
function begruessung()
{
document.formular.textarea.focus();
document.formular.textarea.value = "";
document.formular.textarea.rows = "23";
document.formular.textarea.cols = "100";
if (screen.width=="1024")
{
document.formular.textarea.rows = "23";
document.formular.textarea.cols = "100";
}
if (screen.width=="1280")
{
document.formular.textarea.rows = "37";
document.formular.con_area.rows = "37";
document.formular.textarea.cols = "130";
}
if (screen.width=="800")
{
document.formular.textarea.rows = "15";
document.formular.con_area.rows = "15";
document.formular.textarea.cols = "70";
}
alert("Um eine Einfuehrung zu erhalten, betaetigen Sie die Taste >>> Hilfe <<<.\n\nZudem wird, wenn Sie die Maus ueber einen Button bewegen, in der untersten Zeile ein Hilfetext angezeigt. \n\nWWW.LIST-EDITOR.DE Â Mario Mueller");
}
//**************************************************************************
// FUNKTION set_focus
//**************************************************************************
function set_focus()
{
document.formular.textarea.focus();
}
//**************************************************************************
// FUNKTION inilialize_workarea
//**************************************************************************
function inilialize_workarea()
{
merken();
document.formular.textarea.value='';
}
//**************************************************************************
// FUNKTION count()
//**************************************************************************
function count(was)
{
init_work();
merken();
//* array bilden aus textfeld
lineList=document.formular.textarea.value.split(/[\n\r]+/);
// initialisieren textarea
document.formular.textarea.value = "";
var j = 0;
//* loop über den array & löschen der markierung in jeder zeile
for (var i=0; i<lineList.length; i++)
{
j = i + 1;
work.value = work.value + j + "\t" + lineList[i] + "\n";
// for
}
document.formular.textarea.value = work.value;
} // function
//**************************************************************************
// FUNKTION COUNT_ALERT
//**************************************************************************
function COUNT_ALERT(was)
{
lineList=document.formular.textarea.value.split(/[\n\r]+/);
var ausgabe = "Der Arbeitsbereich hat "+lineList.length+" Zeilen";
alert(ausgabe);
} // function
//**************************************************************************
// FUNKTION count()
//**************************************************************************
function MOVE_WORKAREA_TO_INS_AREA()
{
merken();
document.formular.con_area.value="";
document.formular.con_area.value=document.formular.textarea.value;
document.formular.textarea.value="";
set_focus();
}
//********************************************************************************************
// FUNKTION WURDE_WAS_EINGEGEBEN
//********************************************************************************************
function wurde_was_eingegeben_Q(bool_rc)
{
// wenn nichts in textfeld eingegeben
if(document.formular.left_insert_string.value=='')
{
Check = confirm("Bitte tragen Sie links im Eingabefeld ein, was links bzw. rechts neben der Markierung eingefuegt werden soll. Lesen Sie bitte hierzu auch in der Hilfe das Beispiel 3.2. Wollen Sie jetzt in die Hilfe verzweigen?");
if(Check == true)
{all_hilfe();return bool_rc = "true";};
else
{document.formular.textarea.focus();return bool_rc = "true";}
} //if
if(document.formular.left_insert_string.value!='')
{
return bool_rc = "false";
}
}// function
//********************************************************************************************
// FUNKTION MERKEN
//********************************************************************************************
function merken()
{
merkarea_l.value=document.formular.textarea.value;
merkarea_r.value=document.formular.con_area.value;
}
//**************************************************************************
// FUNKTION RUECKGÄNGIG
//**************************************************************************
function rueckgaengig()
{
init_work();
h_merkarea_l.value=document.formular.textarea.value;
h_merkarea_r.value=document.formular.con_area.value;
document.formular.textarea.value=merkarea_l.value;
document.formular.con_area.value=merkarea_r.value;
merkarea_l.value=h_merkarea_l.value;
merkarea_r.value=h_merkarea_r.value;
document.formular.textarea.focus();
}
//********************************************************************************************
// FUNKTION MARKIERUNG_RETURN
//********************************************************************************************
function markierung(a,b)
{
b = 'Keine Markierung gefunden.';
if(document.all)
{
a = document.selection.createRange();
b = a.text;
}
else if(document.layers)
{ b = document.getSelection();}
return a, b;
}
//**************************************************************************
// FUNKTION egalize
//**************************************************************************
function egalize(was)
{
var x;
var y;
var b=markierung(x,y);
merken();
init_work();
var h_laenge = 0;
document.formular.textarea.focus();
// länge der zeile
var laenge = b.length
//* array bilden aus textfeld
lineList=document.formular.textarea.value.split(/[\n\r]+/);
// initialisieren textarea
document.formular.textarea.value = "";
// FESTSTELLEN LAENGSTES FELD
//* loop über den array
for (var i=0; i<lineList.length; i++){
var laenge = lineList[i].length;
if (h_laenge < laenge)
{
h_laenge = laenge;
}//if
} //loop
// ANPASSEN DER FELDER
for (var i=0; i<lineList.length; i++){
// LAENGE der aktuellen Zeile
var laenge = lineList[i].length;
// das aktuelle feld ist kuerzer als das groesste
work.value = lineList[i];
if (laenge < h_laenge)
{
for (laenge; laenge<h_laenge; laenge++)
{
work.value += " ";
// work.value += laenge + " ";
}// loop
} //if
workfield.value = workfield.value + work.value + "\n";
}//loop ueber array
document.formular.textarea.value = workfield.value;
alert("Jede Zeile ist jetzt so lang wie die zuvor laengste Zeile. Dies koennen Sie ueberpruefen, indem Sie den kompletten Arbeitsbereich markieren (Strg+A im Arbeitsbereich).");
}//function
//**************************************************************************
// FUNKTION mark_without_del()
//**************************************************************************
function mark_without_del(was)
{
var x;
var y;
var b=markierung(x,y);
var offset = where_is_mark(b);
var laenge = b.length;
init_work();
merken();
// wenn nichts markiert
if(b=='') {
Check = confirm(C_PLEASE_MARK);
if(Check == true)
{all_hilfe();return;}
else
// Fokus setzen
{document.formular.textarea.focus();return;}
}
lineList= "";
lineList=document.formular.textarea.value.split(/[\n\r]+/);
for (var i=0; i<lineList.length; i++)
{
workfield.value = lineList[i];
var offset = workfield.value.indexOf(b)
if (offset>="0")
{
i=lineList.length;
}
}
//* array bilden aus textfeld
lineList=document.formular.textarea.value.split(/[\n\r]+/);
// initialisieren textarea
document.formular.textarea.value = "";
//* loop über den array & löschen der markierung in jeder zeile
for (var i=0; i<lineList.length; i++){
// beschreiben des Hilfsfeldes
workfield.value = lineList[i];
// taucht der markierte teilstring in der aktuellen zeile auf?
var treffer = workfield.value.indexOf(b)
// entspricht die markierung der aktuellen Zeile an genau der Markierungsstelle
var hit = workfield.value.substring(offset,offset + laenge);
// loesche zeilen, die die markierung enthalten
if (was=="WITH_MARK")
{if (treffer<"0"){work.value += workfield.value + "\n";}}
// loesche zeilen, die die markierung NICHT enthalten
if (was=="WITHOUT_MARK")
{if (treffer>="0"){work.value += workfield.value + "\n";}}
// loesche zeilen, die die markierung genau an der Stelle enthalten
if (was=="WITH_MARK_FIX")
{if (b!=hit){work.value += workfield.value + "\n";}}
// loesche zeilen, die die markierung genau an der Stelle enthalten
if (was=="WITHOUT_MARK_FIX")
{ if (b==hit){work.value += workfield.value + "\n";}}
} // LOOP
document.formular.textarea.value = work.value;
document.formular.textarea.focus();
} // function
//********************************************************************************************
// FUNKTION loesche_in_jeder_zeile
//********************************************************************************************
function loesche_in_jeder_zeile(was)
{
var x;
var y;
var b=markierung(x,y);
init_work();
merken();
// verprobung, ob tabs enthalten
var area = document.formular.textarea.value;
var tab_check = area.indexOf("\t");
if (tab_check>-1)
{
Check = confirm(tab_warn);
if(Check == true)
{tabs();tabs_remaining_q();};
} // if (tab_check>-1)
var offset = where_is_mark(b);
lineList = "";
merklist = "";
mark = "";
var laenge = b.length
lineList=document.formular.textarea.value.split(/[\n\r]+/);
var in_first_line = MARK_IN_FIRST_LINE(b,lineList[0]);
if (in_first_line == "false")
{
Check = confirm("Bitte Markierungen in der obersten Zeile vornehmen. Dort konnte keine Markierung gefunden werden. Wollen Sie Hilfe?");
if(Check == true)
{ all_hilfe(); return;}
else
//MM // Fokus setzen
{ document.formular.textarea.focus();return; }
}
document.formular.textarea.value = "";
for (var i=0; i<lineList.length; i++){
workfield.value = lineList[i];
// Loeschen des Blocks
if (was=="DEL")
{
mark += workfield.value.substring(0, offset) +
workfield.value.substring(0+offset+laenge) + "\n";
}
// Alles ausser Markierung ausschneiden
if (was=="REM")
{
mark += workfield.value.substring(offset,offset+laenge) + "\n";
}
}
document.formular.textarea.value = mark;
document.formular.textarea.focus();
} //function
//*********************************************************************
// FUNKTION concatenate_left
//*********************************************************************
function concatenate_left()
{
var x;
var y;
var b=markierung(x,y);
init_work();
var offset = where_is_mark(b);
var laenge = b.length
L_Zeile=document.formular.textarea.value.split(/[\n\r]+/);
R_Zeile=document.formular.con_area.value.split(/[\n\r]+/);
// wenn nichts markiert
if (R_Zeile=='')
{
Check = confirm("Es sind keine Werte im Einfügebereich vorhanden. Wollen Sie Hilfe?");
if(Check == true)
all_hilfe();
else
// Fokus setzen
document.formular.textarea.focus();
} //if
if (R_Zeile!='')
{
merken()
document.formular.textarea.value = "";
document.formular.con_area.value = "";
for (var i=0; i<R_Zeile.length; i++)
{
// // beschreiben des Hilfsfeldes
workfield.value = L_Zeile[i];
var links = workfield.value.substring(0, offset);
var rechts = workfield.value.substring(0+offset);
workfield.value = R_Zeile[i];
var mitte = workfield.value;
var ganz = links + mitte + rechts;
workfield.value = ganz;
// // Zusammenbauen Textarea (kein performanceproblem)
work.value = work.value + workfield.value + "\n";
} // loop
document.formular.textarea.value = work.value;
}
} //function
//*********************************************************************
// FUNKTION concatenate_right
//*********************************************************************
function concatenate_right()
{
var x;
var y;
var b=markierung(x,y);
init_work();
var offset = where_is_mark(b);
// länge der markierung
var laenge = b.length
L_Zeile=document.formular.textarea.value.split(/[\n\r]+/);
R_Zeile=document.formular.con_area.value.split(/[\n\r]+/);
// wenn nichts markiert
if (R_Zeile=='')
{
Check = confirm("Es sind keine Werte im Einfügebereich vorhanden. Wollen Sie Hilfe?");
if(Check == true)
all_hilfe();
else
// Fokus setzen
document.formular.textarea.focus();
} //if
if (R_Zeile!='')
{
merken()
document.formular.textarea.value = "";
document.formular.con_area.value = "";
// loop über den array & löschen der markierung in jeder zeile
for (var i=0; i<R_Zeile.length; i++){
// wenn nichts markiert
if (b=='')
{
// beschrieben des Hilfsfeldes
workfield.value = L_Zeile[i]+R_Zeile[i];
} //if
else
{
workfield.value = L_Zeile[i];
var links = workfield.value.substring(0, offset+laenge);
var rechts = workfield.value.substring(0+offset+laenge);
workfield.value = R_Zeile[i];
var mitte = workfield.value;
var ganz = links + mitte + rechts;
workfield.value = ganz;
} // else
// Zusammenbauen Textarea
// document.formular.textarea.value = document.formular.textarea.value +
// workfield.value + "\n";
work.value = work.value + workfield.value + "\n";
} // if
}// loop
document.formular.textarea.value = work.value;
} //function
//*************************
// FUNKTION TABS
//*************************
function tabs()
{
init_work();
tabs_replace_with_dummy();
//leeren lineList
lineList = "";
// wo taucht der tab am weitesten rechts auf?
var h_laenge = where_is_tab();
if (h_laenge == "")
{
alert("Es konnten keine Tabulatoren gefunden werden. Die Funktion wir daher nicht ausgeführt");
rueckgaengig();
return;
}
//* jetzt steht in h_laenge, wo ^^^ am weitesten rechts vorkommt
//* beispiel
//* aaaaaaa^^^bb
//* aaaaaaaa^^^bb
//* aaaaaaa^^^bb
//* jetzt muss alles, was rechts von ^^^ steht am offset h_laenge ausgerichtet werden.
//* hierzu muss pro zeile zunaechst der string der rechts von ^^^ steht gemerkt werden
//* dann muessen die ^^^ elimieniert werden
//* was rechts von ^^^ stand muss ans offset h_laenge gehaengt werden
tabs_replace(h_laenge);
document.formular.textarea.value = work.value;
} //function
//*************************
// FUNKTION tabs_replace_with_dummy
//*************************
function tabs_replace_with_dummy()
{
var h_laenge = "";
//* array bilden aus textfeld
lineList=document.formular.textarea.value.split(/[\n\r]+/);
// initialisieren textarea
document.formular.textarea.value = "";
//* loop über den array
for (var i=0; i<lineList.length; i++){
// beschrieben des Hilfsfeldes
workfield.value = lineList[i];
workfield.value = workfield.value.replace(/\t/,"^^^");
zeilen_zusammenfuegen();
} // loop
} //function
//*************************
// FUNKTION where_is_tab
//*************************
function where_is_tab()
{
var h_laenge = "";
//* array bilden aus work
lineList=work.value.split(/[\n\r]+/);
// FESTSTELLEN wo "^^^" am weitesten rechts vorkommt
//* loop über den array
for (var i=0; i<lineList.length; i++){
workfield.value = lineList[i];
var laenge = workfield.value.indexOf("^^^");
if (h_laenge < laenge)
{
h_laenge = laenge;
}//if
} //loop
return h_laenge;
} //function
//*************************
// FUNKTION tabs_replace
//*************************
function tabs_replace(h_laenge)
{
//leeren lineList
lineList = "";
//* array bilden aus work
lineList=work.value.split(/[\n\r]+/);
work.value = "";
//* loop über den array
for (var i=0; i<lineList.length; i++){
workfield.value = lineList[i];
var laenge = workfield.value.indexOf("^^^");
var a_laenge = workfield.value.indexOf("^^^");
var links = workfield.value.substring(0, laenge);
laenge = laenge + 3;
var rechts = workfield.value.substring(laenge);
// feld mit anzahl blanks bilden
var x_laenge = h_laenge - a_laenge;
links = links + " ";
//var blanks = "";
for (var j=0; j<x_laenge; j++)
{
links = links + " ";
} //loop h_laenge
work.value = work.value + links + rechts + "\n";
}// loop
} //function
//*************************
// FUNKTION tabs_remaining_q
//*************************
function tabs_remaining_q()
{
var flag = 0.
while (flag == 0)
{
flag = flag_set(flag);
}
} //function
//*************************
// FUNKTION flag_set(xxx)
//*************************
function flag_set(flag)
{
//* array bilden aus textfeld
lineList=document.formular.textarea.value.split(/[\n\r]+/);
//* loop über den array
for (var i=0; i<lineList.length; i++){
// beschrieben des Hilfsfeldes
workfield.value = lineList[i];
if (workfield.value.indexOf("\t")>-1)
{
// var flag = "tab gefunden";
i=lineList.length
Check = confirm("Es bestehen weitere Tabulatoren im Text. Wollen Sie den Vorgang wiederholen?");
if(Check == true)
tabs();
else //if(Check == true)
// Fokus setzen
var flag = "X";
}
else
{
var flag = "X";
} // if(Check == true)
} // loop
document.formular.textarea.focus();
return flag;
} // function
//*************************
// FUNKTION SUCHEN_ERSETZEN
//*************************
function suchen_ersetzen()
{
// abfrage, ob was vorgegeben
if (document.formular.SUCHSTRING.value=="")
{
if (document.formular.SONDERZEICHEN.value=="SONDERZEICHEN")
{
document.formular.SUCHSTRING.value=="Hier eine Eingabe machen";
alert("Sie muessen ganz links einen Suchstring eingeben, der ersetzt werden soll. Alternativ können Sie ein Sonderzeichen auswaehlen.");
// document.formular.SUCHSTRING.value=="";
return;
}
}
var ERSETZSTRING = formular.ERSETZSTRING.value;
var SUCHSTRING = formular.SUCHSTRING.value;
var error1 = "Der gesuchte String >>> ";
var error2 = " <<< darf nicht gleich dem zu ersetzenden String >>> ";
var error3 = " <<< sein. Bitte korrigieren Sie Ihre Eingabe!";
if (SUCHSTRING!="")
{
if(SUCHSTRING==ERSETZSTRING)
{
var error = error1 + SUCHSTRING + error2 + SUCHSTRING + error3;
alert (error);
formular.SUCHSTRING.select();
return;}
}
merken()
init_work();
//* array bilden aus textfeld
lineList=document.formular.textarea.value.split(/[\n\r]+/);
// initialisieren textarea
document.formular.textarea.value = "";
//* loop über den array
for (var i=0; i<lineList.length; i++){
// beschrieben des Hilfsfeldes
workfield.value = lineList[i];
// Suchen und ersetzen mit Sonderzeichen
if (document.formular.SONDERZEICHEN.value=="TABU")
{suchen_ersetzen_tabulator(ERSETZSTRING)}
if (document.formular.SONDERZEICHEN.value=="LINEFEED")
{ suchen_ersetzen_zeilenvorschub(ERSETZSTRING) }
// Suchen und ersetzen ohne Sonderzeichen
if (SUCHSTRING!="")
// Wenn durch einen Zeilenumbruch ersetz werden soll:
{if (document.formular.ERSETZSONDERZEICHEN.value=="LINEFEED")
ERSETZSTRING = "\n";
}
// Wenn durch einen Tabulator ersetz werden soll:
{if (document.formular.ERSETZSONDERZEICHEN.value=="TABU")
ERSETZSTRING = "\t";
}
{if (document.formular.SONDERZEICHEN.value=="SONDERZEICHEN")
{SUCHEN_ERSETZEN_STING(SUCHSTRING,ERSETZSTRING)}
}
}//loop
document.formular.ERSETZSONDERZEICHEN.value="SONDERZEICHEN";
document.formular.SONDERZEICHEN.value="SONDERZEICHEN";
document.formular.textarea.value = work .value;
}
//***********************************
// FUNKTION SUCHEN_ERSETZEN_STING
//***********************************
function SUCHEN_ERSETZEN_STING(SUCHSTRING,ERSETZSTRING)
{
while (workfield.value.indexOf(SUCHSTRING)>-1)
{
workfield.value =
workfield.value.replace(SUCHSTRING,ERSETZSTRING)
}
zeilen_zusammenfuegen()
}
//*************************************************
//* function suchen_ersetzen_tabulator
//*************************************************
function suchen_ersetzen_tabulator(ERSETZSTRING)
{
while (workfield.value.indexOf("\t")>-1)
{
workfield.value = workfield.value.replace(/\t/,ERSETZSTRING);
}
zeilen_zusammenfuegen();
}
//*************************************************
//* function suchen_ersetzen_zeilenvorschub
//*************************************************
function suchen_ersetzen_zeilenvorschub(ERSETZSTRING)
{
while (workfield.value.indexOf("\n")>-1)
{
workfield.value = workfield.value.replace(/\n/,ERSETZSTRING);
}
work.value = work.value + workfield.value;
}
//*****************************
// FUNKTION zeilen_zusammenfuegen
//*****************************
function zeilen_zusammenfuegen()
{
work.value = work.value + workfield.value + "\n";
}
//********************************************************************************************
// FUNKTION insert_in_line()
//********************************************************************************************
function insert_in_line()
{
merken()
init_work();
var ins_idx=0;
var diff_ins_idx=0;
//* array bilden aus textfeld
lineList=document.formular.textarea.value.split(/[\n\r]+/);
// initialisieren textarea
document.formular.textarea.value = "";
//* loop über den array & insert der markierung in jeder zeile
for (var i=0; i<lineList.length; i++)
{
// beschreiben des Hilfsfeldes
workfield.value = lineList[i];
ins_idx=ins_idx + 1;
diff_ins_idx=ins_idx - document.formular.where_insert_idx.value;
document.formular.textarea.value = document.formular.textarea.value +
workfield.value + "\n";
//' ' + diff_ins_idx;
if (diff_ins_idx==0)
{
ins_idx=0;
document.formular.textarea.value = document.formular.textarea.value +
document.formular.what_insert_string.value + "\n";
}
}
}
//********************************************************************************************
// FUNKTION left_insert
//********************************************************************************************
function left_insert()
{
merken()
if (document.formular.SONDER_INS.value=="SONDER_INS")
{
var bool_rc = wurde_was_eingegeben_Q(bool_rc);
if (bool_rc=="true")
{return}
}//if document.formular
var x;
var y;
var b=markierung(x,y);
init_work();
// an welcher position taucht der markierte teilstring das erste mal auf?
var offset = document.formular.textarea.value.indexOf(b)
//* array bilden aus textfeld
lineList=document.formular.textarea.value.split(/[\n\r]+/);
// initialisieren textarea
document.formular.textarea.value = "";
//* loop über den array & insert der markierung in jeder zeile
for (var i=0; i<lineList.length; i++){
// beschreiben des Hilfsfeldes
workfield.value = lineList[i];
// löschen der markierung
var links = workfield.value.substring(0, offset);
var rechts = workfield.value.substring(0+offset);
if (document.formular.SONDER_INS.value=="TABU")
{merkList[i] =
workfield.value.substring(0, offset) +
"\t" +
workfield.value.substring(0+offset) + "\n";
}
if (document.formular.SONDER_INS.value=="LINEFEED")
{merkList[i] =
workfield.value.substring(0, offset) +
"\n" +
workfield.value.substring(0+offset) + "\n";
}
if (document.formular.SONDER_INS.value=="SONDER_INS")
{
merkList[i] =
workfield.value.substring(0, offset) +
document.formular.left_insert_string.value +
workfield.value.substring(0+offset) + "\n";
}
}
document.formular.textarea.value = merkList.join('');
document.formular.SONDER_INS.value="SONDER_INS";
document.formular.textarea.focus();
} //function
//********************************************************************************************
// FUNKTION right_insert
//********************************************************************************************
function right_insert()
{
merken()
init_work();
if (document.formular.SONDER_INS.value=="SONDER_INS")
{
var bool_rc = wurde_was_eingegeben_Q(bool_rc);
if (bool_rc=="true")
{return}
}//if document.formular
var x;
var y;
var b=markierung(x,y);
//* array bilden aus textfeld
lineList=document.formular.textarea.value.split(/[\n\r]+/);
// an welcher position taucht der markierte teilstring das erste mal auf?
var offset = document.formular.textarea.value.indexOf(b)
// die länge der markierung addieren
offset = offset+b.length
// wenn nichts markiert
if(b=='')
{flag_no_mark='X';
workfield.value = lineList[0];
b=workfield.value;
offset = b.length;
}
// initialisieren textarea
document.formular.textarea.value = "";
//* loop über den array & insert der markierung in jeder zeile
for (var i=0; i<lineList.length; i++){
// beschreiben des Hilfsfeldes
workfield.value = lineList[i];
// löschen der markierung
var links = workfield.value.substring(0, offset);
var rechts = workfield.value.substring(0+offset);
if (document.formular.SONDER_INS.value=="TABU")
{
merkList[i] =
workfield.value.substring(0,offset) +
"\t" +
workfield.value.substring(0+offset)+ "\n";
}
if (document.formular.SONDER_INS.value=="LINEFEED")
{
merkList[i] =
workfield.value.substring(0,offset) +
"\n" +
workfield.value.substring(0+offset)+ "\n";
}
if (document.formular.SONDER_INS.value=="SONDER_INS")
{
merkList[i] =
workfield.value.substring(0,offset) +
document.formular.left_insert_string.value +
workfield.value.substring(0+offset)+ "\n";
}
}// loop
document.formular.SONDER_INS.value="SONDER_INS";
document.formular.textarea.value = merkList.join('');
document.formular.textarea.focus();
}// function
//*************************************************************************************
// function web_start()
//*************************************************************************************
function web_start()
{
alert("Sie muessen die jar-Datei auf Ihrer Rechner speichern und mit dem Programm javaw.exe öffnen."+"\n"+"Hierzu rechte Maustaste > öffnen mit");
window.open('Listeneditor.jar');
}// function
//*************************************************************************************
// ENDE SCRIPT
//*************************************************************************************
</SCRIPT>
<META content="MSHTML 5.50.4919.2200" name=GENERATOR></HEAD>
<BODY bgColor=#808080 onload=begruessung()><BASEFONT
face=Courier,Arial,Helvetica,sans-serif>
<FORM name=formular>
<TABLE cellPadding=0 border=1 #CCCC99?>
<TBODY>
<TR align=left>
<TD width=50 bgColor=#cccc99 colSpan=2><FONT
size=1>Arbeitsbereich</FONT></TD>
<TD width=50 bgColor=#cccc99 colSpan=2><FONT
size=1>Einfügebereich</FONT></TD></TR>
<TR align=left>
<TD width=50 colSpan=2><TEXTAREA name=textarea rows=## wrap=off cols=##></TEXTAREA>
<TD width=50 colSpan=2 #DDDDDD?><TEXTAREA name=con_area rows=23 wrap=off cols=12></TEXTAREA>
</TD></TR></TBODY></TABLE>
<TABLE cellPadding=0 bgColor=#dddddd border=1>
<TBODY>
<TR align=left>
<TD width=1000 bgColor=#cccc99 face="Courier New, monospace" font><FONT
size=1>Loesche spaltenweise in jeder Zeile<SELECT style="WIDTH: 300px"
onchange=COLUMN() name=COLUM_WA> <OPTION value=DEFAULT
selected></OPTION> <OPTION value=LIJZML>die Markierung</OPTION> <OPTION
value=COL_WITHOUT_MARK>alles ausser der Markierung</OPTION></SELECT> <INPUT onmouseover="window.status='Hilfe zu dieser Funktion'; return true" style="WIDTH: 20px" onclick=help_lsijz() type=button value=?>
</FONT></TD>
<TD width=1000 bgColor=#cccc99 face="Courier New, monospace" font><FONT
size=1>Einfuegebereich setzen <SELECT style="WIDTH: 280px"
onchange=INS_AREA_INSERT() name=INSERT_AREA> <OPTION value=DEFAULT
selected></OPTION> <OPTION value=INS_AREA_LEFT>links neben Markierung
setzen</OPTION> <OPTION value=INS_AREA_RIGHT>rechts neben Markierung
setzen</OPTION> <OPTION value=MOVE_WORKAREA_TO_INS_AREA>Arbeitsbereich
in Einfuegebereich</OPTION> <OPTION
value=MOVE_MARK_WORKAREA_TO_INS_AREA>Markierung ausschneiden und in
Einfuegebereich</OPTION></SELECT> <INPUT onmouseover="window.status='Hilfe zu dieser Funktion'; return true" style="WIDTH: 20px" onclick=INS_AREA_HELP() type=button value=?>
</FONT></TD>
<TD width=1000 bgColor=#cccc99 face="Courier New, monospace" font><FONT
size=1>Sortier- und Filterfunktionen <SELECT
onmouseover="window.status='Markieren Sie zunaecht in der ersten Zeile.'; return true"
style="WIDTH: 280px" onchange=SORT_ALPHA_DEL_DUBBLES() name=SORT_AREA>
<OPTION value=DEFAULT selected></OPTION> <OPTION value=SORT_ALPHA>nach
Markierung sortieren</OPTION> <OPTION value=DEL_DUBBLES>Anzahl
Markierungen spaltenweise bestimmen</OPTION><OPTION value=B_GROUP>nach
Markierung gruppieren</OPTION></SELECT> <INPUT onmouseover="window.status='Hilfe zu dieser Funktion'; return true" style="WIDTH: 20px" onclick=help_sort_and_filter() type=button value=?>
</FONT></TD>
<TR align=left>
<TD width=1000 bgColor=#cccc99 face="Courier New, monospace" font><FONT
size=1>Loesche Zeilen, welche die Markierung <SELECT style="WIDTH: 300px"
onchange=LINE_DELETE() name=LINE_DELETE_AREA alt="Delete marked items">
<OPTION value=DEFAULT selected></OPTION> <OPTION
value=LINE_DELETE_MARK>enthalten</OPTION> <OPTION
value=LINE_DELETE_WITHOUT_MARK>NICHT enthalten</OPTION> <OPTION
value=LINE_DELETE_MARK_FIX>genau an der Stelle enthalten</OPTION>
<OPTION value=LINE_DELETE_WITHOUT_MARK_FIX>genau an der Stelle NICHT
enthalten</OPTION> <OPTION value=LINE_DELETE_MARK_HELP>... Hilfe zu
"enthalten"</OPTION> <OPTION value=LINE_DELETE_WITHOUT_MARK_HELP>...
Hilfe zu "NICHT enthalten"</OPTION> <OPTION
value=LINE_DELETE_MARK_FIX_HELP>... Hilfe zu "genau an der Stelle
enthalten"</OPTION> <OPTION value=LINE_DELETE_WITHOUT_MARK_FIX_HELP>...
Hilfe zu "genau an der Stelle NICHT enthalten"</OPTION></SELECT>
</FONT></TD>
<TD width=1000 bgColor=#cccc99 face="Courier New, monospace" font><FONT
size=1>Sonderfunktionen<BR><SELECT
onmouseover="window.status='Nachdem Sie eine Aktion ausgewählt haben, erscheint ein PopUp, welches erleutert, was im Arbeitsbereich geschehen ist.'; return true"
style="WIDTH: 300px" onchange=WA() name=DOK_WA> <OPTION value=DEFAULT
selected></OPTION> <OPTION value=DOK_WA_DELETE>Arbeitsbereich loeschen
(F5)</OPTION> <OPTION value=DOK_WA_COUNT>Arbeitsbereich
numerieren</OPTION><OPTION value=DOK_WA_COUNT_ALERT>Arbeitsbereich
Anzahl Eintraege bestimmen</OPTION> <OPTION value=DOK_WA_EGAL>Zeilen
ausgleichen mit Blanks</OPTION> <OPTION value=DOK_WA_TABS>Tabulatoren
ausgleichen</OPTION><OPTION value=DETERMINE_LENGTH_MARK>Laenge der
Markierung bestimmen</OPTION> <OPTION
value=DOK_WA_DELETE_HELP>..........Hilfe zu "Arbeitsbereich
loeschen"</OPTION> <OPTION value=DOK_WA_COUNT_HELP>......... Hilfe zu
"Arbeitsbereich numerieren"</OPTION> <OPTION
value=DOK_WA_EGAL_HELP>..........Hilfe zu "Zeilen ausgleichen mit
Blanks"</OPTION> <OPTION value=DOK_WA_TABS_HELP>..........Hilfe zu
"Tabulatoren ausgleichen"</OPTION></SELECT> </FONT></TD>
<TD bgColor=#cccc99><INPUT onmouseover="window.status='Diese Taste stellt den urspruenglichen Zustand wieder her, nachdem sie eine Verarbeitungstaste gedrueckt hatten.'; return true" style="WIDTH: 100px" onclick=rueckgaengig() type=button value=Rueckgaengig>
<INPUT onmouseover="window.status='Ueber diese Taste erhalten Sie eine allgemeine Hilfe.'; return true" style="WIDTH: 100px" onclick=all_hilfe() type=button value=Hilfe>
<INPUT style="WIDTH: 90px" onclick="parent.location='mailto:mariomueller@list-editor.de'" type=button value=E-mail>
</TD></TR>
<TR>
<TD width=1000 bgColor=#cccc99><INPUT name=SUCHSTRING>oder <SELECT
name=SONDERZEICHEN> <OPTION value=SONDERZEICHEN
selected>Sonderzeichen</OPTION> <OPTION value=TABU>Tabulator</OPTION>
<OPTION value=LINEFEED>Zeilenvorschub</OPTION></SELECT> </TD>
<TD width=1000 bgColor=#cccc99><INPUT name=ERSETZSTRING>oder <SELECT
name=ERSETZSONDERZEICHEN> <OPTION value=SONDERZEICHEN
selected>Sonderzeichen</OPTION> <OPTION value=TABU>Tabulator</OPTION>
<OPTION value=LINEFEED>Zeilenvorschub</OPTION></SELECT> </TD>
<TD width=1000 bgColor=#cccc99><INPUT onmouseover="window.status='Geben sie LINKS ein, welcher String zu ersetzen ist. Geben sie RECHTS ein, welcher String dafuer eingetragen werden soll.'; return true" style="WIDTH: 310px" onclick="suchen_ersetzen('+')" type=button value=" Suchen und ersetzen">
</TD></TR>
<TR align=left>
<TD width=1000 bgColor=#cccc99><INPUT name=left_insert_string>oder <SELECT name=SONDER_INS> <OPTION value=SONDER_INS selected>Sonderzeichen</OPTION> <OPTION value=TABU>Tabulator</OPTION>
<OPTION value=LINEFEED>Zeilenvorschub</OPTION></SELECT> </TD>
<TD width=1000 bgColor=#cccc99><INPUT onmouseover="window.status='Geben Sie links ein, was in jeder Zeile eingefuegt werden soll. Markieren Sie dann in der ersten Zeile.'; return true" style="WIDTH: 310px" onclick=left_insert() type=button value="Links neben Markierung einfuegen ">
</TD>
<TD width=1000 bgColor=#cccc99><INPUT onmouseover="window.status='Geben Sie links ein, was in jeder Zeile eingefuegt werden soll. Markieren Sie dann in der ersten Zeile.'; return true" style="WIDTH: 310px" onclick=right_insert() type=button value="Rechts neben Markierung einfuegen" face="courier" font>
</TD></TR>
<TR align=left>
<TD width=1000 bgColor=#cccc99></TD>
<TD width=1000 bgColor=#cccc99></TD>
<TD width=1000 bgColor=#cccc99></TD></TR>
<TR>
<TD width=1000 bgColor=#cccc99><INPUT onclick=web_start() type=button value="JAVA Version">
<td style="vertical-align: top; background-color: rgb(204, 204, 153); font-family: courier new,courier,monospace;"><input onmouseover="window.status='weitere nützlich JavaScripts'; return true" style="width: 300px;" onclick="window.location.href='JAVASCRIPTS/javascripts.html'" type="button" value="weitere nützlich JavaScripts"><br>
<TD width=1000 bgColor=#cccc99></TD>
</TR>
My Pasteboard Stuff — May 20, 2009 