Zum Inhalt springen

Amstelchen

Mitglieder
  • Gesamte Inhalte

    3.948
  • Benutzer seit

  • Letzter Besuch

Alle Inhalte von Amstelchen

  1. also soviel ich weiss, wird das eurozeichen durch AltGr+E eingegebn. ist auf der kiste vielleicht irgendwo ein shortcut auf Ctrl-Alt-E definiert (z.b. am desktop)? s'Amstel
  2. AutoIncrement-felder können mit NULL oder '' (leerstring) eingefügt werden, macht keinen unterschied. und fehlerhaftes sql sollte eigentlich beim aufruf von mysql_query einen fehler werfen, tut es das? s'Amstel
  3. Amstelchen

    Mit VBS Auslesen

    dein bevorzugtes instrument sollte WMI - und im speziellen "Win32_OperatingSystem" sein. siehe codeschnipsel: strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48) For Each objItem in colItems Wscript.Echo "BuildType: " & objItem.BuildType Next siehe im detail unter diesem link (anker beachten). s'Amstel
  4. beispiele (ungetestet), helfen dir die? i_view32.exe c:\test.bmp /convert=c:\test.jpg i_view32.exe c:\*.jpg /convert=d:\temp\*.gif i_view32.exe c:\*.jpg /resample=(500,300) /convert=d:\temp\*.png i_view32.exe c:\*.jpg /resample=(500,300) /aspectratio /convert=d:\temp\*.png befehlsparameter: /one - force 'Only one instance' /fs - force Full Screen display /bf - force 'Fit image to desktop' display option /title=text - set window title to 'text' /pos=(x,y) - move the window to x,y /convert=filename - convert input file to 'filename' and close IrfanView /slideshow=txtfile - play slideshow with the files from 'txtfile' /slideshow=folder - play slideshow with the files from 'folder' /thumbs=folder - force thumbnails (with a specific folder) /killmesoftly - close all IrfanView instances /closeslideshow - close slideshow and close IrfanView after the last image /page=X - open page number X from a multipage input image /crop=(x,y,w,h) - crop input image: x-start, y-start, width, height /print - print input image (all pages) to default printer and close IrfanView /print="Name" - print input image (all pages) to specific printer and close IrfanView /resize=(w,h) - resize input image to w (width) and h (height) /resample=(w,h) - resample input image to w (width) and h (height) /capture=X - capture the screen or window (see examples below) /ini - use the Windows folder for INI/LST files (read/save) /ini="Folder" - use the folder "Folder" for INI/LST files (read/save) /clippaste - paste image from the clipboard /clipcopy - copy image to the clipboard /silent - don't show error messages for command line read/save errors /invert - invert the input image /dpi=(x,y) - change DPI values /scan - acquire the image from the TWAIN device (show TWAIN dialog) /scanhidden - acquire the image from the TWAIN device (hide TWAIN dialog) /batchscan=(options) - simulate menu: File->Batch Scan, see below for example /bpp=BitsPerPixel - change color depth of the input image to BitsPerPixel /swap_bw - swap black and white color /gray - convert input image to grayscale /rotate_r - rotate input image to right /rotate_l - rotate input image to left /filepattern="x" - browse only specific files /sharpen=X - open image and apply the sharpen filter value X /contrast=X - open image and apply the contrast value X /hide=X - hide toolbar, status bar, menu and/or caption of the main window (see examples below) /aspectratio - used for /resize and /resample, keep image proportions /info=txtfile - write image infos to "txtfile" /append=tiffile - append image as (TIF) page to "tiffile" /multitif=(tif,files) - create multipage TIF from input files /jpgq=X - set JPG save quality /tifc=X - set TIF save compression /wall=X - set image as wallpaper /extract=(file,ext) - extract all pages from a multipage file /import_pal=palfile - import and apply a special palette to the image (PAL format) s'Amstel
  5. das "ist asp" von mir bezog sich auf den link in meinem posting, nicht den code - der ist php. ob es funktioniert, kann ich dir nicht sagen, ist ungetestet. die im php-source stehende url bietet dir aber ebenfalls eine gute ausgangsbasis für kreditkartencheck-algorithmen. s'Amstel
  6. vielleicht hilft dir Kreditkartenüberprüfung mit ASP (ist asp, lässt sich aber sicher auch auf php ummodeln). zuerst schau dir vl mal dies an: ************************************************************************ * * CCVal - Credit Card Validation function. * * Copyright (c) 1999 Holotech Enterprises. All rights reserved. * You may freely modify and use this function for your own purposes. You * may freely distribute it, without modification and with this notice * and entire header intact. * * This function accepts a credit card number and, optionally, a code for * a credit card name. If a Name code is specified, the number is checked * against card-specific criteria, then validated with the Luhn Mod 10 * formula. Otherwise it is only checked against the formula. Valid name * codes are: * * mcd - Master Card * vis - Visa * amx - American Express * dsc - Discover * dnc - Diners Club * jcb - JCB * * A description of the criteria used in this function can be found at * http://www.beachnet.com/~hstiles/cardtype.html. If you have any * questions or comments, please direct them to ccval@holotech.net * * Alan Little * Holotech Enterprises * http://www.holotech.net/ * September 1999 * ************************************************************************/ function CCVal($Num, $Name = 'n/a') { // Innocent until proven guilty $GoodCard = true; // Get rid of any non-digits $Num = ereg_replace("[^[:digit:]]", "", $Num); // Perform card-specific checks, if applicable switch ($Name) { case "mcd" : $GoodCard = ereg("^5[1-5].{14}$", $Num); break; case "vis" : $GoodCard = ereg("^4.{15}$|^4.{12}$", $Num); break; case "amx" : $GoodCard = ereg("^3[47].{13}$", $Num); break; case "dsc" : $GoodCard = ereg("^6011.{12}$", $Num); break; case "dnc" : $GoodCard = ereg("^30[0-5].{11}$|^3[68].{12}$", $Num); break; case "jcb" : $GoodCard = ereg("^3.{15}$|^2131|1800.{11}$", $Num); break; } // The Luhn formula works right to left, so reverse the number. $Num = strrev($Num); $Total = 0; for ($x=0; $x<strlen($Num); $x++) { $digit = substr($Num,$x,1); // If it's an odd digit, double it if ($x/2 != floor($x/2)) { $digit *= 2; // If the result is two digits, add them if (strlen($digit) == 2) $digit = substr($digit,0,1) + substr($digit,1,1); } // Add the current digit, doubled and added if applicable, to the Total $Total += $digit; } // If it passed (or bypassed) the card-specific check and the Total is // evenly divisible by 10, it's cool! if ($GoodCard && $Total % 10 == 0) return true; else return false; } if(CCVal($nummer_card, $name_card)) echo 'Check ist TRUE'; else echo 'Check ist FALSE'; s'Amstel
  7. vl hilft dir das: Dim i As Integer Dim factory As Node Dim group As Node Dim person As Node ' Create some nodes. Set factory = OrgTree.Nodes.Add(, , "f R & D", "R & D", _ otFactory, otFactory2) Set group = OrgTree.Nodes.Add(factory, tvwChild, "g " & _ "Engineering", "Engineering", otGroup, otGroup2) Set person = OrgTree.Nodes.Add(group, tvwChild, "p " & _ "Cameron, Charlie", "Cameron, Charlie", otPerson, _ otPerson2) Set person = OrgTree.Nodes.Add(group, tvwChild, "p " & _ "Davos, Debbie", "Davos, Debbie", otPerson, _ otPerson2) person.EnsureVisible Set group = OrgTree.Nodes.Add(factory, tvwChild, "g " & _ "Test", "Test", otGroup, otGroup2) Set person = OrgTree.Nodes.Add(group, tvwChild, "p " & _ "Able, Andy", "Andy, Able", otPerson, otPerson2) Set person = OrgTree.Nodes.Add(group, tvwChild, "p " & _ "Baker, Betty", "Baker, Betty", otPerson, otPerson2) person.EnsureVisible Set factory = OrgTree.Nodes.Add(, , "f Sales & " & _ "Support", "Sales & Support", otFactory, otFactory2) Set group = OrgTree.Nodes.Add(factory, tvwChild, "g " & _ "Showroom Sales", "Showroom Sales", otGroup, _ otGroup2) Set person = OrgTree.Nodes.Add(group, tvwChild, "p " & _ "Gaines, Gina", "Gaines, Gina", otPerson, otPerson2) person.EnsureVisible Set group = OrgTree.Nodes.Add(factory, tvwChild, "g " & _ "Field Service", "Field Service", otGroup, otGroup2) Set person = OrgTree.Nodes.Add(group, tvwChild, "p " & _ "Helms, Harry", "Helms, Harry", otPerson, otPerson2) Set person = OrgTree.Nodes.Add(group, tvwChild, "p " & _ "Ives, Irma", "Ives, Irma", otPerson, otPerson2) Set person = OrgTree.Nodes.Add(group, tvwChild, "p " & _ "Jackson, Josh", "Jackson, Josh", otPerson, _ otPerson2) person.EnsureVisible Set group = OrgTree.Nodes.Add(factory, tvwChild, "g " & _ "Customer Support", "Customer Support", otGroup, _ otGroup2) Set person = OrgTree.Nodes.Add(group, tvwChild, "p " & _ "Klug, Karl", "Klug, Karl", otPerson, otPerson2) Set person = OrgTree.Nodes.Add(group, tvwChild, "p " & _ "Landau, Linda", "Landau, Linda", otPerson, _ otPerson2) person.EnsureVisible End Sub klappt mit dem ms treeview ctl v6 in access 2002 hervorragend. achja: manche objekte werden zwar im objektkatalog (mit F2 aufrufbar) angezeigt, aber von intellisense verschwiegen. s'Amstel
  8. perl.de, perlhelp.de, perl-board.de, perl.org, die cgi spec, den idiots guide, mod_perl bei apache, modperl, perl dbi, etc etc etc *fg* und natürlich das usenet - comp.lang.perl.* !!!1eins s'Amstel
  9. es geht auch billiger, eine kleine auswahl. 1. exportiere die tabellen als csv-formatierte dateien aus access und importiere sie in mysql mittels load data infile. nimm allenfalls tools wie mysqlfront oder toad for mysql oder ähnliches zu hilfe. 2. exportiere die tabellen direkt über die mysql-odbc schnittstelle. 3. erstelle die grundstruktur der tabellen in mysql und füttere diese daten mittels tabellenerstellungs-/aktualisierungsabfragen aus access heraus. s'Amstel
  10. forfiles -pD:\verzeichnis -s -m*.* -d-7 -c"cmd /c del FILE" forfiles findest du hier. oder das ganze mittels wsh: verzeichnis = "D:\verzeichnis" tage = 7 Set fso = CreateObject("Scripting.FileSystemObject") Set verz = fso.GetFolder(verzeichnis) Set dateien = ordner.files heute = date() for each datei in dateien if datei.DateLastModified < (heute - tage) then datei.delete end if next s'Amstel
  11. statt href="#" verwende href="javascript:void(0);" dann sollte er beim href eigentlich garnix machen. s'Amstel
  12. soweit ich mich erinnern kann, im register identifikation der eigenschaften vom netzwerk (start - einstellungen - systemsteuerung - netzwerk). s'Amstel
  13. bei win xp: desktop sperren ist windows-taste und "L". bei win 2k gibts nur strg-alt-enf und ENTER. mittels eines anderen shortcuts ist m.w. nicht möglich, ausser über desktop-link. s'Amstel
  14. keep it simple and straightforward. 40er platte: xp+programme 80er platte: daten, spiele, rest weil: nach xp-neuinstallation bleiben die meisten programme erhalten. 80er platte würde ich regelmässig sichern, aufgeteilt in daten, meinetwegen spiele (falls notwendig) und rest. "eigene dateien" würde ich von der 40er (von xp weg) auf die 80er umverlinken. wenn die 80er voll ist, eine 120er dazukaufen *fg* s'Amstel
  15. vnc in der professional-version kennt authentifizierung und verschlüsselung, benötigt auch keinen client, sondern bietet zusätzlich zum client noch den zugriff mittels java-applet via http zu. ist auf allen plattformen (linux/unix, win, solaris, etc.) sowohl server- als auch clientseitig verwendbar.
  16. die mail()-funktion unter php ist auch bei mehr als 4000 mails performant. alternative: $fp = fsockopen("mail.server.de", 25); d.h. direkt an dem smtp-port des mailservers verbinden, HELO, MAIL FROM, RCPT TO und dann noch einen inhalt nach DATA, fertig, ab damit. s'Amstel
  17. dann probier doch mal insert into Tabelle2 (test1, test2) select feld1, feld3 from Tabelle1 oder update Tabelle2 set Tabelle2.test1 = Tabelle1.feld1, Tabelle2.test2 = Tabelle1.feld3 d.h. nur ausgewählte felder aus tab1 kommen in bestimmte felder in tab2. alternativ erstelle zwei recordsets und weise in einer schleife die felder indirekt zu, z.b. do while not rsTab1.EOF rsTab2!test1 = rsTab2!feld1 rsTab2!test2 = rsTab2!feld3 rsTab1.movenext loop s'Amstel
  18. "alle datensätze" und "filtern", widerspricht sich das nicht? also der simpelste aufruf wäre DoCmd.RunSQL "insert into Tabelle2 select * from Tabelle1" DoCmd.RunSQL "delete from Tabelle1" natürlich vorausgesetzt, die tabellen haben die gleiche struktur. ansonsten müsstests du nähere details rausrücken... s'Amstel
  19. Amstelchen

    Java Icons

    http://java.sun.com/developer/techDocs/hi/repository/
  20. Amstelchen

    Ressourcen bei VBA

    du könntest allenfalls über die exportfunktionen LoadIcon, LoadImage, LoadBitmap, LoadCursor, LoadCursorFromFile der user32.dll bilder in den speicher bekommen. eine andere alternative wäre, eine binäre ressourcendatei zu erstellen, und diese innerhalb deiner vba-anwendung mit dateisystemfunktionen wie Open For Binary Access zu verwenden. s'Amstel
  21. vielleicht check ich es nicht ganz, aber du hast in Drive.DriveLetter ja eh schon den laufwerksbuchstaben vom cd-rom stehen. das mit CurrentDirectory angewandt sollte doch auf das richtige laufwerk wechseln. s'Amstel
  22. okok, der link ist umfangreich, aber: empfehlen != ergooglen *fg* just my 2 eurocents. s'Amstel
  23. Set objShell = Wscript.CreateObject("Wscript.Shell") objShell.CurrentDirectory = "D:\" sollte helfen. s'Amstel
  24. ok, html-tidy vom w3c würde mir noch einfallen, läuft auf der kommandozeile.
  25. word-html ist pfui - ich empfehle dir z.b. die word-bereinigungsfunktion von macromedia dreamweaver oder simples copy+paste (dauert länger, ist aber sauberer). und in html-help muss einzig und allein das bild im richtigen verzeichnis liegen und richtig referenziert werden, um in die chm-datei eincompiliert zu werden. s'Amstel

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...