stigi

23. Juli 2008

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

23. Juli 2008

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

21. Juli 2008

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.

14. Juli 2008

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.

14. Juli 2008

Chuck Norris kann ein Messer mit Brot schneiden.

14. Juli 2008

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.

16. Juni 2008

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 :rolleyes:

15. Mai 2008

scheint wohl keiner zu kennen

dann wohl close :old

6. Mai 2008

naja, sowas musses nich sein

6. Mai 2008

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

6. Mai 2008

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:

29. April 2008

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

29. April 2008

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?

29. April 2008

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

29. April 2008

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

29. April 2008

grafisch (zumindest auf der PS3) überhaupt nicht zu empfehlen...
das spiel kann nichtmal in Full HD gezockt werden

Steuerung ist auf der PS3 auch mist (mal sehn ob ich noch maus und tastatur ran bekomm...)

aber spielspaß ist schon gut

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...

9. April 2008

Du musst dich bei mir nicht rechtfertigen.
Ich will / brauch kein Blu-Ray.
In Dissen geh ich nicht. Genasuso wenig rauche und trinke ich nicht und lebe über meine Verhältnisse.

Vielleicht geh ich daher etwas anders mit Geld um als andere und seh halt so einen Unsinn halt nicht schnell ein bzw. verstehe ihn einfach nicht.

Du hast ja hier einige Sachen gezeigt bekommen, also musst du selbst wissen was du willst.

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 :rolleyes: 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

9. April 2008

Nuja, das Geld kann man ja noch woanders anlegen, als in billige Unterhaltungselektronik
Aber musst du wissen.
Ich habs halt nur nicht verstanden und es wird mir ehrlich gesagt auch nicht wirklich klarer, warum man bewußt mehr Kosten in Kauf nimmt, nur weil man bequem ist.

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 :rolleyes:

9. April 2008

Ich habs ehrlich gesagt einfach nicht verstanden. Mehr nicht.

Und ehrlich gesagt verstehe ich das immer noch nicht, warum man nicht einfach das neue Handy verkauft und das Geld einstreicht. Da hätte man dann auch schon wieder was verdient.

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

9. April 2008

fühl mich grad nur etwas aufn schlips getreten von chief und gany dies wohl nicht ganz mitbekommen hatten um was es mir ging :rolleyes:

hast du erfahrungen bei handys-mobile?

9. April 2008

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.

8. April 2008

Hmm. Finde das irgendwie komisch. Das wären ja, wenn ich das richtig gesehen habe, nur 24 * 9 Euro und sonst nichts. Also hätte man die PS3 für 216 Euro. Irgendwie merkwürdig. Oder habe ich da was übersehen? Ich meine, dann könnte man ja so frech sein, diesen Tarif bestellen und nach den 24 Monaten den Vertrag kündigen. Also hätte man die PS3 für den oben genannten Betrag. :confused:

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

8. April 2008

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 :rolleyes:

8. April 2008

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

7. April 2008

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?

Anmelden

Profile

Forum

Downloads

Kalender

Blogs

Shop

Beiträge von stigi

Fachinformatiker.de, 2024 by SE Internet Services

Links

Fachinformatiker.de App

Kontakt

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte