schnitzel21m

void main() { int taste; int key; do { if(kbhit) { taste = getch(); cout << taste; } else cout << "keine taste" << endl; } while (taste != 28); } ...ich muß irgendwas 'übergeben'/machen, solange keine tastureingabe erfolgt...wie geht dem

kbhit reagiert nicht richtig. ich habe ne schleife geschrieben, in der überprüft wird, ob eine taste gedrückt wurde. Wenn eine Tastatur gedrückt wurde, soll der ASCII - Code ausgegeben werden (funzt), aber er erwartet immer wieder ne neue eingabe. solange keine taste gedrückt wurde, soll er ne ausgabe "keine taste" machen. das funzt nicht, warum?

Tach auch, hat jemand schon mal snake (nokia-like) programmiert? ich muß das bauen un häng ein wenig! kann mir das jemand zuschicken? Mit Dank, Gleise

If (Mid(objFile.Name, 1, 7)) = "CITOTBL" Then If (FileExists("\\JVKRAXON\CEDS$\FILES\CITOTBL.TXT")) Then DeleteFile "\\JVKRAXON\CEDS$\FILES\CITOTBL.TXT" End If objFile.Copy "\\JVKRAXON\CEDS$\" objFile.Name = "CITOTBL.TXT" objFile.Copy "\\JVGRIZZLY\CEDS$\FILES\" objFile.Name = "CITOTBL.TXT" objFile.Move "\\JVKRAXON\TRANSFER\NEW\" End If so, der compiler meckert wegen FileExists...warum? Der sagt: type mismatch

willst du mich ******?

so, wie lösche ich in über ein ActiveX-Script einen file, der in einem anderen pfad als mein "objektpfed" liegt das hier is falsch: DeleteFile "\\JVKRAXON\CEDS$\IFLES\CITOTBL.TXT" wie heißt das in richtig?

so, weil ich so geil bin hab ichs dann gelöst! danke erst ma für den copy-tip! damit gings...allerdibgs muß man noch folgendes beachten: da der file schon im object gespeichert ist muß man nur den zielordner angeben!!!-> objFile.Copy "C:\EARS\Archive\" die quelle darf man nicht angeben!...wie es eigentlich üblich wäre! ich frag mich, wer solch eine ******-sprache erfunden hat... ...war das nicht der Peter Visual? gruß, gleise

Function Main() Dim objFSO, objFile, objFolder, colFiles, filestring Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(DTSGlobalVariables("gvFilePathRoot").Value) Set colFiles = objFolder.Files If colFiles.Count > 0 Then For Each objFile in colFiles If UCase (Right(objFile, 4)) = ".TXT" Then 'stringClientID = (Left(objFile.Name, 31)) If (Mid(objFile.Name, 1, 4)) = "ears" Then objFile.FileCopy "C:\EARS\"&objFile.Name, "C:\EARS\Archive\" <-DAS FUNKTIONIERT NICHT 'objFile.Move "C:\EARS\Logo\" <-DAS FUNKTIONIERT 'objFile.Name = "earsopenitemtbl.txt" <-DAS FUNKTIONIERT End If End If Next End If Main = DTSTaskExecResult_Success End Function aber hierdas copieren geht: '********************************************************************** ' Visual Basic ActiveX Script '************************************************************************ Function Main() Dim fso 'File system object Dim objFile, objFolder Set fso = CreateObject("Scripting.FileSystemObject") Set objFolder = fso.GetFolder(DTSGlobalVariables("gvFilePathRoot").Value) IF (fso.FileExists("C:\EARS\earsopenitemtbl838383832283.txt")) THEN fso.CopyFile "C:\EARS\earsopenitemtbl838383832283.txt", "C:\EARS\Logo\" END IF Main = DTSTaskExecResult_Success End Function ...ich raff das net! PS: die funktion klappt theorethisch schon

warum geht das net: objFile.FileCopy "C:\EARS\"&objFile.Name, "C:\EARS\Archive\" PS:ich kann den FileName nicht direkt ansprechen, da der name von file zu file variiert!

habt dank, habs schon gelöst! so ähnlich wie auch dein vorschlag war... für alle die's interessiert: hab den pfad angegeben un dann mit der mid-funktion nach solchen dateien gesucht! mit ner schleife noch schön ausgeschmückt un jetzt rennt das ding wie die sau! gruß, schnitzel

das script soll ma am server laufen...täglich! täglich kommen neue files von der sorte auf das laufwerk dass in meinem beispiel halt c ist! die zahlen sollen ein datum mit einer id darstellen! eine regel in dem sinne gibt es nicht! ich will den file quasie variabel ansprechen, un dann verschieben un umbenennen-> dafür muß ich aber den namen irgenwie wisse! die ******e is ja, das es in vba keine platzhalter gibt! sonst hätt man ja einfach ears*.txt sagen können! achso: doch der Filename fängt immer mit ears... an! und es ist immer ein txt-file! soviel zur regel! also?

Ich könnt' kotzen! Wie kann ich in VBA einen File ansprechen, von dem ich den pfad und den anfang weiß, aber nicht den kompletten namen des files? Beispiel: file liegt auf: c:\EARS\ ....der file heißt ears123456789012.txt der file ändert aber täglich seinen namen, um genau zu sein ändert sich nur die zahlenfolge! es gibt ja eine funktion mid(file x, z)...aber ich muß den file doch erst ma ansprechen!!! nur wie, wenn ich nicht weiß, wie der genau heißt!? helft ma bitte

ich weiß, was du meinst! wenn ich das aber mit quelle und ziel machen will, meckert der compiler! dieses VB-Script arbeitet irgendwie mit einer abgespeckten version vom vba -> hab ich zumindest den eindruck: der fso-variable ist der file zugewiesen un mit dem copy sag ich, das er diesen file in den besagten ordner copieren soll. also quelle is in der variablen un das ziel in der klammer!

ja, das habe ich auch schon versuch: quelle und ziel angeben! ich tippe den ganzen mist in VB Script-Language! ich weiß nicht, ob die funktionen da so übereinstimmen: mache ich es so, wie du eben geschrieben hast, dann kommt eine fehlermeldung 0x24521654 usw! wenn ich einen file verschieben möchte, sag ich ja auch eigentlich: objFile.Move("von", "nach") hier heißt es aber: objFile.Move("nach") oder liegt das an dem objFile?

verdammte kacke...ich könnt gar net soviel essen wie ich kotzen könnte! ganz einfaches beispiel: '********************************************************************** ' Visual Basic ActiveX Script '************************************************************************ Function Main() Dim fso 'File system object Dim objFile, objFolder Set fso = CreateObject("Scripting.FileSystemObject") IF (fso.FileExists("C:\Ears\earsopenitemtbl%%%%%%%%%%%%.txt")) THEN fso.CopyFile("\\jvkraxon\C$\Ears\Ears_open_item_tbl\") fso.DeleteFile("\\jvkraxon\dart\ears\ears_open_item_tbl\earsopenitemtbl%%%%%%%%%%%%.txt") END IF Set fso = nothing Set objFile = nothing Main = DTSTaskExecResult_Success End Function ...wenn ich das ausführe passiert überhaupt nix! normeilerweise müsste der file in einen anderen folder copiert werden un dann aus dem alten folder gelöscht werden. warum macht der saurechner garnix? es werden keine syntaxfehler angezeigt un außerdm sagt der sack-rechner auch noch: "hey, fantastisch, ich habe alles ausgeführt-hat geklappt" ...aber nix hat der arsch gemacht! kann mir irgendjemand verraten, warum die sau das net macht?

ganz einfaches beispiel: '********************************************************************** ' Visual Basic ActiveX Script '************************************************************************ Function Main() Dim fso 'File system object Dim objFile, objFolder Set fso = CreateObject("Scripting.FileSystemObject") IF (fso.FileExists("C:\Ears\earsopenitemtbl%%%%%%%%%%%%.txt")) THEN fso.CopyFile("\\jvkraxon\C$\Ears\Ears_open_item_tbl\") fso.DeleteFile("\\jvkraxon\dart\ears\ears_open_item_tbl\earsopenitemtbl%%%%%%%%%%%%.txt") END IF Set fso = nothing Set objFile = nothing Main = DTSTaskExecResult_Success End Function ...wenn ich das ausführe passiert überhaupt nix! normeilerweise müsste der file in einen anderen folder copiert werden un dann aus dem alten folder gelöscht werden. warum macht der s**rechner garnix? es werden keine syntaxfehler angezeigt un außerdm sagt der sa**-rechner auch noch: "hey, fantastisch, ich habe alles ausgeführt-hat geklappt" ...aber nix hat der ar*** gemacht! kann mir irgendjemand verraten, warum die s** das net macht? [keine Faekalsprache, hades]

...du willst quasi ein knöpfchen drücken un dann die e-mail-adresse im outlook(was dann auch geöffnet wird) angezeigt haben? das knöpfchen drückst du in der datenbank? die e-mailaddressen raussuchen is doch einfach... mim "LIKE"-Befehl. ...also select tralalala from lalala where didididi Like "@". für den rest weiß ich gar net, wie du das machen willst! knopf in der datenbank? dann wirst du wohl ein makro tippen müssen...

die hilfe von dem enterprise manager ist so schlecht wie meine frisur! da steht nur oberflächlicher schund drin! ich will das ungefähr so gestalten: '********************************************************************** ' Visual Basic ActiveX Script '************************************************************************ Function Main() Dim fso 'File system object Dim objFile, objFolder Set fso = CreateObject("Scripting.FileSystemObject") IF (fso.FileExistsc ("R:\ears\ears_open_item_tbl\ earsopenitemtbl%%%%%%%%%%%%.txt")) THEN objFile.Move("C:\Ears\Ears_open_item_tbl\") END IF Set fso = nothing Set objFile = nothing Main = DTSTaskExecResult_Success End Function ...so, jetzt will ich dem server in diesem script noch vermitteln, dass er den gerade eingelesenen (objFile.Name) in die datenbank liest; un zwar in die earsopenitem_tbl!!! wie mach ich das? kann/muß ich da auch noch ne importspezifikation bauen? in dem script meine ich?

so, ich versuche mit DTS Files auf SQL-Server zu importieren. zuerst: ich importiere den file nach C:\peter\stinkt\nach\kot12345.txt gut, der file heißt nie gleich; der file heißt bsp.weise kot122345, dann kot533243 usw. Wenn ich jetzt die sog. Connection1 aufbauen will, kann ich immer nur einen file mit dem namen ansprechen. leider ändert sich der name ja mit jedem file! kann ich den file mit Kot%%%%%%%.txt ansprechen? gibt es platzhalter? wie kann ich aber nun dem SQL-Enterprise-MAnager-DTS beibringen, dass mein file immer anders heißt? PS: die struktur bleibt gleich! weiß jemand was?

select x = substring (KundenNr, 2,6) ...das heißt, das du in x den wert von kundenNr speicherst...beginnend beim zweiten buchstaben beginnend und sechsbuchstaben lang! 2 = beginn 6 = wieviele buchstaben!

willst du deinen nummer stetig um eins erhöhen oder einmalig? du kannst über ein sql-script dein char so abschneiden, dass du nur noch die zahlen hast! dann machst du über die convert-funktion aus dem char ein int... dann kannst du dein teil erhöhen wie du bock hast! nach dem erhöhen wieder als char deffinieren/convertieren un dann deine buchstaben anfügen... is ziemlich umständlich un würd ich net machen.

servus...hat einer ein DTS Script? ich muß so ein teil schreiben....einen Datenimport automatiesieren...kann mir einer ein script schicken, damit ich die syntax schnaggel?

tach auch...ich bräuchte auch ma so ein paar zwischenprüfungen...welche die nicht so alt sind. hab welche für informatikkaufleute von 2000. brauche aber eigentlich fi/ae von 2001...

Servus, ich muß monatlich daten in SQL-Datenbank /Tabelle importieren. der import läuft via skript auf dem sql server 7.0. das datenpaket, welches ich importiere wird monatlich größer...mittlerweile is das ding schon 65 MB groß. allmählich fängt der server an, probleme mit der größe des files zu bekommen. wie kann ich das problem lösen? weiß jemand was?