Visual Basic Forum

Verfasst am: 11.08.2011, 05:45 Aufrufe: 365

hallo guido65, danke für die schnelle antwort. hatte die frage noch in einem anderen forum gepostet und konnte das problem jetzt lösen. es lag an der formatierung der textdatei, die für meine zwecke expliziet im ASCII-code ausgegeben werden musste. file = My.Computer.FileSystem.OpenTextFileWriter(Hauptmenü.txtdateien.Text & dateiname & ".dxf", True, System.Text.Encoding.ASCII)

Verfasst am: 10.08.2011, 07:34 Aufrufe: 365

Hallo alle zusammen! In unserem Betrieb haben wir ein selbst gestricktes Programm welches für verschiedene Körper Abwicklungen im DXF-Format ausgibt. Die DXF-Dateien können von einem Zeichenprogramm (ProFirst) geöffnet und bearbeitet werden und letztendlich in der Werkstatt vom Plasmaschneider automatisch zugeschnitten werden. Da das Programm mit Visual Basic 6.0 geschrieben wurde und wir der Zeit nicht ganz ...

Verfasst am: 25.03.2011, 18:54 Aufrufe: 300

Verfasst am: 16.03.2011, 09:41 Aufrufe: 617

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: 03.03.2011, 09:47 Aufrufe: 300

Hey Leute. Ich hoffe einer von euch kann mir witerhelfen. Ich habe ein VB Script das eine Textdatei von einem Ftp runterlädt und dann einen Zeitstempel an die Datei anhängt. Dies funktioniert alles wunderbar. Ich speichere den Zeitstempel in einen String Function fnIsoDateTime(dtmDateTime) Dim strMonth strMonth = Month(dtmDateTime) If Len(strMonth) = 1 Then strMonth = "0&quo ...

Verfasst am: 18.02.2011, 20:09 Aufrufe: 387

Hallo, Ich bin erst Anfänger von VB und würde gerne wissen wie ich 1 Ordner mit Textdateien per BrowseForFolder anlegen kann. Zu dem Projekt: Ich habe eine Userform die bei der ersten Aktivierung das (?)Ordnerwahlfenster(?) Aktivieren soll, wo der User dann den Speicherort des neuen Ordners mit den Text-Dateien bestimmen kann. danach kann das öffnen des Fensters ja wegfallen. Danach muss die Userform ...

Verfasst am: 09.02.2011, 11:13 Aufrufe: 399

Hallo an Alle, Ich will ein Textbox1 Wert in einer Textdatei suchen und gefundene Line in Label1 ausgeben. Diese Code hab ich in Internet gefunden, wie könnte ich es für meine Idee nutzen? Diese Code sucht einen Wert den ich in eine Textbox eingebe in einer Textdatei und die Zeile mit dem gefundenen Wert wird in einer neue Textdatei gespeichert. Dim stream1 As New System.IO.FileStream("C:\ ...

Verfasst am: 01.01.2011, 19:26 Aufrufe: 699

Verfasst am: 01.12.2010, 18:37 Aufrufe: 511

Verfasst am: 07.09.2010, 16:26 Aufrufe: 767

Verfasst am: 07.09.2010, 10:11 Aufrufe: 415

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, 10:00 Aufrufe: 406

Hallo, schreibe deine Textdatei doch einfach in eine ArrayList. In der ArrayList kannst du dann mit der Ordinalnummer auf jede Zeile zugreifen. Gruß Charly

Verfasst am: 03.09.2010, 06:19 Aufrufe: 767

Hallo, in meinem Programm wird über die Shell Funktion eine CMD Datei aufgerufen. In dieser CMD wird dann eine Textdatei geöffnet einige Teile extrahiert und in einer neuen Textdatei gespeichert. Diese wird dann im Ordner wo die CMD-Datei ausgeführt wird gespeichert. Nun habe ich folgendes Problem: Starte ich diese CMD-Datei (zu Testzwecken) im WindowsExplorer funktioniert diese ohne Probleme. Starte ich ...

Verfasst am: 30.08.2010, 11:53 Aufrufe: 486

hi wenn du die textdatei zeilenweise einliest brauchst du nur noch in deiner schleife eine wartefunktion google mal nach "Delay" und mit text1.selstart = len(text1.text) springst du immer an den letzten punkt im texfeld lg

Verfasst am: 10.05.2010, 20:35 Aufrufe: 308

Hallo, ich habe ein kleines Problem: Ich habe mich mal an einem Browser mit VB.Net versucht. Ich habe alles fertig bis auf die Lesezeichenfunktion. Bisher wird beim anlegen eines Lesezeichens eine Textdatei um den angegebenen Namen und um den Link erweitert. Beim starten des Browser wird diese Datei eingelesen. Die Links werden alle erst mal in einer Listbox gespeichert. Die Namen der Lesezeichen werden dann auc ...

Verfasst am: 21.04.2010, 09:13 Aufrufe: 898

Hallo, bin neu in der programmierwelt und möchte eine txt DAtei öffnen, einen Wert suchen und ändern. In der Datei steht test!1234 ich möchte dann test! suchen und die ZAhlen ändern, später über eine Variabel. Hier mal mein Code, aber irgdedwie ghet das nicht. Open dateiname For Input As #1 Do While Not EOF(1) Line Input #1, gesamtstring pos = 1 x = InStr(pos, gesamtstring, &quo ...

Verfasst am: 04.03.2010, 22:43 Aufrufe: 612

Ein sehr umfangreiches Programm soll via Ressourcendatei nachträglich mehrsprachig werden. Hierzu wurden alle Objekte die eine Caption enthalten mit einem Tag versehen. Dann habe ich alle Tags und den zugehörigen Original Beschriftungstext per Code in eine Textdatei geschrieben. Aber wie bekomme ich nun diesen Text (Tag/ID und Caption-Text) in eine Zeichenfolgentabelle der Res-Datei ohne jeden Wert und ID manu ...

Verfasst am: 29.01.2010, 08:23 Aufrufe: 350

Hallo Programmier Gemeinde Ich bin recht neu in VB und habe bis vor kurzem nur VBA-Excel programmiert. Ich möchte gerne die Eingabe aus einer UserForm in eine Textdatei abspeicher. Da die Datenmenge nicht sehr groß ist das ich eine sql datenbank bemühen möchte. ich danke für eine Anteort im vorraus. MfG Laza

Verfasst am: 23.01.2010, 11:23 Aufrufe: 2049

hi wenn du auf deinem ftp server einen textdatei hast und du siehst dir im quelltext deines browsers die textdatei an siehst du genau den inhalt der textdatei du kennst ja den pfad im netz zur datei von der seite lässt du dir den quelltext auslesen dann erspartst du dir den ftp download jap und code findest sicher einen wernn du eine minute suchst lg

Verfasst am: 29.12.2009, 12:04 Aufrufe: 986

hi hast du dich schon mit den grundlagen beschäftigt?! dir for - schleife hilft dir weiter... open "c:\DeineDatei.txt" for Output as #1 for i = txt_von.text to txt_bis.text Print #1, txt_nick.text & i next close #1 und fertig dann hast du eine textdatei nach deinem schema lg

Verfasst am: 10.12.2009, 21:00 Aufrufe: 588

Verfasst am: 26.11.2009, 15:55 Aufrufe: 564

Ich habe einen Source Code einer Datei die einen Ordner Temporärverzeichnis auf allen Festplatte erstellt und dort eine Text-Datei reinspeichert. Mein Problem ist es nun, das meine Datei automatisch alle Textdateien im Ordner Temporärverzeichnis der auf der Festplatte hochladen soll auf einen Ftp Server. Das ganze soll automatisch passieren ohne das man es in der Anwendung angeben muss. Ich hab schon einiges ausprobi ...

Verfasst am: 22.11.2009, 21:27 Aufrufe: 1078

Hi Leute, ich muss zugeben, ich bin sehr neu in dem Umgang mit Virsual Basic. Ich habe vorher nur mit PHP und MySQl und sowas gearbeitet. Nun zu meinem Problem: Ich möchte mein Programm dazu bewegen, dass es Informationen über die Nutzer, die sich für den Gebrach meines Programmes einloggen müssen, datenbankartig in einer Datei speichert. Dabei müssen folgene Informationen gespeichert werden: ID username password ...

Verfasst am: 17.11.2009, 11:57 Aufrufe: 1748

... -kr", KOI8_R="koi8-r" ' Shift_JIS="shift-jis" Public Function FileToFormat(sFilename As String, CharFormat As String) Dim F As Integer Dim sInhalt As String Dim objStream As Object If Dir$(sFilename, vbNormal) <> "" Then ' Existiert die Datei ? F = FreeFile Open sFilename For Binary As #F ' Textdatei ...

Verfasst am: 17.11.2009, 11:54 Aufrufe: 2380

... 22-kr", KOI8_R="koi8-r" ' Shift_JIS="shift-jis" Public Function FileToUTF8(sFilename As String, CharFormat As String) Dim F As Integer Dim sInhalt As String Dim objStream As Object If Dir$(sFilename, vbNormal) <> "" Then ' Existiert die Datei ? F = FreeFile Open sFilename For Binary As #F ' Textdatei ...

Verfasst am: 29.10.2009, 20:21 Aufrufe: 763

hi das was du brauchst ist das listview element... musst dir halt noch überlegen oder dir einen fertigen code suchen dass du den ganzen inhalt vom listview in eine textdatei speicherst vl auch das passwort verschlüsseln sonst kann jeder deine daten auf den ersten blick sehen

Verfasst am: 25.10.2009, 23:11 Aufrufe: 545

Muss mir selber ein kurzes Tool schreiben um eine gewisse Arbeit zu vereinfachen.Ich möchte gerne eine Text Datei auslesen und gewisse Vorgaben vergleichen.So würde die Textdatei aussehen:- Befehl "1" "100"- Befehl "2" "200"- Befehl "3" "300"Jetzt möcht ich zb. das der der Wert des ersten Befehles überprüft wirdsprich Befehl "1" = Wert "100" , dann überschreibe mit Wert "200".Wenn Befehl "1" bereits Wert "200" hat, m ...

Verfasst am: 17.10.2009, 17:47 Aufrufe: 541

Dies gelingt mir glaube ich recht gut. Lediglich 2 Dinge bereiten mir Kopfschmerzen: 1. Problem: Ich verwende Numericupdown controls die darin befindlichen Werte sollen beim Klick auf den Button "Speichern" in eine Textdatei abgespeichert werden, dies geschieht folgendermassen: Dim fileno As Integer, filename As String fileno = FreeFile() FileOpen(fileno, TextBox13.Tex ...

Verfasst am: 28.09.2009, 17:03 Aufrufe: 835

Hallo zusammen, ich bin neu hier da ich vor einem Problem stehe mit dem ich mich nun schon seit Tagen durch Inet kämpfe. Ich möchte mehrere große Textdateien in ein Datatable schreiben und dann an den Daten diverse Berechnungen durchführen. Im moment bin ich noch dabei eine einzige Textdatei einzulesen. Ich gehe dabei aber immernoch über ein normales array. Die Textdateien sehen folgendermassen aus: Kunden ...

Verfasst am: 08.09.2009, 07:58 Aufrufe: 438

Hallo! Ich schreibe grade ein Programm, wo ich aus einer Textdatei eine Zahl auslesen, die folgendermaßen aussieht: 000000. Dann erstelle ich eine Datei mit diesem Namen. Anschließend soll die Zahl in der Textdatei erhöht werden, im Sinne von 000001, 000002, 000003 .... usw. Nun wenn ich die Zahl aber +1 rechne (egal, mit welchem Dateityp die Zahl deklariert ist), speichert er die Zahl im Sinne von: 000000 -> 1 ...

Verfasst am: 06.09.2009, 18:08 Aufrufe: 435

... atei(en)" ^|find "Bytes"') do set Groesse=%%k rem String in Zahl umwandeln (Leerzeichen entfernen) set /a Groesse=%Groesse%/1 if "%Groesse%"=="%Dateigroesse%" type "j:\testok.txt" if not "%Groesse%"=="%Dateigroesse%" type "j:\testmist.txt Kann mir jmd. helfen dies für Visual Basic zu erstellen ? Das Anzeigen der jeweiligen Textdatei ...

Verfasst am: 25.08.2009, 17:23 Aufrufe: 507

Nachtrag : Unter Kapitel 6.3.1 findest du auch Informationen zum Lesen aus einer Textdatei.

Verfasst am: 24.08.2009, 17:47 Aufrufe: 507

Verfasst am: 06.08.2009, 15:32 Aufrufe: 431

Hey ich brauche einen VBA Code der den Namen einer Textdatei ließt (nicht den Inhalt) und vergleicht ob ein Ordner mit dem selben Namen schon vorhanden ist. Wenn ein Ordner mit dem gleichen Namen der textdatei vorhanden ist dann soll die datei in den Ordner verschoben werden. danke schon mal für die Hilfe. Bye

Verfasst am: 13.07.2009, 07:55 Aufrufe: 1499

FileSystem.OpenTextFileWriter("C:\test\test.txt", False) Ausgabe.WriteLine(sTxt) 'Variable sTxt in Testdatei schreiben Ausgabe.Close() ' Textdatei schließen Dim TempString() As String Dim Zaehler As Integer = 0 TempString = System.IO.File.ReadAllLines("c:\test\test.txt") While ...

Verfasst am: 20.06.2009, 13:09 Aufrufe: 968

... ngelog: -Links können direkt aus dem PremiumAccount eingelesen werden - WICHTIG!: Vor dem Programm start über den INTERNET EXPLORER einmalig in seinen RS-Acc einloggen! Das ist wichtig und es muss über den INTERNET EXPLORER geschehen! Diese Prozedur muss einmalig vollzogen werden ! Wink

(meintest du es so Iceman?) -Uhr eingebaut -Status eingebaut wieviele LoginLinks -Die Login Links können nun in einer Textdatei ...

Verfasst am: 20.06.2009, 13:06 Aufrufe: 595

Hier mal ein Screen: Beschreibung: Ist eingentlich alles ziemlich eindeutig, ihr tragt die Auktionsdaten ein und klickt auf "Eintragen" dann werden die Auktionen eingetragen. Mit dem Button "Speichern" könnt ihr alle Auktionen in einer Textdatei speichern ( um es zum Beispiel auszudrucken), ihr müsst bevor ihr das Programm schließt nicht extra die Auktionen Speichern das Programm speich ...

Verfasst am: 18.06.2009, 11:57 Aufrufe: 1704

exe Datei durch die neue ersetzt und dann die neue exe startet, ein Beispiel dazu findet ihr hier)Ich habe auch eine Möglichkeit eingebaut um einen Autoupdate zu integrieren (dass das Programm bei jedem Programmstart automatisch nach Updates sucht)Die Updates werden von einer beiliegende PHP Datei abgerufen, die beiliegende PHP Datei ist sehr einfach (3 Zeilen) sie überprüft nur ob eine Textdatei zu der Version vorli ...

Verfasst am: 15.06.2009, 16:59 Aufrufe: 1788

So, da will ich mal wieder ein kleines Tutorial schreiben.Und zwar will ich euch zeigen, wie ihr eine bestimmte zeile aus einer Textdatei auslesen, in einer Variable speichern und ausgeben könntAlso dann mal los.Als erstes legen wir uns eine neue Textdatei an und fügen 10 Zeilen mit Inhalt ein. Und speichern sie in unserem Debug Ordner unseres ProjektsBsp:C:Dokumente und EinstellungenMardukEigene DateienVisual Studio ...

Verfasst am: 15.06.2009, 11:35 Aufrufe: 2514

Private tStream as TextStreamFür kopieren, verschieben, löschen usw. wird dies nicht benötigt.3. Lesezugriff Wie sieht also die Syntax zum öffnen einer Datei aus?Set tStream = FSO.OpenTextFile(Filename, IOMode, Create)(tStream)Unsere TextStream Variable.(.OpenTextFile)Wir wollen eine Textdatei öffnen.(Filename)Hier gibt man den Pfad zur Datei an.(IOMode)Möglichkeiten:1. ForAppending2. ForReading3. ForWritingW ...

Verfasst am: 08.04.2009, 20:25 Aufrufe: 397

Hallo, ich habe folgndes Problem und ich komme nicht weiter. Ich will aus einer Textdatei werte die mit Semikolon getrennt sind in eine Structure einlesen. Das ganze sieht etwa so aus: 1 ; 2734 ; 84; 1234 ; 23 0 ; 11 ; 3884; 34 ; 99 1 ; 2 ; 66; 0 ; 42 Die Structure enthält Double und Boolean Daten. Ich hab es mit Zeile.Split(";") versucht aber kann die werte nicht auftrennen und bekomme nur m ...

Verfasst am: 30.03.2009, 08:07 Aufrufe: 1913

Ist das richtig, ich schreibe den Code in eine Text-Datei und nenne diese dann um von .txt auf .vbs Ja, so sollte es funktionieren. Bei dem Code an sich kann ich dir leider auch nicht sonderlich helfen, aber das was du dort hast, sieht doch schon recht gut aus. lg ZiuX

Verfasst am: 30.03.2009, 07:47 Aufrufe: 1913

Danke für deine schnelle Antwort. Ja habe auch beim googeln etwas gefunden, funkt nur leider nicht!! Ist das richtig, ich schreibe den Code in eine Text-Datei und nenne diese dann um von .txt auf .vbs Dim WshShell, fso, file Set fso = CreateObject("Scripting.FileSystemObject") Set WshShell = WScript.CreateObject("WScript.shell") Set file = fso.GetFile("C:\\Test\FAX") ...

Verfasst am: 05.03.2009, 15:02 Aufrufe: 568

Hallo, kann ich irgendwie beim Einlesen einer Textdatei in ein Stringarray mir anschließender ReDim Preserve Anweisung, die Progressbar anzeigen lassen. Also nach jeder Neudimensionierung und Einlesen ins Array: ProgressBar1.Value = ProgressBar1.Value + 1 ohne ProgressBar1.Max zu kennen, da das Array ja dynamisch ist? Danke!

Verfasst am: 03.03.2009, 07:47 Aufrufe: 1091

Hallo ich habe folgende Frage: ich durchlaufe per Schleife eine Textdatei, suche nach einem Element des Arrays, wenn es gefunden wird, wird ein zusätzlicher String an den eingelesenen angehängt und der Rest der Datei eingelesen und angehängt. 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 di ...

Verfasst am: 02.03.2009, 09:13 Aufrufe: 1352

Guten Morgen! Ich hatte mich schon länger damit beschäftigt, Teile aus einer Textdatei wieder entfernen zu können, doch die Lösungen von vbarchiv etc waren mir irgentwie alle viel zu lang und umständlich... Jetzt habe ich hier mal eine einfache, und relativ kurze Funktion geschrieben, um halt einen String aus einer Textdatei zu entfernen.. Public Function deletefromtxt(ByVal sFilename As String, ByVal strt ...

Verfasst am: 26.02.2009, 14:44 Aufrufe: 1960

Danke für deine Antwort, das Array enthält aber fast 1000 Strings die ich in einer Textdatei bereits formatiert habe, wenn ich die in vb einfüge, verlangt der Compiler lauter Sprungmarken, nachdem ich die eingefügt habe (was extrem lange gedauert hat) zickt er immer noch. Ich befülle das Array jetzt indem ich es direkt aus der Textdatei auslese!

Verfasst am: 26.02.2009, 14:40 Aufrufe: 2393

Ich soll ein Programm erstellen das Messungen von Motherboardkomponenten auswertet. Ich lese aus einer Protokolldatei und nach dem Begriff "FAIL}" der kennzeichnet, ob die Messungen fehlerhaft sind. Zu Beginn lese ich die Komponenten über eine Textdatei in ein Array ein. Falls in der eingelesen Zeile außer Fail} auch noch eine Komponente enthalten ist wird die Sourcecodedatei die die Protokolldate ...

Verfasst am: 24.02.2009, 14:17 Aufrufe: 1720

hi speicher doch einfach den ganzen inhalt der textdatei in eine variable. mit der "instr" funktion kannst du schaun an welcher position dein schlüsselwort steht bis zu dieser position in die nächste variable und den rest bis zum ende der textdatei in die 3. variable und dancah wieder zusammensetzten variable2 + dein text + variable 3.... lg

Verfasst am: 24.02.2009, 12:19 Aufrufe: 1720

Hallo, ich habe folgendes Problem, ich suche mithilfe der Filesystemobjects in einer Textdatei nach einem bestimmten Schlüsselwort. Wenn ich das Schlüsselwort gefunden habe, möchte ich nachfolgend eine Leerzeile und zwei Zeilen mit Text einfügen. Das Problem ist aber mit FileSystemobjects kann man ja nur entweder: File.OpenTextFile(Pfad, ForAppending, False) oder File.OpenTextFile(Pfad, ForWriting, False) ...