|
| Autor |
Nachricht |
AEROX
Newbie
Anmeldedatum: 29.08.2010
Beiträge: 10
|
Neues Textdokument erstellen ?
Verfasst am: 03.11.2010, 21:03 |
|
|
hallo ich möchte ein form erstellen mit der ich Textdokument mit dem von mir in der textbox angegebenen
namen start zahl und endzahl zum beispiel:
aerox1
aerox2
aerox3
aerox4
aerox5
aerox6
aerox7
aerox8
aerox9
aerox10
also soviele wie ich möchte es sollte dann das textdokument auf dem destop erstellen
bitte um hilfe bin noch nicht so fit mit visual basic
danke im vorraus |
|
| |
|
 |
christopher.g
Überflieger
Anmeldedatum: 03.05.2008
Beiträge: 565
|
Verfasst am: 04.11.2010, 08:27 |
|
|
schau dir doch ml die grundlagen an 
das was du brauchst ist die For schleife...
| Code: |
for i = txt_anfangszahl.Text to txt_endzahl.txt
open "C:\DeinOrdnerWoDuDeineTxtDateinHabenMöchtest\" & txt_dateiname.Text & i for Output as #1
Print #1, "Deinen Text den du drinstehen haben möchtest"
close #1
next
|
das ist zwar ein vb6 code aber so funktionierts
lg |
|
| |
|
|
AEROX
Newbie
Anmeldedatum: 29.08.2010
Beiträge: 10
|
Verfasst am: 10.11.2010, 20:53 |
|
|
danke dir für dein tip nur leider bin ich nicht weiter gekommen
bis jetzt habe ich es nicht geschaft mir der for schleife komm ich nicht klar!!  (
HALLO 1 bekomme ich mit dem code schonmal hin
mein code bis jetzt :
[code]Public Class Form1
Private Sub Button1_Click(ByVal sender As System.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 MyBase.Load
Dim Text As String = Me.TextBox1.Text & Me.TextBox2.Text & vbNewLine & Me.TextBox3.Text & vbNewLine
End Sub
End Class |
|
| |
|
|
christopher.g
Überflieger
Anmeldedatum: 03.05.2008
Beiträge: 565
|
Verfasst am: 11.11.2010, 09:32 |
|
|
hi
ich kann zwar kein vb.net und da hab ich was missverstanden...
aber die for schleife ist ganz einfach...
| Code: | 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?? funktioniert das? |
|
| |
|
|
AEROX
Newbie
Anmeldedatum: 29.08.2010
Beiträge: 10
|
Verfasst am: 11.11.2010, 17:46 |
|
|
[code]
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String
Dim i As Integer
For i = Me.Text2.Text To Me.Text3.Text
str = str & Me.Text1.Text & i
Next
My.Computer.FileSystem.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\textnew.txt", (str))
End Sub
End Class
Fehler 1 Fehler bei der Überladungsauflösung, da keine zugreifbare "WriteAllText" diese Anzahl von Argumenten akzeptiert.
My.Computer.FileSystem.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\textnew.txt", (str)) der fehler wird in (str)) ANGEZEIGT
( |
|
| |
|
|
christopher.g
Überflieger
Anmeldedatum: 03.05.2008
Beiträge: 565
|
Verfasst am: 12.11.2010, 22:11 |
|
|
gut wie du siehst ich kann kein vb.net
im notfall frag mal auf vb-paradise.de nach
da kann dir sicher geholfen werden
lg |
|
| |
|
|
Registrieren
Login
