Visual Basic Forum

Verfasst am: 03.04.2012, 17:40 Aufrufe: 296

Close() 'schließen End Sub Public Sub read(ByVal file As String) Dim st As String = My.Computer.FileSystem.ReadAllText(file) 'Lesen Dim ste() As String = st.Split(vbNewLine) 'Zeilen splitten life_ = ste(0).Split(",")(0) 'auslesen name_ = ste(0).Split(",")(1) 'ausl ...

Verfasst am: 07.03.2012, 16:51 Aufrufe: 285

weiterhin kam der vorschlag arbeite dich doch in vb ein und mach das damit. nunja, wie es immer so ist, klappt das auch bis zu einem bestimmten punkt ganz gut, bis die umwissenheit ins spiel kommt. und zwar habe ich folgendes problem: habe eine formdatenbank, die in der lage ist neue zeilen einzufügen und suchoperationen über try-catch auszuführen. nun ist das problem, dass bei einer suche immer am textfe ...

Verfasst am: 06.03.2012, 14:08 Aufrufe: 162

Timer1_Tick() Webbrowser1.Navigate ("www.google.at") end Sub ja hast recht sind keine 5 zeilen sondern nur 3

Verfasst am: 06.03.2012, 11:36 Aufrufe: 162

Wie geschrieben es wurde für mich und freunde geschrieben und nein es sind leider nicht nur 5 zeilen und bei mein Freunden geht das Programm ja auch also muss ich nur was falsch eingestellt haben oder etwas wichtiges fehlt Sad

Verfasst am: 06.03.2012, 11:32 Aufrufe: 162

hi schreib das programm doch neu das sind 5 zeilen code

Verfasst am: 15.02.2012, 14:49 Aufrufe: 262

... ere DGV soll dann wieder in die XML geschreiben werden. Das Leeren an sich und das Eintragen des Datum funktioniert auch aber der Inhalt (das Datum) wird scheinbar nicht in die XML geschrieben, denn lade ich den Inhalt der XML wieder ins DGV dann ist dieses leer. geladen wird die xml beim formload in die DGV Hab schon viel rum probiert, sieht man wohl am Code: Sad

im prinzip sind es ja nur 3 zeilen ...

Verfasst am: 15.02.2012, 14:16 Aufrufe: 183

Verfasst am: 30.01.2012, 11:32 Aufrufe: 591

... stelle nochmals den index ans herz legen.... du hast eine textbox die beschrieben wird wenn das geschieht soll sich der checkbox value ändern Private Sub Text1_Change(Index as integer) if text1(Index).text <> "" then check1(index).Value = 1 else check1(index).value = 0 endif End SUb Wundersschön dynamisch und auf beliebig erweiterbar noch ein vorteil! wenig zeilen ...

Verfasst am: 14.01.2012, 16:45 Aufrufe: 227

Verfasst am: 08.12.2011, 12:12 Aufrufe: 453

Hier mal ein Pseudocode, den ich mir zusammengestellt habe. Da ich die Syntax nicht kenne würde ich gerne wissen, ob sich das mit VB so lösen lässt. Pseudocode: Lese .xls 1 ein Ermittle alle Zeilen und schreibe zähler in (Max1) Lese .xls 2 ein Ermittle alle Zeilen und schreibe zähler in (Max2) Beginne For-Schleife in .xls1 von Zeile i=1 bis Max1 Beginne For-Schleife in .xls2 von Zeile j=1 bis ...

Verfasst am: 01.12.2011, 22:52 Aufrufe: 561

Dann hat man zwei Möglichkeiten: Entweder konstruiert man sich einen dynamischen Block für die Tür, den kann man z.B. mit der Maus auf die jeweils gewünschten Abmessungen ziehen. Oder man programmiert in einer beliebigen Spache ein Tool, das AutoCAD-Befehle generiert und als Skript abspeichert, das man dann mit AutoCAD einliest. Das heißt, das Tool erzeugt Zeilen wie "LINE 1.00,0.00 1.00,4.23" - draus zeich ...

Verfasst am: 23.10.2011, 17:57 Aufrufe: 326

.. Am sinnvollsten erscheint mir hier eine Erstellung eines Arrays in der Art: 12345 Completed 21345 Abandoned 56743 In Progress Das Problem ist halt zum einen, dass manche Zeilen in Punkte der Datumsangaben und des Progress keine Werte haben, andere schon. Das andere Problem ist das Erkennen des Status "In Progress" daran, dass nur ein Startdatum vorhanden ist, aber kein Enddatum. Hat hier jem ...

Verfasst am: 18.10.2011, 13:16 Aufrufe: 292

hi das einzige was mir einfallen würde ist folgendes Public xAbbruch as boolean btn... wie auch immmer Stop xAbbruch = True end Sub Public Function wasweisich und hier alle paar zeilen if xAbbruch = True then exit Function

Verfasst am: 20.04.2011, 21:59 Aufrufe: 2425

Des weiteren wäre ein weiterer Programmierer hilfreich, der sich mit VB6 und DX8 gut auskennt! Auch sollte er keine Probleme haben sich in den Source einzuarbeiten, da mittlerweile fast 5000 Zeilen zusammen kommen! 2 Screenshots sind mal angehängt! Diese zeigen den aktuellen Stand der Dinge! Mal grob aufgelistet was bisher funktioniert! (Sorry falls ich was vergessen) AKTUELL Grafisch: - Rendern von 5 Ebe ...

Verfasst am: 25.03.2011, 09:56 Aufrufe: 772

Erstmal Hallo an alle, ich bin neu hier! Ich stehe als VB- Neuling momentan vor einem kleinen Problem, vielleicht habe ich auch einfach nur ein Brett vor dem Kopf. Ich muss ein VB-Skript für Excel schreiben, bei dem eine .csv - Datei geöffnet und die Daten Zeile für Zeile in einen String eingelesen werden. Das Öffnen über einen verknüpften Button funktioniert schon, hier einmal der bisherige Code: Sub OpenC ...

Verfasst am: 17.03.2011, 15:56 Aufrufe: 601

StreamReader(fs) Dim Var1 As String = w.ReadToEnd 'Die Datei komplett einlesen 'Wenn das fertig ist, den Filestream und den reader wieder schließen w.Close() fs.Close() 'Wir erstellen ein Array aus allen Zeilen, indem wir den String an jeder neuen Zeile splitten Dim loadarray As Array = Var1.Split(New String() {System ...

Verfasst am: 17.03.2011, 14:36 Aufrufe: 601

Bei Length wiederum nicht, also siehts so aus: 1,2,3,... Musst also in beiden Zeilen den Code so ändern: If temp.Remove(5, temp.Length-1) = "File =" Then Aber so wie es jetzt ist werden natürlich nur die Werte von File4 in die neue Datei geschrieben, kannst aber das Schreiben der Datei gleich in die Suchschleife mit reinpacken dann schreibt er es jedesmal wenn er den entsprechenden Begriff ...

Verfasst am: 17.03.2011, 13:34 Aufrufe: 864

FileStream( _ "DeineDatei.txt", IO.FileMode.Open, _ IO.FileAccess.Read) Dim w As IO.StreamReader = New IO.StreamReader(fs) ' Nun können wir Zeilen einlesen und auch gleich deinen textboxen zuweisen Textbox1.text = w.ReadLine 'Liest die erste Zeile in der Datei und weist den Text der Textbox zu 'Das machen wir jetzt für alle 4 also: Textbox2.text = w ...

Verfasst am: 17.03.2011, 13:24 Aufrufe: 601

ReadToEnd 'Die Datei komplett einlesen 'Wenn das fertig ist, den Filestream und den reader wieder schließen w.Close() fs.Close() Jetzt müssen wir nach deinen Zeilen suchen: 'Wir erstellen ein Array aus allen Zeilen, indem wir den String an jeder neuen Zeile splitten Dim loadarray As Array = Var1.Split(New String() {System.Environment.

Verfasst am: 17.03.2011, 11:57 Aufrufe: 601

Hallo, ich bin totaler Newbie was die Programmierung angeht, möchte jetzt aber damit mal anfangen. Und zwar möchte ich gern aus einer Datei die Settings.ini heißt bestimmte Zeilen auslesen. Die Zeilen beginnen mit File = und Parameter = ich benötige quasi das was nach dem = kommt. Die Zeilen stehen ziemlich am Ende der Datei, der ganz "mist" am Anfang interessiert mich garnicht. Den Inh ...

Verfasst am: 17.03.2011, 10:55 Aufrufe: 348

Über meine Form1 kasse ich per MenuStrip die Form2 aufrufen. Hier drin befindet sich eine RichTextBox. Wie kann ich nun einzelne Zeilen oder Wörter dort formatieren ? Kann irgenwie immer nur den gesamten text formatieren ? Und wie kann ich es erreichen wenn ich in der Form1 bzw. Mittels des MenuStrip die Form 2 aufrufen lasse, dass sich die Form1 schließt aber auch wieder öffnet, wenn ich die Form2 beende ...

Verfasst am: 16.03.2011, 22:22 Aufrufe: 583

Hab noch ein problem Very Happy

Jetzt geht auf einmal was schief, was vorher exakt auf diese art ging Method or Data Member not found. Mit ner Verweisung auf die Zeilen wo jeweils steht "WebBrowser1.Navigate "www.adresse.de""

Verfasst am: 16.03.2011, 10:41 Aufrufe: 864

Hallo liebe VB-Gemeinde, ich möchte gerne eine Textdatei auslesen. (Siehe Bild im Anhang). Ich habe oben im Programm 4 Textboxen. Darin würde ich gerne die ersten 4 Zeilen einer Textdatei einlesen lassen. Kann mir da bitte jemand helfen? Danke für die Mühe. Gr. Michael

Verfasst am: 02.02.2011, 09:50 Aufrufe: 2073

Benutze inzwischen doch wieder das VBScroll von Gasanov - das Add-In aus dem EP funktioniert bei mir, weiss der Kuckuck warum, leider nur in der gebundenen, aber nicht im der SDI-Entwickler-Ansicht - und die brauche ich wegen der Mehrfach-Monitor-Ausstattung. Das VBScroll von Gasanov funzt hingegen in jeder Entwickler-Ansicht und ist sogar konfigurierbar, wieviele Zeilen pro Wheelraster gescrollt werden sollen. L ...

Verfasst am: 13.01.2011, 07:24 Aufrufe: 676

Ich habe folgendes Problem: Ich benötige eine Datenerfassung die ich mit VB 2008 express edition und Framework 3.5 erstellt habe. In einem Excelblatt (permant geöffnet) gibt es 29 Mess-Stationen (Zeilen) mit jeweils 4 Daten (Leistung, Temperatur,..) die ich in einem Zeitintervall auslese. Ich öffne mit meinem VB Programm dann eine Exceldatei mit 29 Seiten und trage dort entsprechend den Stationen die ausgele ...

Verfasst am: 08.11.2010, 15:51 Aufrufe: 498

{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fnil\fcharset0 Arial;}} \viewkind4\uc1\pard\fs20 Dies ist \b ein\b0 beispieltext \par } wird zu <ST,`Dies ist` ,12,55><ST,`ein`,23,55><ST,`beispieltext`,12,55> wobei die 12 dem Font Arial entspricht und die 23 dem Font Arial fett. Wie kann ich nun die Zeilen so aus der RTE-Box auslesen, dass ich die dann in dieses besch..

Verfasst am: 07.11.2010, 14:59 Aufrufe: 848

könntest du mir die paar zeilen mal schreiben, da ich es gerade einfach nicht hinbekommen Sad

das mit dem update der db muss ich nochmal drüber nachdenken wie ich das umsetzte aber schonmal danke für die anregung

Verfasst am: 07.09.2010, 11:11 Aufrufe: 475

Ich möchte eine Textdatei mit ca. 1100 Zeilen einlesen. Beim Einlesen wird aber immer bei der 270 Zeile abgebrochen. Hoffe da kann mir jemand weiterhelfen, warum dies nicht funktioniert. Ich verwende folenden VB Code: Open datei For Input As #1 Do While Not EOF(1) Line Input #1, Data i = i + 1 Debug.Print i If InStr(1, Data, "SerialNo") > ...

Verfasst am: 06.09.2010, 12:52 Aufrufe: 455

Hallo, ich glaube die Kapazität der Liste ist nur durch den Speicher begrenzt. In den Dokumentationen die ich gefunden habe wird jedenfallst nichts von eine Größenbeschränkung geschrieben. Meine Testdaten waren ca. 1500 Zeilen und ca. 1,5MB Dateigröße. Gruß Charly

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: 30.08.2010, 13:11 Aufrufe: 1015

Naja das ist eigentlich nicht Hauptbestandteil meiner Arbeit. Das sind insgesamt 21.567 Zeilen reiner Code, ich glaube den kann ich nicht komplett kopieren und einfügen. Dann würde es ja auch keinen Sinn machen das ganze upzugraden, oder?

Verfasst am: 05.08.2010, 10:20 Aufrufe: 1031

Hallo mein Freund Very Happy

, nochmals danke - ich kann mich nicht genug bedanken. Läuft ja jetzt ruck zuck - paar sekunden, dann fertig! Die Ausgabe.txt schaut jetzt so aus: Die ersten 8 Zeilen sind leer - kein Eintrag - warum auch immer! . . . . . . . . 95787 = 3x 117399 = 3x 293889 = 3x 351563 = 3x 606491 = 3x 624476 = 3x 699955 = 3x 845144 = 3x 900438 = 3x 957189 = 3x 961805 = 3x 96823 ...

Verfasst am: 05.08.2010, 08:24 Aufrufe: 1031

Hallo, nein das habe ich nicht gemeint. Trotzdem danke nochmals Very Happy

Ich meinte: Bei der Ausgabe wird die Anzahl geschrieben CCur(sSum(i)) Nur wenn ich jetzt die txt öffne stehen da ja 990628 Zeilen untereinander mit jeweils wie oft vorgekommen. Ich wollte die die am meisten vorgekommen sind oben am Anfang der Datei haben usw. also absteigend sortiert nach ihrer Häufigkeit. Ich wollte das in excel ...

Verfasst am: 03.08.2010, 15:00 Aufrufe: 1031

darf ich fragen woran du da grade proggst?? hallo, quantitativen Informationen! Könnte man die Zeilen die doppelte Zahlen haben nicht schon gleich entfernen bevor sie in die neue Datei geschrieben werden? Also ich meine: Sobald die beiden zeilen zeile1 und zeile2 verbunden werden wird geprüft, ob mind. eine Zahl gleich ist dann wird diese erst garnicht in die neue kombinier.txt übernommen ??? ...

Verfasst am: 03.08.2010, 14:31 Aufrufe: 1031

... For i = 1 To 13 Input #1, sStr(i - 1) Next Close #1 Open "C:\kombinier.txt" For Append As #2 For i = 0 To 12 For j = 0 To 12 Print #2, sStr(i) & " " & sStr(j) Next Next Close #2 Very Happy

Super, das kommt der Sache schon sehr sehr nahe. Danke danke danke Dir !!! Jetzt muss ich nur noch alle Zeilen ...

Verfasst am: 03.08.2010, 13:51 Aufrufe: 1031

wie willst du es denn jetzt genau kombiniert haben? du hast im ersten post erwähn dass da 2000 zeilen drin sind und bei mir sinds 12 zahlen hallo, sorry - war mein Fehler das mit den 24 Zahlen. Aber mach mal eine txt Datei mit nur diesen Zahlen/Inhalt Und schau was da raus kommt. Hunderttausende an Zeilen ... obwohl es ja nur 13 x 12 / 2 = 78 sein dürften (Ohne jetzt mal die gleichen Zahlen i ...

Verfasst am: 03.08.2010, 13:41 Aufrufe: 1031

wie willst du es denn jetzt genau kombiniert haben? du hast im ersten post erwähn dass da 2000 zeilen drin sind und bei mir sinds 12 zahlen

Verfasst am: 03.08.2010, 13:36 Aufrufe: 1031

txt" For Append As #3 On Error Resume Next For i = 1 To 2000 Input #1, zeile1 For j = 1 To 2000 Input #2, zeile2 Print #3, zeile1 & zeile2 Next Next Close #1 Close #2 Close #3 lg Hallo, danke auch Dir vorab! Aber da stimmt was nicht. Hast Du mal selbst getestet? Selbst wenn nur 3 Zeilen vorhanden sind - in der test2.txt 01 02 03 04 05 06 01 02 ...

Verfasst am: 03.08.2010, 09:59 Aufrufe: 1031

Ich versuche folgendes: Öffnen einer txt Datei mit diesem Inhalt: 01 02 03 04 05 06 01 02 03 04 05 07 09 10 11 12 13 14 usw. usw. Insgesamt sind es 2000 Zeilen á 6 Zahlen Nun möchte ich, das die erste Zeile mit der zweiten zusammengefügt wird dann die erste Zeile mit der dritten dann die zweite mit der dritten Zeile usw. Also jede Zeile einmal mit den anderen kombiniert Müsste dann 20 ...

Verfasst am: 30.05.2010, 17:29 Aufrufe: 462

Hallo Leute, vlt. hat jemand von euch ne Idee! Ich möchte mit meinem Programm, auf ein anderes externes Programm zugreifen, und dort Textdaten auslesen. Das Programm soll dort beim klick auf bestimmte Zeilen gewisse Daten überprüfen. Die Daten sind in dem externen Programm in einem DataGrid gespeichert. Ich habe leider keine Idee wie ich das über VB lösen könnte. Vielen Dank schon mal für eure Antworten ; ...

Verfasst am: 04.05.2010, 12:26 Aufrufe: 593

Einzelne Zeilen einer Listbox lassen sich nicht farbig hervorheben

Verfasst am: 22.03.2010, 20:46 Aufrufe: 571

Anhand der getroffenen Auswahl schreibt mein Makro dann die dazugehörigen Daten in ein anderes Arbeitsblatt. In der Auswahl Spalte kommen jetzt aber natürlich die Begriffe mehrfach vor und ich bekomme die dann halt einfach untereinander mit den vielen Mehrfachnennungen und auch zum Teil leeren Zeilen in meiner Combobox angezeigt. Das ist sehr unübersichtlich und führt dazu das man oft mehrmals nach dem gleichen Begr ...

Verfasst am: 28.02.2010, 16:39 Aufrufe: 716

Ich habe dafür auch schon einen VBA-Code programmiert, den ich irgendwie zusammengebastelt habe. Leider hat der Code ein Problem. Immer wenn das Makro startet, dann überschreibt er die vorhandenen Einträge in Arbeitsblatt 2 und 3. Ich möchte aber, dass die Zeilen, die vom ersten in das zweite und dritte Arbeitsblatt verschoben werden, an die vorhandenen Einträge angehangen werden. Ich habe auch schon gegoogelt. Irgen ...

Verfasst am: 28.01.2010, 13:38 Aufrufe: 2310

1 ; Password=myPassword; User ID=myUser ; Data Source = ORCL; Persist Security Info=True" Dim objConn as new ADODB.Connection objConn.open ConnString ersetzt habe. Damit klappte zumindest erstmal der DB Zugriff, aber danach danach scheiterte es leider an den Zeilen ab 'Öffnen Recordset Stammdaten FORSTAMT] dort meldet er dann immer "Fehler öffnen..." Ich weiß, es ist sehr viel Code, a ...

Verfasst am: 17.01.2010, 14:01 Aufrufe: 425

So, ich hab zwar schon in ein paar programmiersprachen gearbeitet, aber in VBA bin ich ein völlieges Greenhorn..ich kann nix. Zum Problem: vorhandener Makro 1: mit Hilfe eines Buttons habe ich es geschafft Zeilen von einem bestimmten Tabellenblatt in das aktuelle (leere) Tabellenblatt zu kopieren. Läuft. Juhu Smile Ziel: Ich möchte das ganze flexibler gestalten, d.h. mit einem Kombinationsfeld auswählen können, ...

Verfasst am: 10.12.2009, 23:38 Aufrufe: 869

Verfasst am: 22.11.2009, 16:28 Aufrufe: 1805

... lariert ihr bitte global (Da wo auch die Device Variable sein sollte):Visual Basic: 3.2 DefineBackground FunktionWenn wir jetzt schon eine schöne neue Textur machen können, verwenden wir sie direkt, um den Hintergrund festzulegen.Fügt folgendes eurem Code hinzu:Visual Basic: 3.3 Änderung an der OnPaint FunktionDamit unsere Textur auch gezeichnet wird, müssen wir die OnPaint Funktion ergänzen. Fügt folgende Zeilen ...

Verfasst am: 16.09.2009, 12:03 Aufrufe: 888

hi,hier mal eine funktion, die 2 textdateien zeilenweise einließt und dann schaut ob diese identisch sind. wenn nicht werden sie in einer textbox angezeigt...die textbox sollte auf multiline = true gestellt seinVisual Basic: [code]'die textbox sollte multiline = true habenPublic Sub TexteVergleichen(Dateipfad1 As String, Dateipfad2 As String, Txtbox As TextBox)On Error GoTo Fehler Dim F, G As Integer Dim sLine, Tex ...

Verfasst am: 09.09.2009, 18:37 Aufrufe: 1047

Hallo, Ich wollte einfach nur fragen, ob diese Idee funktionieren könnte, so einen Crypter zu bauen. Ich möchte einen Cryter bauen, der das exe file in Assembler Code formatiert, und an Stellen im Code Jumps oder einfach nur leere Code Zeilen einfügt, um Dateien vor AntiVir zu schützen. Danach wird der Assembler Code wieder in eine EXE "compiled" (oder wie man das auch immer nennt) Ich bräuchte vo ...