stigi

hat sich erledigt, habs mit den Funktionen formatnumber und replace alleine hinbekommen :beagolisc

Hallo zusammen. Hier erstmal mein aktueller Quellcode: ' --- Konstanten Const cForReading = 1 Const cForWriting = 2 Const cForAppending = 8 ' --- Variablen dim i dim objExcel dim objFSO dim objTextFile dim strTemp dim strLeer dim strNull ' Puffer Leerzeichen strLeer = " " strNull = "000000000000000000000000000000000000000000000000000000000" ' Textdatei zum Schreiben oeffnen Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile ("E:\cellscript\guestamm3_endversion.dat", cForWriting) ' Objekt von Excel bilden Set objExcel = CreateObject("Excel.Application") objExcel.Visible = false ' Die Datei oeffnen objExcel.Workbooks.Open ("E:\cellscript\Güterstamm3_B_S.xls") ' Von 1 bis 1000 Zeilen for i = 1 to 1000 ' Ist Zelle A i = leer, dann ende if objExcel.Range("A" & i).value ="" then exit for else ' Ansonsten schreibe in Textdatei strTemp = objExcel.Range("A" & i).value _ & objExcel.Range("B" & i).value & " " _ & objExcel.Range("C" & i).value _ & objExcel.Range("D" & i).value & " " _ & objExcel.Range("E" & i).value _ & objExcel.Range("F" & i).value & " " _ & objExcel.Range("G" & i).value _ & objExcel.Range("H" & i).value & " " _ & objExcel.Range("I" & i).value _ & objExcel.Range("J" & i).value _ & objExcel.Range("K" & i).value _ & objExcel.Range("L" & i).value & " " _ & objExcel.Range("M" & i).value _ & objExcel.Range("N" & i).value & " "_ & objExcel.Range("O" & i).value _ & objExcel.Range("P" & i).value _ & objExcel.Range("Q" & i).value _ & objExcel.Range("R" & i).value & " " _ & objExcel.Range("S" & i).value _ & objExcel.Range("T" & i).value & " " _ & objExcel.Range("U" & i).value _ & objExcel.Range("V" & i).value _ & objExcel.Range("W" & i).value _ & objExcel.Range("X" & i).value & " " _ & objExcel.Range("Y" & i).value _ & objExcel.Range("Z" & i).value & " " _ & objExcel.Range("AA" & i).value & " " _ & objExcel.Range("AB" & i).value _ & objExcel.Range("AC" & i).value _ & objExcel.Range("AD" & i).value & " " _ & objExcel.Range("AE" & i).value _ & objExcel.Range("AF" & i).value & " " _ & objExcel.Range("AG" & i).value _ & objExcel.Range("AH" & i).value _ & objExcel.Range("AI" & i).value & " " _ & objExcel.Range("AJ" & i).value _ & objExcel.Range("AK" & i).value _ & objExcel.Range("AL" & i).value _ & objExcel.Range("AM" & i).value & " " _ & objExcel.Range("AN" & i).value _ & objExcel.Range("AO" & i).value _ & objExcel.Range("AP" & i).value _ & objExcel.Range("AQ" & i).value _ & objExcel.Range("AR" & i).value & left(strLeer,40-len(cstr(objExcel.Range("AR" & i).value))) _ & objExcel.Range("AS" & i).value _ & objExcel.Range("AT" & i).value _ & objExcel.Range("AU" & i).value _ & objExcel.Range("AV" & i).value _ & objExcel.Range("AW" & i).value _ & objExcel.Range("AX" & i).value _ & objExcel.Range("AY" & i).value _ & objExcel.Range("AZ" & i).value _ & objExcel.Range("BA" & i).value _ & objExcel.Range("BB" & i).value _ & objExcel.Range("BC" & i).value _ & objExcel.Range("BD" & i).value _ & objExcel.Range("BE" & i).value _ & objExcel.Range("BF" & i).value _ & objExcel.Range("BG" & i).value _ & objExcel.Range("BH" & i).value _ & objExcel.Range("BI" & i).value _ & objExcel.Range("BJ" & i).value _ & objExcel.Range("BK" & i).value _ & objExcel.Range("BL" & i).value _ & objExcel.Range("BM" & i).value _ objTextfile.WriteLine strTemp end if next objExcel.Application.Quit Jetzt habe ich das Problem, dass z.B. in Feld "J" eine Zahl steht die folgendermaßen formatiert ist: 00000,00 - also z.B. 00005,50 Leider hab ich nun in meiner dat file als exportierten Wert "5,5" stehen. So - wie stell ich das jetzt an, dass 1. die Zahl 1:1 so übernommen wird wie is in der Excel File steht? 2. wie kann ich automatisch das "," durch einen "." ersetzen? Bitte ausführlich erklären, da ich VB eigentlich gar nicht kann und mir obiges nur aus verschiedenen Codebeispielen zusammenkopiert hab

Hallo zusammen, ich hab seit ein paar Tagen ein ganz komisches Verhalten in Tactical Ops. Ca. alle 5Minuten bricht meine Framrate auf ca. 2 - 4 fps ein. Normalerweiße hab ich ca. 60fps. Ich kann dieses Verhalten nicht reproduzieren, ist tritt sporadisch auf. Habe parallel mal den Filemon und ProcessExplorer von SysInternals laufen lassen, konnte aber nichts finden was den FPS Einrbuch verursachen könnte. Obs bei anderen Games auftritt kann ich nciht sagen, da ich momenten nur TO und Diablo2 auf dem Rechner hab In Diablo ists mir bisher noch nicht aufgefallen, dort spiel ich aber auch nicht auf D3D falls das was zur Sache tut. Vielleicht jmd ne Ahnung? Oder ggf. weiß auch noch jmd was ich gegen meine "nur 60fps avg" machen kann? Bin zwar wegen meinem Monitor auf 1680x1050 gebunden, jedoch hab ich bei gleicher Auflösung im alten UnrealTournament (was ja bekanntlich die gleiche Engine ist) zwischen 90 und 130fps. VSYNC ist per NVidia Treiber deaktiviert.

hab gelesen, dass die medusa usb dinger so viel strom fressen, dass ich n aktiven usb hub bräuchte. da habsch kein bock drauf noch n weiteren stromfresser an meine steckdose zu hängen. mein alter pc mit 400watt netzteil würde das ding sicherlich nicht ausreichend versorgen können.

Chuck Norris kann ein Messer mit Brot schneiden.

Moin zusammen, ich will mir jetzt mal n 5.1 Headset und ne 5.1 Soundkarte zulegen und bräuchte da mal ein paar Empfehlungen. Hab gehört das Medusa Headset soll ganz gut sein, da gibts aber auch verschiedene Modelle?! Welches davon taugt was? Zusätzlich brauch ich noch was, damit das Headset auch mit 5.1 gefüttert wird. Ne 5.1 Soundkarte wäre da nicht schlecht Da ich aber an meinem Homecinema nur noch 1x Optisch und 1x Chinch frei hab, sollte die Soundkarte zusätzlich auch einen der beiden Kebeltypen verarbeiten können, wobei hier für mich der optische Ausgang eher ungeeignet ist, da ich 15m optisches Kabel verlegen müsste. Da ich am Homecinema kein 5.1 signal von dieser soundkarte brauch, da ich über den PC sowieso keine Filme anschau reicht ein Stereosignal um Musik zu hören.

Moin zusammen. Kurz die Randbedingungen: Wir haben ein Abteilungspostfach mit eigenem Kalender und eigener Kontaktliste. In dieser Kontaktliste sind u.A. unsere Abteilungshandys 1-8 eingetragen. In einem eigens dafür angelegten Kalender "Handys" wird bisher immer der Entleihstatus der Handys händisch eingetragen, in dem einfach ein neuer Termin im Kalender eingetragen wird und im Betreff z.B. "Handy 1" eingetragen wird, bei Ort der Entleiher. Jetzt meine Frage: Kann ich den Eintrag im "Handys" Kalender irgendwie so machen, dass man eine Verknüpfung zum Handy aus der Kontaktliste erstellen kann, damit ich über den Kalender mit dem Telefon-Button das Handy direkt anrufen kann? Nochmal zur Info: Die Handys sind keine Benutzer, sondern nur Einträge in der Kontaktliste! Ich weiß, dass es sicher irgendwelche Tools gibt, mit denen ich das ganze besser organisieren kann, jedoch kommt der Einsatz einer anderen Software im Moment nicht in Frage. Danke

scheint wohl keiner zu kennen dann wohl close :old

naja, sowas musses nich sein

Chuck Norris benutzt kein Kondom - es gibt kein Schutz vor Chuck Norris

Mahlzeit zusammen. Da ich vor kurzem umgezogen bin und nun endlich ne eigene Terasse hab auf der ich grillen kann fehlt es jetzt nur noch am benötigten Handwerkszeug dafür. Allem voran - der Grill! Kann mir jemand einen günstigen Internethändler empfehlen, bei dem ich nen ordentlichen Grill bestellen kann? Es sollte ein Gas- oder Lavasteingrill sein - keine Holzkohle! ( wills mir nicht gleich mit den Nachbarn verscherzen:rolleyes: ) Kennt jemand vielleicht sogar ein Modell, das empfehlenswert ist? Sollte max 150Euro kosten.:mod:

danke! hat mir sehr weitergeholfen hab mir gleich die uncut version bestellt Braucht jemand die original deutsch FSK18 Version? 20Euro + Versand - wurde 2 mal benutzt

Bzw. habe jetzt gerade bei einem österreichischen Händler eine "Deutsch - 100% Uncut" Version gefunden. jetzt frag ich mich, was denn der unteschied zwischen den Versionen Deutsch FSK 18 (welche ich hab) Deutsch - 100% Uncut US/UK - Uncut sein soll. Weiß da jemand mehr?

nur zur info: habe meinen aktuellen handyvertrag über handys-mobile verlängert und für 137euro aufpreis die PS3 bekommen. lief alles reibungslos über die bühne

Tach zusammen. Hab mir bei Amazon TheDarkness für 25Mücken geholt. Bin vom Spiel her eigentlich zufrieden - Gameplay is echt ordentlich und die Athmosphäre passt auch Einzig und allein bin ich von der deutschen FSK18 Version sehr enttäuscht. Ich bin davon ausgegangen, dass das Spiel (da FSK18) uncut ist - pustekuchen. Die Interaktionen mit der dunklen Macht und das "Seelen aussaugen" sieht in der geschnittenen Version sehr "bescheiden" aus. Nun mal eine generelle Frage dazu. Wenn ich mir jetzt beispielsweise TheDarkness von amazon.co.uk bestellen würde - wäre das dann wirklich eine Uncut Version? Ist es überhaupt erlaubt solche Spiele zu importieren? Danke im Voraus

haste denn wenigstens Full RBG und SuperWhite oder wie das heißt aktiviert? ich hab keine probleme mit der Qualität der Grafik an meiner PS3 und meinem FullHD 42" - vielleicht solltest du mal deine Bildeinstellungen am TV ordentlich einstellen...

mein zuvoriger Post sollte nicht gegen dich gerichtet sein :e@sy ich mags einfach nicht, dass jemand meine entscheidung als unsinnig bezeichnet nur weil man anderer Meinung ist, oder es nicht so verstanden hatten wie es gemeint war. Mein Post sollte da nur Beispiele aufzeigen, dass jeder sein Geld da ausgibt wo er möchte und vielleicht auch für sachen, die für mich vielleicht unsinnig erscheinen. aber das liegt ja zum Glück alles im Auge des Betrachters

und ich seh nicht ganz wo ich hier mehr Kosten in Kauf nehme? Da bei mir sowieso die Anschaffung einer PS3 ansteht, da ich auf BlueRay umsteigen will ist das Geld für mich nicht rausgeworfen, da ich für nen ordentlichen BlueRay Player auch nicht so viel günstiger weggekommen würde. So hab ich mit der PS3 noch den netten Nebeneffekt das erste mal in meinem Leben eine Spieleconsole mein Eigen nennen zu dürfen Wenn ich meinen Vertrag bei Handys-Mobile verlängere zahl ich für die PS3 noch ~130 Euro, hab also zum Ladenpreis 270Euro gespart. Ich vermute nicht, dass ich bei einer Vertragsverlängerung bei der ich ein neues Handy bekomme beim Verkauf dieses Geräts 270Euro rausspringen. Andere Leute werfen jede Woche 50Euro für Alkohol oder Eintrittspreise in Diskotheken raus, wieder andere zahlen monatlich hunderte Euros an Zinsen weil Sie meinen Sie könnten über Ihren Verhältnissen leben und sich noch obendrauf einen Neuwagen zu leasen. Ich geb mein Geld das ich mir gespart hab, dann eben für "billige Unterhaltungselektronik" aus

weil ich mir das prozedere mit dem Verkauf des neuen Handys doch sparen kann, wenn ich gleich die ps3 dazu bekomm?

fühl mich grad nur etwas aufn schlips getreten von chief und gany dies wohl nicht ganz mitbekommen hatten um was es mir ging hast du erfahrungen bei handys-mobile?

HALLO? Ich schließe keinen Handyvertrag an um an die PS3 zu kommen. Ich will lediglich meinen aktuellen Handyvertrag (den ich auch nutze um zu telefonieren und sms zu schreiben) verlängern/oder den Tarif wechseln und ANSTATT eines Handys die PS3 (ggf natürlich mit Zuzahlung) Ich hab weder vor irgendwelche dubiosen Angebote wahrzunehmen, noch mich vom Angebot eine PS3 umsonst zu bekommen verlocken lassen. Ich hol mir diesen Vertrag nicht extra um ne PS3 günstig zu bekommen, sondern weil ich als "normal-viel Telefonierer" mit einer Prepaidkarte nicht günstiger wegkomme... und ich will genauso wenig irgenwas mit 15euro grundgebühr im Monat nur damit ich das Ding umsonst bekomm - dann kann ich mir das Ding gleich finanzieren oder die 400Tacken bar aufn tisch legen, das bringt mir nichts um zu telefonieren.

mir ist nicht ganz klar was die 10euro Hardwareoption sein sollen, wenn man die monatlich berappen muss sinds 19euro * 24 -> 532euro

hab hier noch was gefunden, wenn ich meinen aktuellen Vertrag verlängern würde im gleichen Tarif: E-Plus Vertragsverlängerung Sony Playstation3 Verlängerung E-Plus müsst ich nur 137 zuzahlen und hätte eigentlich wieder den tarif der mir am besten zusagt jetzt is nur noch die frage ob ich noch warten soll bis sony die ps3 mit den neuen dualshock3 controllern ausliefert - sonst muss ich die ja bald nachkaufen

danke erstmal für den Tip mir wärs jedoch lieber einen Tarif zu finden bei dem ich im Monat nicht über die ~25€ rauskomm inkl Telefon und SMS. Momentan zahl ich 20€ für 100Freiminuten und 100SMS - genau sowas such eich eigentlich wieder. Bin mir aber noch nicht sicher, ob ich diesen Vertrag verlängern soll, oder ob ich was günstigeres Find. Z.B. die Eplus Zehnsation, da kostet die PS3 mit Handy allerdings 420€ - da kann ich se mir ja gleich so kaufen :upps

Mahlzeit zusammen, hab von meinem aktuellen Vertrag (EPlus) n Brief bekommen, dass ich meinen Vertrag jetzt wieder verlängern kann. Kennt einer nen onlinehändler der mir anstatt n neuem Handy ne PS3 anbietet? Natürlich weiß ich, dass ich da drauf zahlen muss Ich will max 25Euro im Monat ausgeben und keine 2 Verträge abschließen - weiß da einer n Rat?