Jump to content

stigi

Mitglieder
  • Gesamte Inhalte

    213
  • Benutzer seit

  • Letzter Besuch

Über stigi

  • Rang
    Reg.-Benutzer
  • Geburtstag 21.02.1985
  1. hat sich erledigt, habs mit den Funktionen formatnumber und replace alleine hinbekommen :beagolisc
  2. 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
  3. 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.
  4. 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.
  5. stigi

    Google und Chuck

    Chuck Norris kann ein Messer mit Brot schneiden.
  6. 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.
  7. 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
  8. scheint wohl keiner zu kennen dann wohl close :old
  9. naja, sowas musses nich sein
  10. stigi

    Google und Chuck

    Chuck Norris benutzt kein Kondom - es gibt kein Schutz vor Chuck Norris
  11. 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:
  12. 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
  13. 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?
  14. 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
  15. 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

Fachinformatiker.de, 2020 SE Internet Services

fidelogo_small.png

if_icon-6-mail-envelope-closed_314900.pnSchicken Sie uns eine Nachricht!

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

Fachinformatiker.de App


Get it on Google Play

Kontakt

Hier werben?
Oder senden Sie eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...

Wichtige Information

Fachinformatiker.de verwendet Cookies. Mehr dazu in unserer Datenschutzerklärung