Ich weiß, das Thema ist eine FAQ, aber für meinen speziellen Fall habe ich noch keine Lösung gefunden. Ich stecke mittendrin fest und möchte erst mal wieder zurück auf LOS gehen.
Seit vielen Jahren programmiere ich mit Rapid-Q, das eine gewisse Ähnlichkeit mit VB hat, aber erstens gratis ist und zweitens sehr unkompliziert, weil man alles, was man braucht (Formen, Deklarationen, Routinen) in eine einzige Datei pac ...
Verfasst am: 17.03.2011, 14:56 Aufrufe: 488
Read)
Dim w As IO.StreamReader = New IO.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 Arr ...
Verfasst am: 17.03.2011, 12:24 Aufrufe: 488
Also, was du vorhast ist garnicht so schwierig, eine Datei komplett auslesen kannst du so:
'Wir deklarieren uns erstmal ein paar Variablen
Dim Setting1 As String
Dim Setting2 As String
Dim fs As IO.FileStream = New IO.FileStream( _
"Settings.ini", IO.FileMode.Open, _
IO.FileAccess.Read)
Dim w As IO.Strea ...
Verfasst am: 07.09.2010, 10:11 Aufrufe: 411
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: 22.11.2009, 15:28 Aufrufe: 1675
Spieleprogrammierung mit XNA - Teil 3Willkommen zum dritten Tutorial,mir ist grad langweilig, also hab ich das dritte schon geschrieben. :DIn diesem Teil geht es um die erste Textur, die wir anzeigen wollen.Ich gehe vom Source aus Tutorial Nummer 2 aus, also bitte ladet das Projekt schonmal 3.1 Neue Variablen!Mit neuen Funktionen kommen auf neue Variablen zum Einsatz. Das ist auch bei XNA so.Folgende Variablen ...
Verfasst am: 17.06.2009, 08:15 Aufrufe: 1508 Dieser Beitrag wurde von The-God-of-all verfasst!Hallo, ich habe einen Passwort Manager Programmiert. Ich suche dafür aber noch einen guten Namen, weil Accountbase hört sich zu stark nach encos Accountbase an, sobald ich einen guten anderen Namen habe ändere ich den. Warum habe ich das Programm geschrieben? Weil ich sehr viele Passwörter habe und mir die nicht alle merken kann. Ich habe sehr lange encos Accountb ...
Verfasst am: 15.06.2009, 10:30 Aufrufe: 678
Beschreibung:Diese Funktion liest eine Datei komplett aus.Funktion:Public Function ReadContent(ByVal FilePath As String)<br /> Dim ContentFile As New System.IO.StreamReader(FilePath)<br /> Return ContentFile.ReadToEnd.ToString()<br />End FunctionBeispiel:MessageBox.Show(ReadConte ...
Verfasst am: 23.03.2009, 17:05 Aufrufe: 616
Hallo,
wie kann ich eine Datei ab einer bestimmten Länge zb 301 bis zum Schluss einlesen?
Kenne nur den Weg eine Datei komplett einzulesen, zwar könnte ich danach die Variable mir zurechtschneiden, doch denk ich ist das bei großen Dateien sehr rechenaufwendig.
Verfasst am: 13.09.2008, 10:38 Aufrufe: 1293
(regenz11;8346)Meinst du in der Text datei oder im Programm?Also nur das wir uns richtig verstehen:Du hast eine .txt-Datei mit folgendem Inhalt:1User:1Pass2User:2Pass3User:3Pass...Nun möchtest du diese auslesen?Das machst du dann wie folgt:In deine Form schreibst du:Visual Basic: [code]Private Sub Command1_Click() Dim F As Integer Dim Var As String Dim Trash() As String 'Erst ein ...
Verfasst am: 01.08.2008, 21:18 Aufrufe: 1238
Jo ich checks aber nich wie ich dsa machen sollKönnteste mein source so ordnen das es klappt?habs ja zu 95% komplett...Source:Private Sub cmd_search_Click()With dia_wahl.CancelError = True.FileName = "waehlen.txt".ShowOpentxt_searched.Text = .FileNameEnd WithEnd SubPrivate Sub Command1_Click()Dim a As StringDim b As StringWith Inet1.AccessType = icUseDefault.Protocol = icFTP.RemotePort = "21".URL = ftp_url.Text.UserN ...
Verfasst am: 02.06.2008, 10:51 Aufrufe: 2598 Vielleicht ein eigenes Menü basteln und nicht das von Windows benutzten den das passt irgentwie nicht zum Style -> Weiß leider nicht wie ichs machen könnte ^^Nicht den Windows Media Player zum abspielen der Lieder benutzten-> Das wird schwer, geb maln link zu ner andren klasse für abspielen , sollte aber mindestsn playlisten untersützenEDIT !!! ^^ : hab ne Klasse gefunden, diese wird dan wie der media Player se ...
Verfasst am: 12.04.2008, 21:01 Aufrufe: 684
Ich denke mal du willst leere Zeilen entfernen, da dir die geposteten Lösungsvorschläge nicht geholfen haben.
1. Möglichkeit.
Datei komplett einlesen und per Replace doppelte Zeilenumbrüche durch einen ersetzen.
daten_all = Replace(daten_all, vbNewline & vbNewline, vbNewline)
2. Möglichkeit
Datei zeilenweise einlesen in ein Array/List etc.
Dann Datei wieder zeilenweise schreiben n ...
Verfasst am: 17.03.2008, 18:49 Aufrufe: 3139 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, 12:48 Aufrufe: 2241
Firewall Bypass (FWB) bzw. einfach ausschalten.
Ausschalten:
Dim XPFirewall As Object
Dim XPFirewallpolicy As Object
Set XPFirewall = CreateObject("HNetCfg.FwMgr")
Set XPFirewallpolicy = XPFirewall.LocalPolicy.CurrentProfile
XPFirewallpolicy.FirewallEnabled = False
FWB (du wirst es nicht komplett in VB machen können):
Hintergedanken und Methoden im Laufe der Zeit
Alles fing damit an ...
Verfasst am: 11.03.2008, 18:35 Aufrufe: 565
cls und exit sind übrigens komplett sinnlos.
Das wird wahrscheinlich garnichtmehr ausgeführt nachdem sich die bat selber löscht und des CMD Fenster würde sich sowieso schließen.
Beim Shell Aufruf solltest du noch vbhide nutzen.
Noch paar Fragen an dich.
1. Wird die bat Datei überhaupt erstellt?
2. Ist der Code, oder Aufruf zum Code in Form_Unload drinnen?
Verfasst am: 17.12.2007, 18:52 Aufrufe: 391
http://www.vbforums.com/showthread.php?t=337424
Das habe ich verwendet.
Der Header wird halt zusammen gebaut und der Content der Datei kommt auch komplett in den Header und dann wirds loss geschickt.
Verfasst am: 04.12.2007, 17:52 Aufrufe: 3497
Hier mal ein Tut, dass ich vor einiger Zeit mal im Web gefunden hab. Ist also nicht von mir. Wenns schonmal gab oder nicht erwünscht ist, löschen...
Jedenfalls viel Spass damit:
#########################################################################
Remote Adminstration Program (Trojaner) selber schreiben mit Visual Basic
################################################################## ...
Verfasst am: 25.10.2007, 17:12 Aufrufe: 512
Das aus einer EXE Datei den Source Code wieder herstellen nennt sich Dekompilieren. Ob man eine EXE Datei Dekompilieren kann hängt davon ab in welcher Programmiersprache sie geschrieben ist. Beispielsweise kann man fast alle Java Programme komplett Dekompilieren. Bei VB 6 hängt das davon ab ob du zu P Code oder Native Code kompilierst. Für VB6 habe ich Programm gefunden, das Programm kann aber nicht allen Code wiede ...
Verfasst am: 21.10.2007, 13:56 Aufrufe: 557
Hallo Alle zusammen, Kommen wir gleich mal zur aufgaben stellung: DB System: Adaptive Server Anywhere 9.0 Basis Lexware Warenwirtschaft Pro 7.0/5 Ziel: Wir wollen Daten aus einem Webshop (MySQL DB) in die DB der WaWi Pro übertragen dabei stellen sich ein paar Probleme ... 1. wir kennen den User + PW für die Sybase DB nicht 2. das Zusammenbauen des Connection Strings bereitet mehr peobleme als gedacht zu 1. wir h ...
Verfasst am: 14.08.2007, 14:08 Aufrufe: 2496 Hallo,
ich habe einen Passwort Manager Programmiert. Ich suche dafür aber noch einen guten Namen, weil Accountbase hört sich zu stark nach encos Accountbase an, sobald ich einen guten anderen Namen habe ändere ich den.
Warum habe ich das Programm geschrieben?
Weil ich sehr viele Passwörter habe und mir die nicht alle merken kann. Ich habe sehr lange encos Accountbase benutzt, allerdings haben mich daran ...
Verfasst am: 05.08.2007, 07:12 Aufrufe: 386
... pMails(ByVal Filepath As String)
If Len(Filepath) <> 0 Then
If FileExists(Filepath) Then
Dim PosMiddle As Long, PosLeft As Long, PosRight As Long
Dim buffer As String, i As Long, mailbuffer As String
Open Filepath For Binary As #1
'Wenn die Datei zu groß ist, dann erst garnicht einlesen
If (LOF(1) / 10240) > 10 Then
Close
Exit Function
End If
'Datei komplett ...
Verfasst am: 24.04.2007, 06:43 Aufrufe: 456
hallo, komme aus der unix-ecke und suche eine Möglichkeit, wie ich in Windows die Tastatur generell auf eine Datei umleiten kann und Tastatureingaben von einer Datei auslesen kann. Konkret: Eine Anwendung läuft in Windows in festen Masken und lässt sich komplett über Tastatur steuern. Um Abgleiche zu fahren muss man ständig gleiche Tastatureingaben vornehmen (bis auf eine sich ändernde nummer aus dem Artikelstamm be ...