vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Textbox speichern mit Formatierung 
Autor: brave@heart
Datum: 09.07.03 21:31
[color=000080]Private Sub [/color][color=000000]Command1_Click() [/color]
[color=000000]    [/color][color=000080]Dim [/color][color=000000]zeile() _
  [/color][color=000080]As String [/color]
[color=000000]    [/color][color=000080]Dim [/color][color=000000]file _
[/color][color=000080]As Integer [/color]
[color=000000]    [/color][color=000080]Dim [/color][color=000000]header _
[/color][color=000080]As String [/color]
[color=000000]     [/color]
[color=000000]    header = Chr(185) & Chr(153) & Chr(23) & Chr(224) & "   " _
  [/color]
[color=000000]    zeile = Split(Text1.Text, vbCrLf) [/color]
[color=000000]     [/color]
[color=000000]    CMDialog1.Filter = "Teletext Files (*.vts)|*.vts" [/color]
[color=000000]    CMDialog1.FilterIndex = 1 [/color]
[color=000000]    CMDialog1.Action = 2 [/color]
[color=000000]     [/color]
[color=000000]    file = FreeFile [/color]
[color=000000]    [/color][color=000080]Open _
  [/color][color=000000]CMDialog1.FileName [/color][color=000080]For Output As _
  [/color][color=000000]#file [/color]
[color=000000]    [/color][color=000080]Print [/color][color=000000]#file, _
header; [/color]
[color=000000]    [/color][color=000080]For [/color][color=000000]i = 0 _
[/color][color=000080]To [color=000080]UBound[/color][color=000000](zeile) _
[/color][color=000000]- 2 [/color]
[color=000000]        [/color][color=000080]Print [/color][color=000000]#file, _
zeile(i) & Chr(i + 1); [/color]
[color=000000]    [/color][color=000080]Next [/color]
[color=000000]    [/color][color=000080]Print [/color][color=000000]#file, _
  zeile(UBound(zeile) - 1) & Chr(151); [/color]
[color=000000]    [/color][color=000080]Close [/color][color=000000]#file _
[/color]
[color=000080]End Sub [/color]

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Textbox speichern mit Formatierung641Ctrl-Alt-Del09.07.03 14:35
Re: Textbox speichern mit Formatierung341Ctrl-Alt-Del09.07.03 14:46
Re: Textbox speichern mit Formatierung402Ctrl-Alt-Del09.07.03 15:15
-AKTUELL-357Ctrl-Alt-Del09.07.03 16:00
Re: Textbox speichern mit Formatierung335brave@heart09.07.03 21:31
Re: Textbox speichern mit Formatierung324Ctrl-Alt-Del10.07.03 08:29
Re: Textbox speichern mit Formatierung303brave@heart10.07.03 22:08
Re: Textbox speichern mit Formatierung338Ctrl-Alt-Del11.07.03 11:13
Nachtrag321Ctrl-Alt-Del11.07.03 11:16
Re: Nachtrag1368Ctrl-Alt-Del11.07.03 14:43
Re: Nachtrag1434brave@heart12.07.03 12:51
Re: Nachtrag1377Ctrl-Alt-Del14.07.03 08:25
Re: Nachtrag1341brave@heart15.07.03 19:20
Re: Textbox speichern mit Formatierung328.:Solaris:.13.07.03 10:57

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel