Welcome to Programmers Language v2

ID: 73
PlCodelang: Delphi
PlGroup: Windows - Prompt Errorlevel
PlItemTitle: Errorlevel setzen
Code: //... var errorlevel: Integer; begin if cond1=cond2 then errorlevel:=0; if cond1<>cond2 then errorlevel:=1; halt(errorlevel); end.

ID: 74
PlCodelang: Delphi
PlGroup: Typenkonvertierung
PlItemTitle: String in Integer konvertieren
Code: MyInt:=StrToInt('125');

ID: 75
PlCodelang: C#
PlGroup: Typenkonvertierung
PlItemTitle: String in Integer konvertieren
Code: int MyInt if (Int32.TryParse("125", out MyInt)) { // Parsing was successfull }

ID: 76
PlCodelang: Python
PlGroup: Netzwerk, Email
PlItemTitle: Email versenden
Code: # Found at (and little modified): http://www.semi-legitimate.com/sls/blog/37-quick-notes/62-command-line-smtp-from-python #!/usr/bin/python import smtplib, sys if len(sys.argv) != 5: print "You must call me like:" print " mailme from to subject msgfile" sys.exit() fromadr = sys.argv[1] toadr = sys.argv[2] subject = sys.argv[3] msgfile = sys.argv[4] try: f = open(msgfile) msg = f.read() except: print "Invalid Message File: " + msgfile sys.exit() m = "From: %s To: %s Subject: %s X-Mailer: My-Mail " \ % (fromadr, toadr, subject) smtpserver="mysmtp.lan" loginuser="Marty_McFly" loginpwd="DeLorean" smtp = smtplib.SMTP() smtp.connect(smtpserver) smtp.login(loginuser, loginpwd) smtp.ehlo() smtp.sendmail(fromadr, toadr, m+msg) smtp.close()

ID: 77
PlCodelang: Delphi
PlGroup: Filehandling
PlItemTitle: Applikations-/Script-Verzeichnis ermitteln
Code: AppPath:=ExtractFilePath(Application.Exename);

ID: 78
PlCodelang: Delphi
PlGroup: Anwendungskonfigurationsdateien
PlItemTitle: INI-Datei lesen
Code: uses IniFiles; var iniMem: TMemIniFile; // ini-File (ready only one time) // Load the ini-information once - maybe at startup function TMyForm.LoadIniFile:boolean; var SL : TStringList; return : Boolean; iniFile : String; begin iniFile:='myFormConfig.ini'; return:=true; if not FileExists(ExtractFilePath(Application.Exename)+iniFile) then begin MessageDlg('ini-File not found!', mtError, [mbOK], 0); return:=false; end; if not return then halt; iniMem:=TMemIniFile.Create(''); SL:=TStringList.Create; SL.LoadFromFile(ExtractFilePath(Application.Exename)+iniFile); iniMem.SetStrings(SL); LoadIniFile:=return; end; procedure TMyForm.DoThis; begin ShowMessage(iniMem.ReadString('Section','Attribute','Default-Value')); end;

ID: 79
PlCodelang: T-SQL
PlGroup: Datenbank, Collation
PlItemTitle: Datensatz Case-Sesitive abfragen
Code: -- Table containing Values -- content (column) -- a -- A SELECT content FROM myTable WHERE content='A' COLLATE SQL_Latin1_General_CP1_CS_AS -- Result: A

ID: 80
PlCodelang: T-SQL
PlGroup: Datenbank, Collation
PlItemTitle: Collation (Sortierreihenfolge) einer Datenbank ändern
Code: -- Collation einer Multi-User Datenbank ändern -- Über SSMS kommt die Fehlermeldung 5030 (Die Datenbank konnte nicht exklusiv gesperrt werden, um den Vorgang auszuführen.) -- siehe dazu: http://sunali.com/2009/10/08/microsoft-sql-server-error-5030/ -- the following line sets the database to "Single User" mode ALTER DATABASE MYDB SET SINGLE_USER WITH ROLLBACK IMMEDIATE -- the following line sets the new collation ALTER DATABASE MYDB COLLATE Latin1_General_CS_AS -- the following line sets the database back to "Multi User" mode ALTER DATABASE MYDB SET MULTI_USER

ID: 81
PlCodelang: T-SQL
PlGroup: Datenbank, Collation
PlItemTitle: Collation-Arten auflisten
Code: -- siehe auch: http://msdn.microsoft.com/de-de/library/ms187963.aspx SELECT * FROM fn_helpcollations()

ID: 82
PlCodelang: Caché
PlGroup: Textdateien
PlItemTitle: Textdatei schreiben
Code: Set file=##class(%File).%New("file.txt") Write file.Size Do file.Open("WSN") Do file.WriteLine("This is a line of text")