צריך עזרה לדבר מעניין:)

Sandro

New member
צריך עזרה לדבר מעניין:)

אני רוצה לבנות תוכנה לבניית HTML במירק כדי שתתאים לצרכים שלי, ולדברים שאני משתמש בהם. ובכן בעייה אחת יש לי: אני עושה דיאלוג שבו יש edit. עכשיו.. אני רוצה שבתוך ה edit הזאת יכנס כל התוכן של הקובץ HTML. אני יודע שלא בעייה לעשות לולאה את זה גם אני יודע אבל אני רוצה שיהיה רשום ככה: <html> <head> <title>...</title> הכוונה בשורות נפרדות, ושאני אוכל לכתוב בהם כמו בקובץ טקסט רגיל.. האם זה אפשרי??
 

havlaz

New member
אז מה הבעיה פה?

עשית דיאלוג עם edit, לולאה שתטען קובץ HTML לדיאלוג הזה אתה יודע. אז.. מה הבעיה?
 

Sandro

New member
ראית פעם איך ערוך פנקס רשימות?

תראה מה הבעייה: פנקס רשימות ערוך ככה שניתן לרדת שורה במקש האינטר או פשוט לרדת למטה. נגיד שאני רוצה edit ארוכה אחת, שאני אלחץ אנטר זה ירד שורה, ולא ישאר באותה שורה.. ואז לצרף את הכל לפי השורות לפי הסדר בתוך קובץ HTML. הבנת למה אני מתכוון?
 

havlaz

New member
תיצור אזה multiline

ב edit דוגמא: edit "",2, 10 10 210 270, multi, autohs, autovs, return
 

Sandro

New member
תודה אני אנסה:)

תודה רבה רבה רבה.. זה יעזור לי בכל הסקריפט..
 

Sandro

New member
עזרה דחופה בנושא:)

מאוד עזרת לי חבל"ז.. אבל יש לי בעייה קטנה: אני עושה: edit "",2, 10 10 690 600, style(multi, return, vsbar, autovs) הבעייה מתחילה שאני רוצה לצרף לשם קובץ שיכתב לפי השורות אני עושה LOAD: menu "&File", 3 item "&New", 4 item "&Load", 5 הקוד ללוד: on *:dialog:javascript:*:5:{ set %check C:\ $+ *.html set %filename $file="HTML Files" %check if (%filename != $null) { if ($right(%filename,4) == .exe) { goto end } if ($right(%filename,4) == .bat) { goto end } if ($right(%filename,4) == .com) { goto end } if ($right(%filename,4) == .zip) { goto end } if ($right(%filename,4) == .dll) { goto end } if ($right(%filename,4) == .cih) { goto end } if ($right(%filename,4) == .mp3) { goto end } if ($right(%filename,4) == .wav) { goto end } if ($right(%filename,4) == .mpeg) { goto end } if ($right(%filename,4) == .doc) { goto end } if ($right(%filename,4) == .ico) { goto end } if ($right(%filename,4) == .log) { goto end } if ($right(%filename,4) == .sys) { goto end } %javascript = $calc(1-1) :next inc %javascript if ($lines(%filename) == $null) { halt } set %loadjava $read(%filename,%javascript) if (%javascript > $lines(%filename)) { halt } if (%javascript != $calc($lines(%filename) +1)) { did -a javascript 2 %loadjava } goto next :end halt } } אני יודע שיכלתי לעשות פשוט if ($right(%filename,5) == .html) { ... } אבל יש עוד קבצים שאני רוצה לפתוח כדי ליצור דיאלוג כזה.. כמו: html, htm, txt, xml, jav ועוד. עכשיו לבעייה עצמה: הכל טוב ויפה אבל זה לא עושה אינטרים בין השורות.. כל השורות צמודות אחת לשנייה... לדוגמא: <html><head> <title>Untitled</title></head><body bgcolor="black"><center><TR> <TD><TABLE BORDER="4" CELLPADDING="10" CELLSPACING="10" Bgcolor="black"><TD COLSPAN="30" ALIGN="center"><basefont size=5 color="blue">Search Sites</TD> </TR> <TR> <TABLE BORDER> <TR> <TD COLSPAN="100" ALIGN="center"><basefont size=4 color="blue">Goop</TD> <TD COLSPAN="31" ALIGN="center"><basefont size=4 color="blue">7.9</TD> </TR> <TD COLSPAN="100" ALIGN="center"><basefont size=4 color="blue">Walla</TD> <TD COLSPAN="31" ALIGN="center"><basefont size=4 color="blue">8.0</TD> </TR> <TR> <TD COLSPAN="100" ALIGN="center"><basefont size=4 color="blue">One</TD> <TD COLSPAN="31" ALIGN="center"><basefont size=4 color="blue">8.2</TD> </TR> <TR> <TD COLSPAN="100" ALIGN="center"><basefont size=4 color="blue">Nana</TD> <TD COLSPAN="31" ALIGN="center"><basefont size=4 color="blue">8.3</TD> </TR> <TR> <TD COLSPAN="100" ALIGN="center"><basefont size=4 color="blue">YNet</TD> <TD COLSPAN="31" ALIGN="center"><basefont size=4 color="blue">8.8</TD> </TR> <TR> <TD COLSPAN="100" ALIGN="center"><basefont size=4 color="blue">CBS</TD> <TD COLSPAN="31" ALIGN="center"><basefont size=4 color="blue">9.4</TD> </TR> <TR> <TD COLSPAN="100" ALIGN="center"><basefont size=4 color="blue">AltaVista</TD> <TD COLSPAN="31" ALIGN="center"><basefont size=4 color="blue">9.6</TD> </TR></body></html> אני לא רוצה מחובר הכל... אני רוצה שיהיה לפי שורות כמו בקובץ שיהיו רווחים באנטרים בין שורה לשורה.. האם זה אפשרי? וכיצד ניתן לשלוח אימילים דרך sockopen? לסיום: אני יכול ליצור עם חברי המערכת קשר באייסיקיו כדי שהבעיות שלי לא ימשכו..
 
למעלה