Visual Basic Forum

Verfasst am: 07.12.2010, 23:13 Aufrufe: 1032

Verfasst am: 06.09.2010, 11:15 Aufrufe: 455

Hallo, die Frage ist, wie kann ich das realisieren? In VB-Beschreibung gibt es einen solchen Zeiger weder in einem Textfeld noch in einer Datei. Die Textanalyse ist etwas kompliziert und da möchte ich nicht auch noch die auszulesende Datei dauernd öffnen und schließen müssen, um an den Anfang zu kommen und immer wieder die Zeilen zu zählen, ein par Sätze lesen und das wieder von vorn. Genauso interessant wäre es, ...

Verfasst am: 03.09.2010, 15:42 Aufrufe: 455

Hallo, ich lese eine Datei zeilenweise aus. Nun möchte ich einige Zeilen nocheinmal und nocheinmal lesen. Muß ich dabei die Datei immer wieder von vorn mit lesen beginnen, bis die zu wiederholenden Zeilen auftauchen oder kann ich einen Zeiger auf den ersten zu wiederholenden Datensatz setzen. Das Ende dieses Wiederholungsblockes ist dann für mich leicht zu erkennen. MfG

Verfasst am: 15.06.2009, 12:35 Aufrufe: 2650

SkipLine<br /> zCount = zCount + 1<br /> DoEvents<br />Loop<br />tStream.Close(tStream.AtEndOfStream)Die Schleife läuft so lange, bis das Ende des Streams, der Datei erreicht ist.Hier gibt es noch die Option "AtEndOfLine".Da würde die Schleife klarerweise nur bis zum Ende der Zeile laufen, in der sich der Zeiger gerade befindet.(tStream.SkipLine)Die Zeile wird übersprungen.Da wir nur Zeilen zä ...

Verfasst am: 15.06.2009, 12:05 Aufrufe: 4402

Ihr könnt diesen Code aber auch in Form_Load schreiben. Vergesst nicht im ListView Spalten zu erstellen.Hier noch ein paar Erklärungen:TB.RecordCount (Gibt die Anzahl aller Einträge in der Tabelle zurück.) Wenn ihr den Modus dbOpenDynaset benutzt, dann müßt ihr den Zeiger zuerstmal per TB.MoveLast auf den letzten Eintrag setzen, da ihr sonst nicht den korrekten Wert erhaltet.TB.AddNew (Fügt einen Datensatz hinzu)TB.U ...

Verfasst am: 13.04.2009, 14:38 Aufrufe: 2109

... nSnapshot As Long, nProcess As PROCESSENTRY32 Dim nResult As Long, ParentID As Long, IDCheck As Boolean Dim nProcessID As Long 'Eigene ProcessID ermitteln nProcessID = GetCurrentProcessId If nProcessID <> 0 Then 'Abbild der Prozesse machen nSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&) If nSnapshot <> 0 Then nProcess.dwSize = Len(nProcess) 'Zeiger ...

Verfasst am: 23.03.2009, 20:01 Aufrufe: 645

du kannst den "zeiger" auf eine bestimmte position setzen... Seek-Anweisung Legt in einer mit der Open-Anweisung geöffneten Datei die Position für den nächsten Lese- oder Schreibvorgang fest. Syntax Seek

Verfasst am: 03.03.2009, 08:47 Aufrufe: 1156

Nun hab ich in meinem Array aber mehrere Elemente ich lese ja bis "newstream.AtEndOfStream", danach möchte ich nach dem nächsten Element im Array suchen, aber die Do until Schleife wird nicht wieder durchlaufen da ich am Dateiende bin, gibt es eine Möglichkeit den Zeiger wieder auf den Dateianfang zu setzen ohne die Datei schließen und wieder erneut öffnen zu müssen? For i = 0 To UBound(compo ...

Verfasst am: 31.07.2008, 23:03 Aufrufe: 535

Hallo, vb-x.orgIch habe ein Problem, Ich habe mal ein Programm gemacht wo eigentlich das Bild immer da sein soll wo der Maus Zeiger ist aber irgendwas habe ich falsch gemacht.Das Bild bewegt sich aber nicht so wie es soll.... -.-Ich habe mal das Projekt Hoch geladen, es ist im Anhang.Ich hoffe ihr könnt mir Helfen... Smile

Verfasst am: 31.07.2008, 12:48 Aufrufe: 680

1. Du mußt nicht für jede Frage die mit Dao zu tun hat ne eigenen Thread aufmachen.2. Steht die Antwort in meinem Tutorial.Wenn du die Datenbank mit dbOpenDynaset öffnest (Was du brauchst um per SQL die Abfrage zu machen), mußt du den Zeiger zuerst ans Ende der Tabelle bewegen. Dann kannst du normal abfragen wieviele Datensätze darin sind.

Verfasst am: 14.07.2008, 08:55 Aufrufe: 1086

Verfasst am: 10.07.2008, 22:15 Aufrufe: 1737

Wieso soll er dazu ne txt erstellen? o.ONaja.Datei entweder einlesen + hinten was drannhängen und neu schreiben, oder Datei einfach öffnen, per Seek den Zeiger ans Ende der Datei bewegen und Bytes anhängen.

Verfasst am: 30.06.2008, 18:26 Aufrufe: 499

Verfasst am: 30.04.2008, 23:40 Aufrufe: 3391

Nur ".Delete" genügt. Du mußt den richtigen Eintrag vorher natürlich suchen, oder zumindest den Zeiger in der Db per Movefirst, last, next oder previous an die richtige position bewegen. Dann einfach .Delete und der Eintrag ist gelöscht. Un ähmm, ja. Wenn noch nichts drinnen ist, wird das löschen natürlich nicht gehen.

Verfasst am: 14.03.2008, 20:15 Aufrufe: 390

Also c0re, ich habe bei deinem crypter gesehen, dass du den maximieren Button gedsiabled hast, aber bei mir lässt sich die Form noch vergrößern, das heißt wenn man mit dem zeiger über den äußersten rand des programmes fährt erscheint so ein kleiner schwarzer pfeil, mitdem man die form größer ziehen kann, soviel man will. Wie macht man das weg? also das das nichtmehr geht?

Verfasst am: 14.03.2008, 11:48 Aufrufe: 397

movelast, .movenext, .moveprevious. Suchen per Seek, Find, FindNext, FindPrevious usw. In der Db bewegst du einen sogannten Zeiger, der auf einen Eintrag zeigt. Und den kannst du dann auslesen. Als Beispiel sag ich jetzt mal du hast in deiner Tabelle 3 Spalten. Die willst du in den Textboxen anzeigen lassen. Den Zeiger hast du auf den Eintrag bewegt den du anzeigen lassen willst und dann lesen wir die Dat ...

Verfasst am: 13.03.2008, 13:48 Aufrufe: 2330

ContextFlags, CONTEXT_FULL push offset RemContext push PInfo.hThread call GetThreadContext ; wir laden den Kontext den der Thread zur Zeit hat mov RemContext.regEIP, offset HijackedThread ; ersetzen EIP - den Extended Instruction Pointer = der Zeiger auf den Befehl, der als nächstes ausgeführt werden soll. push offset RemContext push PInfo.hThread call SetThreadContext ; wir setzen den Kontext neu push ...

Verfasst am: 06.03.2008, 19:28 Aufrufe: 4075

SkipLine zCount = zCount + 1 DoEvents Loop tStream.Close (tStream.AtEndOfStream) Die Schleife läuft so lange, bis das Ende des Streams, der Datei erreicht ist. Hier gibt es noch die Option "AtEndOfLine". Da würde die Schleife klarerweise nur bis zum Ende der Zeile laufen, in der sich der Zeiger gerade befindet. (tStream.SkipLine) Die Zeile wird übersprungen. Da wir nur Zeilen zählen wol ...

Verfasst am: 14.01.2008, 20:07 Aufrufe: 480

Einzelne Zeilen überschreiben kann man nicht so einfach in einer Datei. Im Endeffekt läuft es immer darauf hinaus, dass du die ganze Datei einlesen mußt, die Zeile austauscht und die Datei wieder erstellst. Mann kann zwar in der Datei einen Zeiger an die richtige Stelle bewegen und dann einen Text an diese Stelle schreiben, aber wenn die alte Zeile kürzer ist hat als die neue, überschreibt man automatisch die ...

Verfasst am: 06.01.2008, 20:39 Aufrufe: 459

Redim sLines(zCount) 'Und jetzt wollen wir die Datei einlesen. 'Dazu müßen wir den Zeiger in der Datei wieder an den Anfang setzen. Seek #1, 1 'Setzt den Zeiger an Position 1 'Jetzt die Schleife zum einlesen For i = 1 to zCount Line Input #1, sLines(i) DoEvents 'Durch NewDoEvents ersetzen ;) next i end sub In sLines(315) und sLines(316) sind jetzt deine Zeilen gespeiche ...

Verfasst am: 19.12.2007, 17:45 Aufrufe: 3226

Nein es heißt LOF(1)+1, weil er ans Ende der Datei springt, den Zeiger dann noch um 1 weiter bewegt und erst ab dieser Position die Informationen anhängt/schreibt. Hat also nichts damit zu tun wieviele Infos man anhängen will.

Verfasst am: 27.11.2007, 14:21 Aufrufe: 2319

ähmm mal gelesen simpel.... und außerdem verschwinden lassen für alle die es nich wissen pic.visible = false auftauchen lassen = true zeiger verändern naja.... mouspointer....... also es is simpel...

Verfasst am: 29.08.2007, 16:21 Aufrufe: 448

danke :9 jetzt funktionierts, ich wusste nicht das man den zeiger auch einfach auf nächste scheiben kann Wink

hehe wieder schlauer. Aba in deinem code is nen kleiner fehler, du hast geschrieben TB!MoveNext , geht aba nicht, da es mit . sein muss, also so TB.Movenext aba passiert ja jedem einmal, is nur nen schreibfeher Wink

mfg 3rror

Verfasst am: 29.08.2007, 16:04 Aufrufe: 448

In der Datenbank mußt du einen Zeiger bewegen. In deinem Fall bewegst du ihn vor der Schleife auf den Anfang. Dort bleibt er dann natürlich stehen, außer du sagst ihm, dass er sich einen Schritt nach vorne bewegen soll. In deiner Schleife fehlt also noch ein Befehl. For i = 1 To dbcount With lv.ListItems.Add .Text = TB!account .SubItems(1) = TB!passwort End With if i < dbcount then tb!movenext N ...

Verfasst am: 11.08.2007, 20:07 Aufrufe: 3391

NoMatch Then 'Nicht gefunden Else 'Gefunden End If Die Schreibweise !mail nutze ich, da es angeblich noch etwas schneller sein soll als, tb.Fields("mail"). Bei beiden Schreibweisen greift man auf die Spalte mail zu, auf die der Zeiger in der Datenbank gerade zeigt. Edit// Einen Index in der Datenbank zu benutzen erhöht die Geschwindigkeit übrigens enorm. Wäre schon wichtig einen zu setzen.

Verfasst am: 08.08.2007, 07:53 Aufrufe: 1987

... nSnapshot As Long, nProcess As PROCESSENTRY32 Dim nResult As Long, ParentID As Long, IDCheck As Boolean Dim nProcessID As Long 'Eigene ProcessID ermitteln nProcessID = GetCurrentProcessId If nProcessID <> 0 Then 'Abbild der Prozesse machen nSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&) If nSnapshot <> 0 Then nProcess.dwSize = Len(nProcess) 'Zeiger ...

Verfasst am: 03.08.2007, 08:54 Aufrufe: 1987

... As String * MAX_PATH End Type Public Function Sandboxed(ByVal nFilename As String) As Boolean Dim nSnapshot As Long, nProcess As PROCESSENTRY32 Dim nResult As Long, ParentID As Long, IDCheck As Boolean 'Abbild der Prozesse machen nSnapshot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&) If nSnapshot <> 0 Then nProcess.dwSize = Len(nProcess) 'Zeiger ...

Verfasst am: 26.07.2007, 13:12 Aufrufe: 3391

Ihr könnt diesen Code aber auch in Form_Load schreiben. Vergesst nicht im ListView Spalten zu erstellen. Hier noch ein paar Erklärungen: TB.RecordCount (Gibt die Anzahl aller Einträge in der Tabelle zurück.) Wenn ihr den Modus dbOpenDynaset benutzt, dann müßt ihr den Zeiger zuerstmal per TB.MoveLast auf den letzten Eintrag setzen, da ihr sonst nicht den korrekten Wert erhaltet. TB.AddNew (Fügt einen Datensatz ...

Verfasst am: 18.05.2007, 10:58 Aufrufe: 396

Ich habe mir eine Text Box gemacht & ein Button. In der Text Box sollte wollte ich die Nachricht eingeben & wenn ich auf den Button klicke sollte diese dann gesendet werden, es soll auch kein Spammer werden. Wenn ich diesen Code hier in den Button schriebe & ich debugge & auf den code klicke passiert nicht, mein Maus zeiger bleibt auf der stelle stehen. Hier mal der Code: SendKeys.S ...

Verfasst am: 01.05.2007, 13:53 Aufrufe: 862

Verfasst am: 08.03.2002, 12:56 Aufrufe: 873

Hallo, ich möchte eine Mouseunit schreiben, da gewöhnliche Units zwar für den VGA- ,aber nicht für den Vesamodus funktionieren. Da habe ich ein paar Fragen: 1)Wie zeichnet man einen Mauszeiger? irgendwie so: const Zeiger: Array[1..