Visual Basic Forum

Verfasst am: 13.01.2012, 19:00 Aufrufe: 1430

aber kurz und knapp du kannst dir selbst einen einfachen updater schreiben ist recht simpel du legst auf deinen ftp server einen datei an "Version.txt" die liest du beim programmstart aus stimmt sie mit deiner programmversion überein passt wenn nicht soll der die daten aus einem bestimmten verzeichnis runterladen eventuell müsstet du in einer weiteren datei am server noch angeben welche dass s ...

Verfasst am: 06.01.2012, 03:55 Aufrufe: 2344

Um eine bestimmte Startseite festzulegen, gibt es keinen so kurzen Code.Die einfachste Möglichkeit ist es die Startseite in einem Textdokument zu speichern. Die idee mit der Txt find ich gut aber ich Selber würdes eher so Machen weil man dann nichts extra abspeichern muss Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox1.Text = "d ...

Verfasst am: 02.12.2011, 08:44 Aufrufe: 223

Verfasst am: 10.08.2011, 07:34 Aufrufe: 363

???!!! Kann sich jemand vorstellen was das sein könnten? Ideeen? Vielen Dank schonmal, Gruß Beppo DXF-Anfang einlesen: Public Sub dxfanfang(ByVal dateiname As String) 'dxf-anfang aus datei laden Dim dxfanfang As String dxfanfang = My.Computer.FileSystem.ReadAllText(Hauptmenü.txtdxf.Text & "dxf-anfang.txt") 'dxf-anfang schreiben My.Compute ...

Verfasst am: 15.07.2011, 06:10 Aufrufe: 296

'un dan brauchst du die sachen nur mehr ausgeben outputstring = "Sehr geehrte/r Herr/Frau/Firma " & FamName & "!" & vbnewline & _ "Betrifft Abriss des Hauses: " & Adresse open "C:\Brief_" & format$(i, "0000") & ".txt" for output as #1 print #1, Outputstring close #1 next ...

Verfasst am: 20.04.2011, 23:50 Aufrufe: 300

Verfasst am: 25.03.2011, 18:54 Aufrufe: 300

Verfasst am: 25.03.2011, 00:11 Aufrufe: 672

**/************/test/filesizes.txt", "filesizes.txt", Temp) Me.

Verfasst am: 17.03.2011, 14:56 Aufrufe: 490

Length - 12)) = "Parameters =" Then Setting2 = temp.Remove(0, temp.LastIndexOf("=") + 1) End If End If Next Dim ws As FileStream = New FileStream( _ "temp.txt", FileMode.OpenOrCreate, _ FileAccess.Write) ' --- Stream öffnen Dim wr As StreamWriter = Ne ...

Verfasst am: 17.03.2011, 12:34 Aufrufe: 615

Also du gehst wie folgt vor: Wir müssen dem Programm erstmal sagen, dass er was einlesen soll und was er einlesen soll, das geht so: Dim fs As IO.FileStream = New IO.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 textbo ...

Verfasst am: 17.03.2011, 12:24 Aufrufe: 490

Length) = "Parameter =" Then Setting2 = temp.Remove(0, Var1.LastIndexOf("=") + 1) End If Next So jetzt müssen wir die Variablen nur noch in eine neue Datei schreiben: Dim ws As FileStream = New FileStream( _ "temp.txt", FileMode.OpenOrCreate, _ FileAccess.Write) ' --- Stream öffnen ...

Verfasst am: 17.03.2011, 10:57 Aufrufe: 490

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 Inhalt dieser Zeilen möchte ich in andere andere Datei schreiben, z.B. temp.txt Ich hoffe mir kann jemand helfen und bedanke mich schonmal im Voraus. LG ...

Verfasst am: 07.03.2011, 19:07 Aufrufe: 403

Ich hab da nen Code den ich ändern wollte. Leider kenn ich die passenden Befehle nicht. Im Programm soll die Abfrage von CPU.M(100, 5) permanent abgefragt werden. Wenn = True dann soll die testdatei.txt erstellt werden. Und was ja warscheinlich von selbst geht. Wenn CPU.M(100, 5) erneut True wird dann soll die Datei erneut erstellt werden. Bin echt sehr dankbar für euere Vorschläge Private Sub C ...

Verfasst am: 07.03.2011, 14:36 Aufrufe: 336

Ja Dark-Games und ich haben uns mal zusammen gesetzt um nun die erste Version von unserem Recovery Tool vorzustellen! Also man braucht für dieses Tool: Die Txt oder Wörterbuch Datei wo ALLE Kombinationen drinnstehen! / Die E-Mail Adresse ! Jo dieses Tool werden wir nachdem wir nochmal alles durchgegangen sind(30Minuten) auch zum Download anbieten! WIR ÜBERNEHMEN KEINE HAFTUNG für das was ihr damit macht! mfg ~s ...

Verfasst am: 07.03.2011, 14:30 Aufrufe: 319

Ja Dark-Games und ich haben uns mal zusammen gesetzt um nun die erste Version von unserem Recovery Tool vorzustellen! Also man braucht für dieses Tool: Die Txt oder Wörterbuch Datei wo ALLE Kombinationen drinnstehen! / Die E-Mail Adresse ! Jo dieses Tool werden wir nachdem wir nochmal alles durchgegangen sind(30Minuten) auch zum Download anbieten! WIR ÜBERNEHMEN KEINE HAFTUNG für das was ihr damit macht! mfg ~s ...

Verfasst am: 18.02.2011, 20:09 Aufrufe: 386

Visible = False UserForm1.Show End Sub Private Sub UserForm_Activate() 'Kopiert den Textinhalt aus einer Textdatei in eine Textbox' FNr = FreeFile Open "c:\Documents\test1.txt" _ For Input As #FNr Do While Not EOF(FNr) Line Input #FNr, zw 'optional: überprüfen ob Zeile übernommen werden soll 'If ZeileUebernehmen Then UserForm1.TextBox1.SelT ...

Verfasst am: 17.02.2011, 17:00 Aufrufe: 462

*Pfad*.../current_version.txt") '# fehler abfrag die prüft ob die abfrage funktioniert If ???? Then status.Text = "Update-Check Error (Please check your internet connection and try again later) " webRequest.Abort() Me.UseWaitCursor = False Exit Sub End If webresponse = webRequest.GetRespon ...

Verfasst am: 09.02.2011, 14:23 Aufrufe: 395

Hab' das Problem mit Hilfe von anderen VB-Forum gelöst! For Each Line As String in IO.File.ReadAllLines("Pfad\Datei.txt") If Line.Contains("Zeichenfolge") Then Label1.Text = Line End If Next

Verfasst am: 09.02.2011, 11:13 Aufrufe: 395

FileStream("C:\Temp\2.txt", IO.FileMode.

Verfasst am: 08.01.2011, 21:31 Aufrufe: 341

Verfasst am: 02.01.2011, 08:42 Aufrufe: 354

... ufigsten 2er Kombis aus dieser Datei sind ??? Beispiel zu der ersten Reihe: 0,0,5,7,12,25,34 ergibt die 2er Kombis - ohne nuller: Hat eine 2er-Kombi eine Null - dann braucht sie nicht berücksichtigt werden !!! 5,7 5,12 5,25 5,34 7,12 7,25 7,34 12,25 12,34 25,34 und dies bei jeder Reihe machen und dann ermitteln - wie oft welche 2er Kombis in der gesamten Datei vorkommen Ausgabe wieder als txt ...

Verfasst am: 21.12.2010, 10:46 Aufrufe: 394

Verfasst am: 01.12.2010, 18:37 Aufrufe: 509

Verfasst am: 11.11.2010, 16:46 Aufrufe: 657

My.Computer.FileSystem.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\textnew.txt", (str)) der fehler wird in (str)) ANGEZEIGT Sad

(

Verfasst am: 11.11.2010, 08:32 Aufrufe: 657

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click dim str as String for i = Text2.Text to Text3.Text str = str & text1.Text & i next My.Computer.FileSystem.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\textnew.txt", (str)) end sub und?? funktionie ...

Verfasst am: 10.11.2010, 19:53 Aufrufe: 657

Object, ByVal e As System.EventArgs) Handles Button1.Click My.Computer.FileSystem.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\textnew.txt", (Me.TextBox1.Text & Me.TextBox2.Text & vbNewLine), (Me.TextBox3.Text & vbNewLine)) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ...

Verfasst am: 08.11.2010, 07:26 Aufrufe: 571

hi schau ihn dir mal an... ich hab ihn mir nicht angesehen weis daher auch nicht ob der zu gebrauchen ist ansonsten was vl einfacher wäre wenn du die db.txt auf deinen ftpserver lädst und sobald das prog gestartet wird läder es die db.txt runtern und liest sie ein beim beenden ... wird datei wieder ins netz gestellt lg

Verfasst am: 07.11.2010, 12:42 Aufrufe: 542

Jetzt habe ich doch noch eine weitere Frage dazu: Mein Code zum Versenden einer Datei über ein html Formular mit VB sieht wie folgt aus: Private Sub cmdUpload_Click() Dim aPostData() As Byte Dim vPostData As Variant Dim vUrl As Variant Dim vHeaders As Variant Dim strText As String Dim strContentHeader As String Dim strBody As String Dim nFile As Integer Me.txtFile1.Text = "D& ...

Verfasst am: 05.11.2010, 22:03 Aufrufe: 571

txt" For Input As #ff While Not EOF(ff) Line Input #ff, strline linecount = linecount + 1 ReDim Preserve sLines(linecount) sLines(linecount) = strline Wend Close #ff nun will ich aber die liste nicht immer mit geben und wollte sie halt als Ressource hinzufügen, aber wie kann ich die liste dann wieder in das string array schreiben? Am liebsten wäre mir d ...

Verfasst am: 04.11.2010, 07:27 Aufrufe: 657

Verfasst am: 25.10.2010, 09:56 Aufrufe: 551

Verfasst am: 16.10.2010, 16:57 Aufrufe: 561

EventArgs) Handles Button1.Click Dim request as system.net httpwebrequest = system.net.httpwebrequest.create("http://h1.ripway.com/ExeGuiD/versioninfo.txt ") Dim response As System.Net.HttpWebResponse = request.getresponse() Dim sr As System.IO.screamreader = New System.IO.StreamReader(response.GetResponseStream()) Dim newestversion ...

Verfasst am: 29.09.2010, 11:50 Aufrufe: 555

gib den text in einer txt datei aus und diese öffnest dann mit shell ist zwar nicht ganz das was du suchst aber würde acuh gehen lg

Verfasst am: 07.09.2010, 15:03 Aufrufe: 1249

kein problem wenn du dein prog schliest lässt du deine 5 einträge in eine textbox schreiben und beim start liest du sie wieder ein in etwa so Private Sub Form_Load () Dim sString As String Open "C:\meinePfade.txt" For Input As #1 For i = 0 To 4 Line Input #1, sString txt_pfad(i).Text = sString Next Close #1 end sub Private Sub Fo ...

Verfasst am: 05.08.2010, 09:20 Aufrufe: 865

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:32 Aufrufe: 865

txt" For Input As #1 For i = 1 To 990628 Input #1, sstr(i) sSum(CCur(sstr(i))) = sSum(CCur(sstr(i))) + 1 Next Close #1 Dim A1() ReDim A1(0) Dim A2() ReDim A2(0) Dim A3() ReDim A3(0) Dim A4() ReDim A4(0) Dim A5() ReDim A5(0) Dim A6(&# ...

Verfasst am: 05.08.2010, 07:47 Aufrufe: 865

Verfasst am: 05.08.2010, 07:24 Aufrufe: 865

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: 05.08.2010, 07:09 Aufrufe: 865

Verfasst am: 04.08.2010, 10:32 Aufrufe: 865

Verfasst am: 04.08.2010, 07:38 Aufrufe: 865

Verfasst am: 03.08.2010, 14:30 Aufrufe: 865

Verfasst am: 03.08.2010, 14:00 Aufrufe: 865

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, 13:31 Aufrufe: 865

Verfasst am: 03.08.2010, 13:12 Aufrufe: 865

Verfasst am: 03.08.2010, 12:51 Aufrufe: 865

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, 12:36 Aufrufe: 865

Verfasst am: 03.08.2010, 12:12 Aufrufe: 865

Verfasst am: 03.08.2010, 11:51 Aufrufe: 865

Verfasst am: 03.08.2010, 10:48 Aufrufe: 865