Visual Basic Forum

Verfasst am: 15.02.2012, 14:16 Aufrufe: 183

Verfasst am: 20.01.2012, 11:12 Aufrufe: 268

hi dass was du brauchst ist zeit Wink

zwischen den beinen codezeilen du hast mehrere möglichkeiten! 1) shell '... prozess schließen for i = 1 to 100000 'lasse zählen um zeit zu bekommen Smile

next shell bat datei 2) shell '... prozess schließen Delay 4000 'musst nach der funktion googlen ... dann wartet die 4000millisekunden shell bat datei 3) ShellWait Vlcprozess 'auc ...

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: 04.08.2010, 08:38 Aufrufe: 1031

txt" For Append As #2 For i = 0 To 12 For j = 0 To 12 If Not sStr(i) = sStr(j) Then Print #2, sStr(i) & " " & sStr(j) Next Next Close #2 Hallo, sorry konnte mich erst jetzt wieder melden. Nochmals danke danke danke hat alles gut funktioniert Very Happy

Nun versuche ich verzweifelt - als Anfängerin in VB6 - eine Datei zu zähle ...

Verfasst am: 28.06.2010, 17:48 Aufrufe: 838

Hay Leute Bin neu hier und habe auch schon so manche Sachen in Vb gemacht. Nun möchte ich mich mal mit der RichTextBox Auseinandersetzten. Ich habe eine RichTextBox das Suchen und Ersetzen Funktioniert schon Prima. nun möchte ich aber etwas kompliziertes machen. Bsp: Ich habe diesen Text \377\377\0\377\377\0\377\377\0\ Nach Suchen und ersetzen sieht er so aus ,377,377,0,377,377,0,377,377,0, ...

Verfasst am: 25.11.2009, 18:19 Aufrufe: 757

MAPIFolder Dim objAttachment As Outlook.Attachment, objMail As Outlook.Items Dim objEMail As Outlook.MailItem Dim Befehl ' Variable um den im Betreff erhaltenen Befehl zu Speichern Dim Zahl ' Variable um zu zählen wie viele neue Emails reingekommen sind (So viele Male müsste dann das Script ausgeführt werden) Set objOutlook = New Outlook.Application Set objNameSpace = objOutlook.GetNamespace("MAPI") ...

Verfasst am: 09.11.2009, 22:49 Aufrufe: 387

Verfasst am: 28.06.2009, 17:46 Aufrufe: 1529

Verfasst am: 15.06.2009, 12:35 Aufrufe: 2650

1 Zeilen Beispiel: Anzahl Zeilen einer Textdatei ermitteln.Dim zCount As Long 'Variable für Zeilenanzahl 'Datei öffnen Set tStream = FSO.OpenTextFile("C:test.txt", ForReading, False) zCount = 0 'Schleife zum zählen Do Until tStream.AtEndOfStream tStream.SkipLine zCount = zCount + 1 Do ...

Verfasst am: 02.06.2009, 08:20 Aufrufe: 1309

Hier mein problem: habe eine stoppuhr gebastelt, die eine zeit startet (00:00:00) (start button) und in einer textbox anzeigt (habe eine textbox gewählt da ich per button die rundenzeiten in eine listbox einfügen möchte (was auch schon funktioniert). ich hätte aber gerne dass die zeit jedes mal wieder von vorne anfängt zu zählen wenn ich auf den button (laps) klicke. bei mir läuft die zeit ein ...

Verfasst am: 14.09.2008, 11:39 Aufrufe: 1560

Verfasst am: 27.07.2008, 19:37 Aufrufe: 635

Verfasst am: 26.07.2008, 13:37 Aufrufe: 905

Interval = 1000 'timer um die progressbar pro sekunde zu aktualisieren Timer2.Enabled = False ProgressBar1.Minimum = 0 'Hier stellt du den minimal- und ProgressBar1.Maximum = 5 ' maximalwert ein 'also bei 0 fängt die progressbar an zu zählen 'maximum: 5, weil du ja für 'die 5 sek. pro sekunde einen schritt weitergehen willst, d.h. 'sie soll nach 5 sekunden voll gefü ...

Verfasst am: 14.05.2008, 12:54 Aufrufe: 514

Du meinst sicherlich, dass wenn der Download fertig ist, dass dann der Eintrag automatisch gelöscht wird oder? Mir fällt da jetzt eigentlich nur eine Idee ein. Der Eintrag, der downgeloadet wird, sollte makiert sein und dann lass du die Zeilen in der Listbox zählen und löschst halt die Zeile, die vor der aktiven Zeile liegt. Ob man das so einfach umsetzten kann, kann ich dir nicht sagen. Bin noch auf der Arbeit, sons ...

Verfasst am: 09.05.2008, 09:37 Aufrufe: 1708

Ich will in meinem Textfeld, was auf Multiline gestellt ist, eine Scrollbar einblenden, sobald mehr Zeilen in dem Textfeld ausgefüllt sind als wie sichtbar sind. (Is bissl komisch erklärt aber ich denke ihr versteht was ich meine)Meine Frage ist jetzt nur, wie mache ich es, dass die VScrollBar erst eingeblendet wird, wenn genügend Zeilen vorhanden sind. Ich denke mal mit Zeilen zählen und dann die Visible Eigenschaft ...

Verfasst am: 08.05.2008, 14:53 Aufrufe: 1441

Mit Count die Zeilen zählen, For Schleife, darin dann abfragen ob Text = "" wenn True dann GoTo nutzen oder wenn du alle direkt entfernen willst dann machst den Löschvorgang direkt in die Schleife.

Verfasst am: 06.05.2008, 19:25 Aufrufe: 1916

Verfasst am: 16.04.2008, 23:11 Aufrufe: 3674

Beschreibung:Diese Funktion öffnet eine Datei und zählt die Zeilen dieser Datei und gibt diese als Integer aus.Gezählt wird jeweils bis zum Zeilenumbruch.Funktion:Private Function CountedRows(ByVal FilePath As String) As Integer Dim Rows_Count As Integer Dim TextLine As String<b ...

Verfasst am: 13.04.2008, 04:49 Aufrufe: 588

Hab deine Variable Länge in lLen umbenannt. Die brauchst du ja nicht mehr. Ach so, um alle Zeilen zu zählen musst du den String natürlich in einer Schleife suchen. Dafür brauchen wir noch eine Variable für den Startpunkt und für die Anzahl der Zeilen. Das wäre dein Code: Dim SuchText As String, SuchZeichen As String, Pos As Long, lLineCount SuchText = Text1.Text SuchZeichen = vbCrlf Pos = 1 Do ...

Verfasst am: 11.04.2008, 20:53 Aufrufe: 588

einfach die vbcr's zählen mit instr

Verfasst am: 11.04.2008, 20:04 Aufrufe: 588

Also weis einer vllt. eine Möglichkeit, zeilen einer textbox zu zählen ? ich möchte weder einen ersetzen, noch löschen oder rauskopieren einfach nur zählens vielen dank für eure Hilfe

Verfasst am: 24.03.2008, 12:48 Aufrufe: 550

Also insgesamt 2 Schleifen. Eine, die alle Blacklist Prozesse durchgeht und Eine, die die Blacklist Prozesse mit denen in der Prozessliste vergleicht. Geht natürlich auch andersrum. ;) Die Anzahl der Items in List1 und List2 ist unbekannt. Ist sie nicht, denn du kannst sie zählen. Das erste Item hat die Eigenschaft ListIndex = 0. Das letzte Item hat die Eigenschaft ListIndex = ListCount - 1. Deshalb auch For i = ...

Verfasst am: 17.03.2008, 19:55 Aufrufe: 3258

Beschreibung: Diese Funktion öffnet eine Datei und zählt die Zeilen dieser Datei und gibt diese als Integer aus. Gezählt wird jeweils bis zum Zeilenumbruch. Funktion: Private Function CountedRows(ByVal FilePath As String) As Integer Dim Rows_Count As Integer Dim TextLine As String Dim ff As Integer = FreeFile() Rows_Count = 0 FileOpen(ff, filepa ...

Verfasst am: 17.03.2008, 19:49 Aufrufe: 3258

Die Funktionen: » » » » » » » » » » » Informationen: In diesem Thread werden nützliche Funktionen ihren Platz finden um immer wieder abgerufen und schnell gefunden werden zu können. Dieser Thread wird von den Moderatoren des .NET Bereiches geführt und daher ist es keinem User möglich hier Funktionen selbstständig zu posten. Wenn ihr eine nützliche Funktion habt, dann wendet euch per ...

Verfasst am: 13.03.2008, 14:56 Aufrufe: 1047

Du kannst vorher die Datei mal durchlaufen und die Zeilen zählen lassen. Das ist auch sehr praktisch, da man damit gleich eine Progressbar dann noch laufen lassen kann. Du kannst aber auch eine Do loop Schleife nutzen. Do Until EOF(1) loop EOF = End Of File Die Schleife läuft also so lange bis das Ende der Datei 1(Oder die Nummer, die du gewählt hast) erreicht is. mfg

Verfasst am: 09.03.2008, 14:24 Aufrufe: 406

Hallo Jungs ! Ich habe eine sehr wichtige Frage, die sich zum Thema Hex Code zählen kann: Wie kann ich eine exe Datei mit meinem Programm als Hexcode einlesen lassen und dann eine bestimmte Stelle im Hexcode verändern? Die Frage ist sehr wichtig und ich würde mich freuen so schnell wie möglich antworten zu bekommen... - DANKE ! lg regenz11

Verfasst am: 06.03.2008, 19:28 Aufrufe: 4075

3.1 Zeilen Beispiel: Anzahl Zeilen einer Textdatei ermitteln. Dim zCount As Long 'Variable für Zeilenanzahl 'Datei öffnen Set tStream = FSO.OpenTextFile("C:\test.txt", ForReading, False) zCount = 0 'Schleife zum zählen Do Until tStream.AtEndOfStream tStream.SkipLine zCount = zCount + 1 DoEvents Loop tStream.Close (tStream.AtEndOfStream) Die Schleife läuft so l ...

Verfasst am: 23.12.2007, 10:22 Aufrufe: 6482

und um zu testen, ob das wirklich die richtige Adresse ist geht ihr wie folgt vor. Vor der Adresse seht ihr ein Kästchen zu auswählen, wählt es aus, dann wird die Adresse eingefroren (freezen). geht in euer Game und siehe da, die Kugeln im Magazin zählen nicht herunter. Geht jetzt wieder raus und deaktiviert das Kästchen. Diese Adresse, die wir jetzt gefunden haben, bringt uns nur sehr wenig beim "hacken&quo ...

Verfasst am: 06.09.2007, 11:11 Aufrufe: 676

.. Von mir ausgesehen (wenn ich dich richtig verstehe) gibt es 2 Lösungen. Wenn du ein nicht existierender SubKey öffnest und es einen Fehler generiert kannst du es wie du gesagt hast mit try-catch machen und dann den schlüssel erstellen... Oder es gibt doch, glaube ich, eine Count funktion, dann kannst du die items oder keys zählen... http://www.codeproject.com/vb/net/registry_with_vb.asp ich weiss dich wast ...

Verfasst am: 02.06.2007, 21:06 Aufrufe: 632

Der 1 timer zählt die äpfel der andere die 30 minuten pause z.b Label1.caption = "10" label2.Caption = "0" label3.caption = "30" für den Pausen zähler derzählt dann die 30 runde auf 0 und bei 0 fängt er wieder äpfel zu zählen Private Sub Timer1_Timer() If Label3.Caption <> 0 Then Label3.Caption = Label3.Caption - 1 Else Timer2.Enabled = True End If ...

Verfasst am: 11.04.2007, 19:33 Aufrufe: 528

musste aber noch beachten das ein array immer bei null anfängt zu zählen. also nach encos beispiel wäre die ip in: gesplittet(0) und der port in gesplittet(1)

Verfasst am: 06.10.2003, 17:03 Aufrufe: 282

Hallo Leute. Hat hier jemand vielleicht eine Idee wie man von einer StartIP auf eine EndIP hochzählen kann in Visual Basic ? Vielen Dank schonmal für eure Hilfe. Gruß Moonie PS: Wenn es geht bitte per Mail schicken

Verfasst am: 30.03.2002, 21:13 Aufrufe: 331

Also ich hab ne sicher für euch simple Frage. Ich bin absoluter Newbie und übe mich etwas an Office und Makros. Bisher ist es mir gelungen das Office die Wörter zählt. Aber nur am Anfang und ich möchte das er sie immer wieder neu zählt und auch gleich angibt. So soll das aussehen: Wörter: 1 (nach dem Tippen) Wörter: 200 (usw.) Ich denke ihr könnt euch vorstellen was ich meine ...