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-2025
 
zurück

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

Allgemeine Diskussionen
Re: Datei auslesen und speziell berarbeiten 
Autor: cndg
Datum: 16.11.03 00:49
Gerne.

Ganz wichtig: Bei meiner vorigen Antwort ist mir ein Fehler im VB-Code unterlaufen:
statt "For i = 0 To Len(HTMLCode) - 1" gehört natürlich "For i = 1 To Len(HTMLCode)".
Wenn ich im Code Fehler gemacht habe und du sie entdeckst, teile sie mir bitte mit, sofern du sie nicht schon selbst entfernen konntest. Ich habe den Code nämlich nicht mit VB ausprobiert, sondern direkt hier eingegeben.

Die SUPs ersetzt du wie folgt: 
Dim j As Long 'Das schreibst du am besten unter "Dim i As Long" (am Anfang des _
  Programms)
For i = 0 To VarCount - 1
  For j = 1 To Len(Vars(i)) - 5
    If LCase(Mid(Vars(i), j, 5)) = "<sup>" Then
      Vars(i) = Left(Vars(i), j - 1) & "^" & Right(Vars(i), Len(Vars(i)) - (j + _
        4))
    Else
      If LCase(Mid(Vars(i), j, 6)) = "</sup>" Then
        Vars(i) = Left(Vars(i), j - 1) & Right(Vars(i), Len(Vars(i)) - (j + 5))
      Else
        'Code für Mal-Zeichen
      End If
    End If
  Next j
Next i
Die Mals kannst du ähnlich ersetzen, nur musst du dabei nicht so umständlich vorgehen wie bei den SUPs, da ein "." gleich lang ist wie ein "*". Also statt dem Kommentar "Code für Mal-Zeichen" einfach die Überprüfung 
If Mid(Vars(i), j, 1) = "." Then
  Mid(Vars(i), j, 1) = "*"
End If
einfügen.

Die Zeichenketten, die jetzt in "Vars" gespeichert sind, kannst du jetzt natürlich nicht als Formeln in VB verwenden, sondern nur als Strings.

Ich hoffe ich habe nicht an deiner Problemstellung "vorbeiprogrammiert".

mfg cndg

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Datei auslesen und speziell berarbeiten611Insane.J14.11.03 00:16
Re: Datei auslesen und speziell berarbeiten420cndg15.11.03 13:30
Re: Datei auslesen und speziell berarbeiten413Insane.J15.11.03 21:21
Re: Datei auslesen und speziell berarbeiten400cndg16.11.03 00:49
Re: Datei auslesen und speziell berarbeiten349Insane.J16.11.03 22:25
Re: Datei auslesen und speziell berarbeiten356cndg16.11.03 22:44
Re: Datei auslesen und speziell berarbeiten418Insane.J17.11.03 09:16
Re: Datei auslesen und speziell berarbeiten342cndg17.11.03 15:40
Re: Datei auslesen und speziell berarbeiten394Insane.J17.11.03 16:26
Re: Datei auslesen und speziell berarbeiten370dbayer17.11.03 16:50
Re: Datei auslesen und speziell berarbeiten340Insane.J17.11.03 16:57
Re: Datei auslesen und speziell berarbeiten443cndg22.11.03 12:31
Re: Datei auslesen und speziell berarbeiten342cndg22.11.03 12:26

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