charly2005

Hallo, ich habe jetzt seit einiger Zeit ein Problem bei dem ich nicht weiterkomme: Ich hab einen MS Server2008 als Terminalserver installiert - auf diesen greifen mehrere User per ThinClient (RDP) zu. An den diversen Thinclients sind lokale Drucker per USB eingerichtet. Nun zum Problem: Wenn sich diese User per RDP am Terminalserver anmelden, werden die lokalen Drucker zwar "mitgenommen" in die RDP-Session - allerdings wird der Haken für den Standarddrucker nicht gesetzt. Somit müßen die User nach jeder Anmeldung am Terminalserver diesen Haken manuell setzen. Ich bin für jede Idee oder jeden Tipp dankbar....

Hi, kann es sein, daß auf dem Server, die Firewall aktiviert ist ? Wenn ja, probiers mal, wenn Du sie ausschaltest.

Hallo zusammen, ich hab folgendes Problem: Hab einen Windows Terminalserver 2008 - auf diesen greifen mehrere ThinClients per RDP zu. Nun hab ich an jedem ThinClient einen eigenen Drucker - zum Teil Netztwerkdrucker, zum Teil per USB an dem ThinClient angeschlossen. Ich möchte nun, daß DER Drucker, der am ThinClient steht, an diesem IMMER als Standarddrucker eingerichtet bleibt. Egal, welcher User sich anmeldet. Zur Zeit ist es allerdings so, daß jeder User seinen DefaultPrinter eingerichtet hat und dieser auch "mitgenommen" wird. Hinzu kommt noch, daß ich keine zuverläßige Möglichkeit habe, an dem ThinClient den Standarddrucker zu definieren, da die mit einem sehr rudimentären CE-OS arbeiten. Es müßte also eine Möglichkeit geben, daß Ganze über irgendwelche Einstellungen am TerminalServer zu realisieren. Besten Dank schonmal !

Nein, bei einem Wert >100 wird daß SQl-Statement nicht ausgeführt - soweit kommt er nicht..

Diese Spalte hat den selben Datentyp wie alle anderen - wie kommst Du darauf ?

Genau den Inhalt, den er haben sollte (in diesem Fall die Zahl 25.6) - ich lasse mir parallel zum Tabellenupdate den Inhalt auch in einer MsgBox anzeigen - daher weiß ich es. Vielleicht nochmal kurz zum Verständnis: Die entsprechenden case-Fälle tragen bestimmte Werte in eine SQL-Tabelle ein - solange daß Array-element unter 100 liegt, werden sie auch korrekt eingetragen - ....

Ist variabel - im aktuelen Beispiel ca. 200 Felder.

Hallo zusammen, ich habe beim Auslesen und Schreiben des Inhaltes einer Textdatei in ein Array daß Problem, daß bis zum Feld 99 des Arrays alles klappt - beim Abfragen von Feldern größer/gleich 100 passiert nichts - es erscheint weder eine Fehlermeldung noch werden die Feldinhalte abgelegt: Daß Problem liegt an dieser Zeile: Select Case MyArray(61) Sobald hier ein Wert >99 steht, funktioniert nichts mehr ! Dim MyArray() As String Dim Temptabelle As Variant Dim Tempstring As String Dim Freie_Datei As Integer Dim AnzahlZeichenInString, AnzahlZeichenInArray As Integer Dim i, k, j As Integer Dim sql As String Dim Konservennummer_Var As String Dim GGT_Var As Integer Dim GOT_Var As Integer Dim GPT_Var As Integer Dim CHOL_Var As Integer Dim TRIG_Var As Integer Dim ALB_Var As Integer Dim KREA_Var As Integer Dim GLUC_Var As Integer Freie_Datei = FreeFile AnzahlZeichenInArray = 0 k = 0 Open "C:\MODULAR\MODULAR_05544.txt" For Input As #Freie_Datei While Not EOF(Freie_Datei) 'Schreibt alles was in eine Zeile steht (Datei) in variable (Tempstring) Input #Freie_Datei, Tempstring 'Speichert in Variant (Temptabelle) von variable (Tempstring) ohne Trennzeichen Temptabelle = Split(Tempstring, "|") 'Zählt die Anzahl von Zeichen in Variant (Temptabelle) AnzahlZeichenInString = UBound(Temptabelle) 'Endwert (die letzte Position im Array) AnzahlZeichenInArray = k + AnzahlZeichenInString 'Position von Daten in Temptabelle (jeden Schleifengang fähngt von 0) j = 0 ReDim Preserve MyArray(AnzahlZeichenInArray) For i = k To AnzahlZeichenInArray 'Schreibt Element an die richtige Position im Array MyArray(i) = Temptabelle(j) j = j + 1 Next i 'Startwert (die erste Position im Array) k = AnzahlZeichenInArray + 1 Wend Close Freie_Datei Konservennummer_Var = MyArray(30) ' Abfrage des ersten Ergebnisses Select Case MyArray(61) Case "^^^219/": GGT_Var = Val(MyArray(62)) sql = "UPDATE dbo.SpendenTestergeb SET GGT = " & GGT_Var & " " sql = sql & " WHERE (Konservennummer = " & Konservennummer_Var & ");" DoCmd.RunSQL sql Case "^^^684/": GPT_Var = Val(MyArray(62)) sql = "UPDATE dbo.SpendenTestergeb SET GPT = " & GPT_Var & " " sql = sql & " WHERE (Konservennummer = " & Konservennummer_Var & ");" DoCmd.RunSQL sql Case "^^^686/": GOT_Var = Val(MyArray(62)) sql = "UPDATE dbo.SpendenTestergeb SET GOT = " & GOT_Var & " " sql = sql & " WHERE (Konservennummer = " & Konservennummer_Var & ");" DoCmd.RunSQL sql Case "^^^413/": ALB_Var = Val(MyArray(62)) sql = "UPDATE dbo.SpendenTestergeb SET Albumin = " & ALB_Var & " " sql = sql & " WHERE (Konservennummer = " & Konservennummer_Var & ");" DoCmd.RunSQL sql Case "^^^433/": CHOL_Var = Val(MyArray(62)) sql = "UPDATE dbo.SpendenTestergeb SET Cholesterin = " & CHOL_Var & " " sql = sql & " WHERE (Konservennummer = " & Konservennummer_Var & ");" DoCmd.RunSQL sql Case "^^^773/": KREA_Var = Val(MyArray(62)) sql = "UPDATE dbo.SpendenTestergeb SET Kreatinin = " & KREA_Var & " " sql = sql & " WHERE (Konservennummer = " & Konservennummer_Var & ");" DoCmd.RunSQL sql Case "^^^668/": GLUC_Var = Val(MyArray(62)) sql = "UPDATE dbo.SpendenTestergeb SET Gesamteiweiß = " & GLUC_Var & " " sql = sql & " WHERE (Konservennummer = " & Konservennummer_Var & ");" DoCmd.RunSQL sql Case "^^^781/": TRIG_Var = Val(MyArray(62)) sql = "UPDATE dbo.SpendenTestergeb SET Triglyceride = " & TRIG_Var & " " sql = sql & " WHERE (Konservennummer = " & Konservennummer_Var & ");" DoCmd.RunSQL sql Besten Dank im Vorfeld für Eure Unterstützung !

Hi, da ist zwar ein Beispiel für daß Ändern eines Zeilenbausteines - allerdings funktioniert daß mit dem Beispiel nur, wenn der Inhalt immer derselbe ist. In meinem Fall ist der auszuschneidende Teil zwar immer an derselben Stelle, aber der Inhalt ist variabel - und auch daß "Ziel" ist mehrfach vorhanden. Hast Du vielleicht eine Alternativ-Idee ?

Vielen Dank dafür - allerdings geht es dort immer nur um daß Auslesen / Ändern von ganzen Zeilen - ich muß lediglich einen bestimten Teil einer Zeile "ausschneiden" und ihn weiter unten an den Anfang von weiteren Zeilen einfügen....

Hallo Leute, hab schon seit längerem ein riesiges Problem, welches ich mit VBA lösen muß - es aber irgendwie nicht hinbekomme. Hab eine txt-Datei mit folgendem Inhalt: H|\^&|||H7600^1|||||host|RSUPL^REAL|P|1 P|1|||||||U||||||^ O|1| 0918599|0^5049^4^^S1^SC|^^^773^\^^^413^\^^^433^\^^^219^\^^^686^\^^^684^\^^^678^\^^^781^|R||20090623174459||||N||||1|||||||20090623174038|||F C|1|I| ^ ^ ^ ^ |G R|1|^^^773/|0.65|mg/dl||N||F||mm |||P1 C|1|I|0|I R|2|^^^413/|43.4|g/l||N||F||mm |||P1 C|1|I|0|I R|3|^^^433/|195|mg/dl||N||F||mm |||P1 C|1|I|0|I R|4|^^^219/|33.6|U/l||N||F||mm |||P1 C|1|I|0|I R|5|^^^686/|20.5|U/l||N||F||mm |||P1 C|1|I|0|I R|6|^^^684/|18.4|U/l||N||F||mm |||P1 C|1|I|0|I R|7|^^^678/|71.3|g/l||N||F||mm |||P1 C|1|I|0|I R|8|^^^781/|145|mg/dl||N||F||mm |||P1 C|1|I|0|I L|1|N In der dritten Zeile steht immer eine 7-stellige Nummer (hier = 0918599). Diese Nummer muß ich an den Anfang jeder Zeile setzen, die an erster Stelle ein R hat. In diesem Beispiel sind es acht Zeilen mit R - können aber auch mehr oder weniger sein. Hat jemand eine Idee ? Vielen Dank im Vorfeld.

Jop ! Allerdings nicht in jeder Zeile - die Zeiteinträge stehen z.B. in Zeile 5 & in Zeile 8 usw.

HI, diese Syntax kommt mehrfach in der Datei vor - aber immer nur bei den Zeiteinträgen. Leider steht vor der Zeit nichts mehr - die Einträge stehen immer direkt am Anfang der Zeilen.

Hallo zusammen, ich hab folgendes Problem: Hab hier ein VBS-Statement, welches in einer txt.-Datei Zeichenketten ersetzen soll. Das Problem liegt in der Zeile Suchen = "08:07:33" Er sucht nach der Uhrzeit 08:07:33 und ersetzt diese - allerdings ist die Uhrzeit eine Variable und ich müßte praktisch so was basteln: Suchen = "**:**:**" Das funktioniert aber leider nicht. 'Variablen initialisieren Dim Suchen Dim Ersetzen Dim NeuerInhalt Dim Inhalt Suchen = "**:**:**" Ersetzen = "Neuer Text" Set FSO = CreateObject("Scripting.FileSystemObject") Set File = FSO.OpenTextFile("Z:\temp\ModularNeu.txt", 1) Inhalt = File.ReadAll File.Close NeuerInhalt = Replace(Inhalt, Suchen, Ersetzen) + vbCr Set File = FSO.OpenTextFile("Z:\temp\ModularNeu.txt", 2) File.Write NeuerInhalt File.Close End Sub Ich hoffe, Ihr könnt mir helfen !