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

Suche Visual-Basic Code
Re: Stringverarbeitung 
Autor: michi-bib
Datum: 09.12.02 13:33

Hallo erstmal,

dein Prog kann so eigentlich nicht gelaufen sein, da du switch als
Variable benutzt und das ist ein reserviertes Wort. Hab dann wohl
1 bis 2 Min gedebuggt und dann gesagt neu schreiben ist einfacher.
Dies ist dabei herausgekommen, wenn du nicht selbst inzwischen eine
Lösung gefunden hast.

Private Sub Command2_Click()
    Dim sOldDatum As String
    Dim sDatum As String
    Dim sText As String
    Dim sHTML As String
    Dim s() as String
    Dim lAnz As Long
    Dim i As Long
    Dim bFound1 As Boolean
    Dim bFound2 As Boolean
    Dim bFirst As Boolean
    Dim bEnde As Boolean
 
    v = "01/00 bis 03/02 Firma xz, Mitarbeiter sonstwas 12/98-12/99 Firma xy," & _
      "Mitarbeiter Kundenschulung 01/00 bis 03/01 Firma xz, Mitarbeiter" & _
      "sonstwas 12/01-12/02 Firma abc, Mitarbeiter Kundenschulung"
 
    s = Split(v, Space(1))
 
    For i = 0 To UBound(s)
        bFound1 = s(i) Like "##[/]##[-]##[/]##"
        bFound2 = s(i) Like "##[/]##"
        If bFound1 Then
            sDatum = s(i)
            bEnde = True
            If i = 0 Then
                bFirst = True
            Else
                bFirst = False
            End If
        ElseIf bFound2 Then
            lAnz = lAnz + 1
            If lAnz = 1 Then
                sDatum = s(i)
            End If
            If lAnz = 2 Then
                If i = 2 Then
                    bFirst = True
                Else
                    bFirst = False
                End If
                sDatum = sDatum + s(i)
                bEnde = True
                lAnz = 0
            End If
        ElseIf UCase(s(i)) = "BIS" Then
            If lAnz = 1 Then
                'damits einheitlich wird
                sDatum = sDatum + "-"
            Else
                sText = sText + s(i) + Space(1)
            End If
            bEnde = False
        ElseIf s(i) <> vbNullString And Not bFound1 And Not bFound2 Then
            sOldDatum = sDatum
            sText = sText + s(i) + Space(1)
            bEnde = False
        End If
        If bEnde And Not bFirst Then
            sText = Left(sText, Len(sText) - 1)
            sHTML = sHTML + "<tr><td class=nt WIDTH=35% VALIGN=TOP>" + _
              sOldDatum + "</td><td class=norm WIDTH=65% VALIGN=TOP>" + _
              sText + "</td></tr>"
            sText = vbNullString
        End If
    Next i
    sText = Left(sText, Len(sText) - 1)
    sHTML = sHTML + "<tr><td class=nt WIDTH=35% VALIGN=TOP>" + sDatum + _
      "</td><td class=norm WIDTH=65% VALIGN=TOP>" + sText + "</td></tr>"
 
   'html = ToolBox.Replace(html, "<!-- Projekte -->", "<tr><td class=nt" & _
     "WIDTH=35% VALIGN=TOP>" & datum & "</td><td class=norm WIDTH=65%" & _
     "VALIGN=TOP> </td></tr><!-- " & rs!Uk_Name_Vorlage & " -->")
End Sub
Was dein Toolbox-Objekt ist, weiß ich nicht. Deshalb bastle ich nur das HTML für die Tabelle zusammen.

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Stringverarbeitung214reemmeel03.12.02 15:41
Re: Stringverarbeitung477michi-bib09.12.02 13:33
Re: Stringverarbeitung78reemmeel10.12.02 10:43
Re: Stringverarbeitung386michi-bib10.12.02 11:29
Danke, danke!!!79reemmeel10.12.02 11:51

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