Register for your free account! | Forgot your password?

Go Back   elitepvpers > The Black Market > elite*gold Trading
You last visited: Today at 23:53

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



[S]uche ein paar Zeilen Visual Basic Code [B]iete 100 e*gold!!!

Discussion on [S]uche ein paar Zeilen Visual Basic Code [B]iete 100 e*gold!!! within the elite*gold Trading forum part of the The Black Market category.

Reply
 
Old   #1
 
elite*gold: 2049
The Black Market: 350/0/0
Join Date: May 2012
Posts: 4,593
Received Thanks: 441
[S]uche ein paar Zeilen Visual Basic Code [B]iete 100 e*gold!!!

Ja was ich suche ist ne Source die folgendes macht:

eine .txt datei auslesen nach folgendem Schema:

Die Textdatei ist in diesem Format gefüllt:

Wort1:Wort2:Wort3

Der Source soll diese zeilen zerlegen & in 3 Variablen speichern:

1. Variable = Wort1
2. Variable = Wort2
3. Variable = Wort3

Und wenn er mit einer Zeile fertig ist macht er die nächste, bis die txt komplett gelesen wurde.

Biete euch für eine komplett funktionierende Source 100 e*gold!!!

Bitte nur per PN



maxasoft is offline  
Old 11/15/2012, 20:24   #2 Trade Status: Unverified(?)
 
elite*gold: 0
The Black Market: 471/0/0
Join Date: Apr 2010
Posts: 9,695
Received Thanks: 1,809
PHP Code:
with new streamreader("pfad")
   do
      
dim zeile as string = .readline
      dim variable1 
as string zeile.split(":")(0)
      
dim variable2 as string zeile.split(":")(1)
      
dim variable3 as string zeile.split(":")(2)
   
loop until .endofstream
end with 


Kraizy​ is offline  
Thanks
3 Users
Old 11/15/2012, 21:12   #3
 
elite*gold: 2049
The Black Market: 350/0/0
Join Date: May 2012
Posts: 4,593
Received Thanks: 441
Sry hab schon nen andern mit Split von Heaven bekommen:

PHP Code:
Try
            For 
Each Text As String In IO.File.ReadAllText("C:\Users\Public\Test.txt").Split(vbNewLine)
                
Dim tmp() As String Split(Text":")
                
Dim first As String tmp(0)
                
Dim second As String tmp(1)
                
Dim third As String tmp(2)
            
Next
        
Catch ex As Exception
            MessageBox
.Show(ex.Message.ToString(), "Error")
        
End Try 
aber danke für deine Mühe.
maxasoft is offline  
Reply



« [B] Teklab Lizenz [S] Egold | Suche hilfe »

Similar Threads Similar Threads
[S]uche Visual Basic Sourcecodes [Biete] e*gold
10/23/2012 - elite*gold Trading - 18 Replies
Hey Leute ;) Ich suche zur Zeit Visual Basic Code für meine Codesammlung. Sagt mir einfach was ihr gemacht habt und was ihr für den Sourcecode wollt ;)
[S]uche Visual Basic Programmierer [B]iete 40% Umsatz
11/04/2011 - elite*gold Trading - 3 Replies
Hallo, ich suche jemanden der sich gut mit Visual Basic auskennt. Habe vor einen Einheiten Umrechner zu erstellen. Design und ein paar Forms sind vorhanden. Auch die bisherigen Button funktionieren. Nun muss nur noch jemand machen, dass wenn man was auswählt und ne Zahl eingibt und eine Einheit wo es hinsoll, dass das Ergebnis errechnet und angezeigt wird. Werde das Programm dann hier verkaufen. Biete euch 40% des Umsatzes! Skype gibts auf Anfrage via PN.
Visual Basic - Code aufrufen?
03/24/2010 - .NET Languages - 2 Replies
Tag, ich habe mal ne kleine Frage zu VB: Wenn ich eine Form erstelle gibt es ja einen Code dazu. Bisher habe ich es nur geschafft diesen aufzurufen, in dem ich die Form abgespeichert habe und dann auf "Form1.Designer.vb" geklickt habe. Nun möchte ich wissen, ob das auch schneller geht, dass ich nicht immer alles abspeichern muss. Danke im Vorraus.
Code in C# or visual basic with nuconnector
12/15/2008 - Silkroad Online - 8 Replies
Hi all, Im new in this forum but not in silkroad :) I 've looking for tutorials or some example to make an application with C# or visual basic, using nuconnector to get some info from the game. I've searched in the forum, in google too but I can't find anything. I will agree any info :) thanks a lot :)
Disconect code for Visual Basic
06/24/2007 - Conquer Online 2 - 2 Replies
.



All times are GMT +1. The time now is 23:53.


Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

BTC: 33E6kMtxYa7dApCFzrS3Jb7U3NrVvo8nsK
ETH: 0xc6ec801B7563A4376751F33b0573308aDa611E05

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2020 elitepvpers All Rights Reserved.