vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Visual-Basic Einsteiger
Re: Textbox speichern mit Formatierung 
Autor: brave@heart
Datum: 10.07.03 22:08
[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=000080]For [/color][color=000000]i = 0 _
  [/color][color=000080]To [color=000080]UBound[/color][color=000000](zeile) _
  [/color][color=000000]- 1 [/color]
[color=000000]        zeile(i) = " " & Left(zeile(i), 39) [/color]
[color=000000]        [/color][color=000080]If [/color][color=000000]Len(zeile( _
  i)) < 40 [/color][color=000080]Then [/color]
[color=000000]            zeile(i) = zeile(i) & Space(40 - Len(zeile(i))) _
[/color]
[color=000000]        [/color][color=000080]End If [/color]
[color=000000]    [/color][color=000080]Next [/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 Formatierung688Ctrl-Alt-Del09.07.03 14:35
Re: Textbox speichern mit Formatierung374Ctrl-Alt-Del09.07.03 14:46
Re: Textbox speichern mit Formatierung438Ctrl-Alt-Del09.07.03 15:15
-AKTUELL-393Ctrl-Alt-Del09.07.03 16:00
Re: Textbox speichern mit Formatierung368brave@heart09.07.03 21:31
Re: Textbox speichern mit Formatierung359Ctrl-Alt-Del10.07.03 08:29
Re: Textbox speichern mit Formatierung337brave@heart10.07.03 22:08
Re: Textbox speichern mit Formatierung372Ctrl-Alt-Del11.07.03 11:13
Nachtrag356Ctrl-Alt-Del11.07.03 11:16
Re: Nachtrag1401Ctrl-Alt-Del11.07.03 14:43
Re: Nachtrag1475brave@heart12.07.03 12:51
Re: Nachtrag1419Ctrl-Alt-Del14.07.03 08:25
Re: Nachtrag1385brave@heart15.07.03 19:20
Re: Textbox speichern mit Formatierung361.: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-2025 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