Pfade aus String auslesen

hundehausen · 7. März 2011, 18:58

Liebe Gemeinde,

Ich habe einen String (MyFiles) und in jeder Zeile steht ein Pfad zu einer Datei.
Eine Schleife soll jede Zeile auslesen und die Datei in ein anderes Verzeichnis kopieren.
Ich habe es mit

Do Until ... Loop und dem StreamReader() versucht, aber ich komme nicht weiter.
Hat jemand eine Idee? Am besten einen Code, da ich Anfänger bin.

Danke

SmaSh-MaN2k · 7. März 2011, 21:14

Zeig doch mal deinen Code, mit Streamreader bist du schonmal auf dem richtigen Weg...

MfG

hundehausen · 7. März 2011, 21:16

Ich habe ehrlich gesagt keinen Schimmer, was ich damit machen soll

SystemUnknow · 7. März 2011, 21:25

vbarchiv.net/forum/id10_i55443…eren-mit-progressbar.html

Dodo · 7. März 2011, 21:25

ööhm vielleicht solltest du den Stirng vorher Splitten, damit jede Zeile in einem Array Element ist.

Und nur weil du Anfänger bist bekommste sicher kein Copy & Paste Code

denn das wäre genau das falsche, dadruch lernst du nämlich nichts. Sondern wenn du dir etwas SELBST erarbeitest und du wirst von uns auf die richtige Fährte geleitet und zwar mit ein paar Fachbegriffen wie z.B. Split() nun ist es an dir damit etwas vernünftiges anzufangen und dadruch lernt man nämlich am besten. Nicht wenn man Code zusammen kopiert oder aus Tutorials abschreibt.

SystemUnknow · 7. März 2011, 21:29

hier ein schönes beispiel mit Linq:
vb-fun.de/cgi-bin/forumarchiv.…eseite&nummer=37976#Atext

hundehausen · 7. März 2011, 21:54

Eine Progressbar brauche ich nicht.
Ok, ich muss also den mehrzeiligen String splitten, sodass jede Zeile einen eigenen String / eigenes Array hat, richtig?
Und dafür habe ich folgendes versucht:

VB.NET-Quellcode

Dim pfad As String
pfad = Split(MyFiles, vbCrLf)

Beim MyFiles gibt es einen Fehler "Der Wert vom Typ "1-dimensinoales Array von String" kann nicht in "String" konvertiert werden."
Ich hätte trotzdem gerne einen Code

Turtle10 · 7. März 2011, 22:07

Hi,

VB.NET-Quellcode

Dim pfad() As String

MfG
Turtle10

SystemUnknow · 7. März 2011, 22:08

Stichwort: Datei/String zeilenweise einlesen << foren suche

hundehausen · 7. März 2011, 22:18

VB.NET-Quellcode

Private Sub Form1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop
Dim filedrops() As String = e.Data.GetData(DataFormats.FileDrop)
Dim MyFiles() As String
Dim i As Integer
MyFiles = e.Data.GetData(DataFormats.FileDrop)
For i = 0 To MyFiles.Length - 1
ListBox1.Items.Add(MyFiles(i))
Next
Dim pfad() As String
Dim sr As New StreamReader(fs)
Do Until sr.Peek() = -1
pfad = Split(MyFiles(i), vbCr)
FileCopy("pfad", "\Documents\My Dropbox\public")
Loop
sr.Close()
End Sub

Ich habe mir selber das zusammengebastelt. Hier habe ich teilweise den Code dafür:
6.3.1 Lesen aus einer Textdatei
Jetzt muss ich noch fs deklarieren, doch als was?

ErfinderDesRades · 8. März 2011, 13:23

eigentlich wollte ich das verbessern, aber das scheint mit Strict Off geproggt, und damit hat man so viele mögliche Fehlerquellen, dassichmich damit doch lieber eher nicht auseinandersetze.

gugge Warum Option Strict On?

hundehausen · 8. März 2011, 14:35

Ist mit Option Strict On und Off programmiert worden, also habe beides probiert. Im Moment ist es noch eingeschaltet. Kann mir jemand helfen?

link_275 · 8. März 2011, 14:40

fs ist eine Datei. Das müsste dir auch IntelliSense verraten haben oder nicht?

link_275

hundehausen · 8. März 2011, 14:42

Ja hat es vorgeschlagen.

link_275 · 8. März 2011, 14:44

Okay, weiter .... Was ist nun dein Problem genau? Deinetwegen werden noch unsre Beiträge gelöscht, weil man dir alles aus der Nase zieh'n muss und du pro Satz einen Beitrag beanspruchst

link_275

hundehausen · 8. März 2011, 14:47

Wann das so ist, tut's mir leid.
Mein Problem ist, dass ich nicht weiß, welches Code ich brauche,
um einen String in dem ein Pfad zu einer Datei liegt, dazu verwende um die Datei zu kopieren.

ErfinderDesRades · 8. März 2011, 14:49

VB.NET-Quellcode

Imports System.IO
Public Class Form1
Private Sub ListBox1_DragOver(ByVal sender As Object, ByVal e As DragEventArgs) _
Handles ListBox1.DragOver
If e.Data.GetDataPresent(DataFormats.FileDrop) Then e.Effect = DragDropEffects.Copy
End Sub
Private Sub ListBox1_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles ListBox1.DragDrop
Dim pathes = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())
For Each s In pathes
ListBox1.Items.Add(s)
Next
For Each s In pathes
File.Copy(s, Path.Combine("\Documents\My Dropbox\public", Path.GetFileName(s)))
Next
End Sub

Dazu Listbox1.AllowDrop=true einstelen, im designer

hundehausen · 8. März 2011, 14:55

Juhu Danke ErfinderDesRades!
Der Code funktioniert, jetzt verstehe ich es auch.
Vielen Dank.
Bei mir lautet der Pfad
C:\Users\hundehausen\Documents\My Dropbox\Public
Wie kann ich das hundehausen ersetzen, dass es für jeden User bzw. Computer funktioniert?
Bei Mac nimmt man ~

link_275 · 8. März 2011, 14:57

Einfach

VB.NET-Quellcode

Environment.UserName
'oder
My.User.Name
'oder
Environ("username")
'dir stehen aber unter
My.Computer.FileSystem.SpecialDirectories
'jede Menge vorgefertigter Spezielpfade zur Verfügung, schau dir das mal genauer an ;)

link_275

scientia · 8. März 2011, 15:02

Oder :

VB.NET-Quellcode

Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\My Dropbox\Public"

Pfade aus String auslesen

Pfade aus String auslesen

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

3 Benutzer haben hier geschrieben