ריכוז פוסטים של חברי קהילת התוכנה החופשית

almost · חייבות

a = 1
b = '9'
(a..b.to_i).include? 5
#=> true
puts $$
puts Process.pid

puts Process.ppid

Process.euid = 0 # you shell be root user (if you are allowed)
Process.egid = 0 # you shell be root group (if you are allowed)
 # The victim
trap('KILL'){ # Yes only proc is allowed, and there is no support for block
  puts "Ouch, that's hurt! Goodbye cruel world !"
}
trap(3) {
  puts "I'm not quitting this stupid execution !"
}

# The killer
Process.kill(9, pid) # signal number. if you pass it as string, it will add SIG before 9
Process.kill('QUIT', pid) # signal name... Lower case will add SIG before quit

--command=cmds.gdb
cmds.perldb
source cmds.perldb

s
history-search-forward
history-search-backward
{
excel8write.dpr

Demonstrates how to write an Excel 8+ file using the fpspreadsheet library

AUTHORS: Felipe Monteiro de Carvalho
}
program excel8write;

{$mode delphi}{$H+}

uses
 Classes, SysUtils, fpspreadsheet, xlsbiff8,
 laz_fpspreadsheet, fpsconvencoding;

const
 Str_First = 'First';
 Str_Second = 'Second';
 Str_Third = 'Third';
 Str_Fourth = 'Fourth';
 Str_Worksheet1 = 'Meu Relatório';
 Str_Worksheet2 = 'My Worksheet 2';
 Str_Total = 'Total:';
var
 MyWorkbook: TsWorkbook;
 MyWorksheet: TsWorksheet;
 MyRPNFormula: TsRPNFormula;
 MyDir: string;
 i: Integer;
begin
 MyDir := ExtractFilePath(ParamStr(0));

 // Create the spreadsheet
 MyWorkbook := TsWorkbook.Create;
 MyWorksheet := MyWorkbook.AddWorksheet(Str_Worksheet1);

 // Write some cells
 MyWorksheet.WriteNumber(0, 0, 1.0);// A1
 MyWorksheet.WriteNumber(0, 1, 2.0);// B1
 MyWorksheet.WriteNumber(0, 2, 3.0);// C1
 MyWorksheet.WriteNumber(0, 3, 4.0);// D1
 MyWorksheet.WriteUTF8Text(4, 2, Str_Total);// C5
 MyWorksheet.WriteNumber(4, 3, 10);        // D5

{ Uncommend this to test large XLS files
 for i := 2 to 20 do
 begin
 MyWorksheet.WriteAnsiText(i, 0, ParamStr(0));
 MyWorksheet.WriteAnsiText(i, 1, ParamStr(0));
 MyWorksheet.WriteAnsiText(i, 2, ParamStr(0));
 MyWorksheet.WriteAnsiText(i, 3, ParamStr(0));
 end;
}

 // Write the formula E1 = A1 + B1
 SetLength(MyRPNFormula, 3);
 MyRPNFormula[0].ElementKind := fekCell;
 MyRPNFormula[0].Col := 0;
 MyRPNFormula[0].Row := 0;
 MyRPNFormula[1].ElementKind := fekCell;
 MyRPNFormula[1].Col := 1;
 MyRPNFormula[1].Row := 0;
 MyRPNFormula[2].ElementKind := fekAdd;
 MyWorksheet.WriteRPNFormula(0, 4, MyRPNFormula);

 // Write the formula F1 = ABS(A1)
 SetLength(MyRPNFormula, 2);
 MyRPNFormula[0].ElementKind := fekCell;
 MyRPNFormula[0].Col := 0;
 MyRPNFormula[0].Row := 0;
 MyRPNFormula[1].ElementKind := fekABS;
 MyWorksheet.WriteRPNFormula(0, 5, MyRPNFormula);

 //MyFormula.FormulaStr := '';

 // Creates a new worksheet
 MyWorksheet := MyWorkbook.AddWorksheet(Str_Worksheet2);

 // Write some string cells
 MyWorksheet.WriteUTF8Text(0, 0, Str_First);
 MyWorksheet.WriteUTF8Text(0, 1, Str_Second);
 MyWorksheet.WriteUTF8Text(0, 2, Str_Third);
 MyWorksheet.WriteUTF8Text(0, 3, Str_Fourth);
 MyWorksheet.WriteTextRotation(0, 0, rt90DegreeClockwiseRotation);

 // Save the spreadsheet to a file
 MyWorkbook.WriteToFile(MyDir + 'test2.xls', sfExcel8, False);
 MyWorkbook.Free;
end.

{
excel8read.dpr

Demonstrates how to read an Excel 8.x file using the fpspreadsheet library

AUTHORS: Felipe Monteiro de Carvalho
}
program excel8read;

{$mode delphi}{$H+}

uses
 Classes, SysUtils, fpspreadsheet, xlsbiff8,
 laz_fpspreadsheet;

var
 MyWorkbook: TsWorkbook;
 MyWorksheet: TsWorksheet;
 InputFilename: string;
 MyDir: string;
 i: Integer;
 CurCell: PCell;

begin
 // Open the input file
 MyDir := ExtractFilePath(ParamStr(0));
 InputFileName := MyDir + 'test.xls';
 WriteLn('Opening input file ', InputFilename);

 // Create the spreadsheet
 MyWorkbook := TsWorkbook.Create;
 MyWorkbook.ReadFromFile(InputFilename, sfExcel8);

 MyWorksheet := MyWorkbook.GetFirstWorksheet;

 // Write all cells with contents to the console
 WriteLn('');
 WriteLn('Contents of the first worksheet of the file:');
 WriteLn('');

 CurCell := MyWorkSheet.GetFirstCell();
 for i := 0 to MyWorksheet.GetCellCount - 1 do
 begin
   WriteLn('Row: ', CurCell^.Row,
   ' Col: ', CurCell^.Col, ' Value: ',
     UTF8ToAnsi(MyWorkSheet.ReadAsUTF8Text(CurCell^.Row,
     CurCell^.Col))
    );
    CurCell := MyWorkSheet.GetNextCell();
 end;

 // Finalization
 MyWorkbook.Free;
end.

ריכוז פוסטים של חברי קהילת התוכנה החופשית

‫על ההבדל בין טכנאי כבלים לשחקן, בין תושב ישראל למתנחל‬

25 דקות של משימה

Blog Day 2010

‫יום הבלוג 2010!‬

מצב העברית באופן אופיס לקראת גרסה 3.3

אלגוריתמים גרפיים

‫מחשבות פזורות (מאד) על הבוקר, על ספקנות והעידן הגאולוגי הבא‬

It's the end of the world as we know it, as far as we know

Let it be an amarok on my win machine...

‫כמה מילים על סוג הלקוח שאני לא רוצה‬

Is the web becoming fragmented?

‫על Nokia N9‬

‫עוד ועוד סדקים‬

האם דביאן וחבריה בדרך הלא נכונה ?

משהוא הזויי עובר על הקשר בין בזק + בזק בן לאומי + שרתי המקור

קצת טיפים לתכנות ברובי

‫יידישע פיראטען‬

‫דמוקרטיה בקליפים ויראליים‬

הטפסים של ביטוח לאומי ו-Firefox

מדוע FPC וLazarus צריכים לעניין גם אנשי קוד פתוח

בין ויואלדי לבטהובן

‫איזו מערכת הפעלה קלה יותר לשימוש?‬

‫חולם להיות בכושר‬

Perl Debugger Tip: A Session Startup File

של מי הזכויות על פרוייקט הגמר האקדמי שלי ?

סודרה תקלה באתר המראה של פדורה

n900 – עכשיו גם אני

aharoni

רשימת אתרי מראה בישראל

ייצוא/ייבוא מ/אל גליון אלקטרוני ומסד נתונים שלכם

‫מגורשי גוש קטיף‬

aharoni

תלמד לכתוב אתר כבר!

סופ"ש קוד פתוח

aharoni

כסף כסף כסף, שורף לי את קצה היד …

aharoni

‫כל כך חם‬

דוגמה לעבודה טובה של מוקד - היכן אפשר למנגל בבאר שבע

‫אל תהיה פוץ‬

הסברה מול הטחת עובדות – עוד פן

עדכון מפרוייקט אופן אופיס הקהילתי

חסר לי Wi-Fi האם להרים drone לאוויר ?

שיתוף לכתיבה בסמבה למשמש אנונימי

טיפים לעבודה בmongodb חלק ראשון

‫בדיחה נאצית‬

‫חרדים‬

FreePBX != Asterisk וטלפון ספציפי לא מייצג את יכולות המרכזייה !

aharoni

‫תכירו: Natty Narwhal‬

אם יש לך קשר לארגון פר"ח (עובד) צור קשר עימי: יש חור באתר פר"ח ששולח פרטי חשבונות בנק לכל דורש

‫מילונים של באבילון ב־StarDict ו־GoldenDict‬

‫לתפוש עננים ברשת ..‬

‫"הבה נתחכמה לו פן ירבה … ונוסף גם הוא על שונאינו"‬

אבולוציה של שפת תכנות

‫Midori – הדפדפן הבא!‬

‫איך דורכים על הולכי הרגל‬

My 5 Cents On Oracle vs Google

אורקל מול גוגל

‫נפלאות ההתקנה החדשה של אובונטו 10.10‬

‫Alt + Ctrl + Backspace‬

‫Great success + Pictures :)‎‬