MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 06.05.2004, 11:00   #1
Gast
Standard Bei Mid anstatt Zeichen=Text?

Hallo, ich habe folgenden Code:

Dim EinText, ZF1
EinText = Me!Zwischenablage
ZF1 = Mid(EinText, 5, 7)
Me!KaeferName = ZF1

Geht das auch mit Text statt Zeichen (Bei mir klappt es nicht)?

z.B.:

ZF1 = Mid(EinText, "Hallo", 7) ´zeige nach dem Wort "Hallo" die nächsten 7 Zeichen
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 06.05.2004, 11:04   #2
J_Eilers
MOF Guru
MOF Guru
Standard

Hi,

nein das geht nicht, aber du kannst mit InStr() den Inhalt durchsuchen:

Code:

Me!KaeferName = Mid(Me!Zwischenablage, InStr(1, Me!Zwischenablage, "Hallo", vbTextcompare) + 5, 7)

__________________

Bis denn dann
Jan


FAQ | relationale Datenbanken | Grundlagen | DBWIKI | Josef's Access Seite | Meine Homepage und Access | Abhängigkeiten | Suchen und Nachschlagen | Tab2Web |
SQL-Codes bitte formatieren und als Code posten. Danke!

Bitte keine Fragen als PN! Probleme gehören ins Forum und mit Feedback kann man sie auch lösen.
J_Eilers ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 06.05.2004, 11:12   #3
Gast
Standard Bei Mid anstatt Zeichen=Text?

Super, Danke!

Kann man auch nach dem 2ten (der Text Hallo kommt 2x vor) "Hallo" im Text suchen?
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 06.05.2004, 11:21   #4
J_Eilers
MOF Guru
MOF Guru
Standard

Ja kann man. Aber das muss dann etwas anders aussehen. Wenn es noch öfter vorkommt, sollte man sich Gedanken über eine Schleife machen.

Code:

Dim Text As String
Dim Ende As String
If Len(Nz(Me!Zwischenablage, "")) <> 0 Then
  Text = Me!Text
  Ende = InStr(1, Text, "Hallo", vbTextCompare)
  If Ende <> 0 Then
    Ende = Instr(Ende, Text, "Hallo", vbTextCompare)
  End If
End If

Me!Kaefer = Mid(Text, Ende + 5, 7)

__________________

Bis denn dann
Jan


FAQ | relationale Datenbanken | Grundlagen | DBWIKI | Josef's Access Seite | Meine Homepage und Access | Abhängigkeiten | Suchen und Nachschlagen | Tab2Web |
SQL-Codes bitte formatieren und als Code posten. Danke!

Bitte keine Fragen als PN! Probleme gehören ins Forum und mit Feedback kann man sie auch lösen.
J_Eilers ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.05.2004, 06:15   #5
Gast
Standard Bei Mid anstatt Zeichen=Text?

Hallo, leider klappt der letzte Code bei mir nicht. Als Ergebnis gibt der Code die entsprechenden Zeichenfolgenden nach dem ersten "Hallo".

P. S. Text = Me!Zwischenablage
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.05.2004, 06:58   #6
Gast
Standard Bei Mid anstatt Zeichen=Text?

Hat keiner eine Idee :-(
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.05.2004, 07:15   #7
J_Eilers
MOF Guru
MOF Guru
Standard

Code:

Dim Text As String
Dim Ende As String
If Len(Nz(Me!Zwischenablage, "")) <> 0 Then
  Text = Me!Text
  Ende = InStr(1, Text, "Hallo", vbTextCompare)
  If Ende <> 0 Then
    Ende = Instr(Ende + 5, Text, "Hallo", vbTextCompare)
  End If
End If

Me!Kaefer = Mid(Text, Ende + 5, 7)
Sorry, wenn auch ich mal schlafen oder essen, geschweige denn arbeiten muss.

__________________

Bis denn dann
Jan


FAQ | relationale Datenbanken | Grundlagen | DBWIKI | Josef's Access Seite | Meine Homepage und Access | Abhängigkeiten | Suchen und Nachschlagen | Tab2Web |
SQL-Codes bitte formatieren und als Code posten. Danke!

Bitte keine Fragen als PN! Probleme gehören ins Forum und mit Feedback kann man sie auch lösen.
J_Eilers ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.05.2004, 08:42   #8
Gast
Standard Bei Mid anstatt Zeichen=Text?

Wieso schlafen oder essen, heute arbeitet man bis zum umfallen :-))

Vielen Dank!!!

Gibt es zur der oben erwähnten Schleife irgendwo Infos für Anfänger?

Jetzt muss ich nach dem 5ten (der Text Hallo kommt 5x vor) "Beispiel" im Text suchen :-(
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.05.2004, 09:04   #9
Gast
Standard Bei Mid anstatt Zeichen=Text?

Müsste irgendwie:

Loop ??? ´ lasse nachfolgendes 5x durchlaufen



If Len(Nz(Me!Zwischenablage, "")) <> 0 Then
Text = Me!Text
Ende = InStr(1, Text, "Hallo", vbTextCompare)
If Ende <> 0 Then
Ende = Instr(Ende, Text, "Hallo", vbTextCompare)
End If
End If

Me!Kaefer = Mid(Text, Ende + 5, 7)
 
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 07.05.2004, 09:13   #10
J_Eilers
MOF Guru
MOF Guru
Standard

Versuchs mal damit (ungetestet!):

Code:

Dim Text As String
Dim Ende As String
Dim Counter As Byte
If Len(Nz(Me!Zwischenablage, "")) <> 0 Then
  Text = Me!Zwischenablage
  Ende = InStr(1, Text, "Hallo", vbTextCompare)
  Counter = 1
  If Ende <> 0 Then
    Do While Ende < Len(Text)
        Ende = InStr(Ende + 5, Text, "Hallo", vbTextCompare)
        Counter = Counter + 1
        If Counter = 5 Then
            Exit Do
        End If
    Loop
  End If
End If

Me!Kaefer = Mid(Text, Ende + 5, 7)
Es gibt Do...Loop, While...Wend Und For Each...Next, For i = 0 To x...Next i
Schleife. Alles innerhalb der Schleife wird so lange gemacht, bis das Ergebnis im Schleifenstart erbracht wird oder die Schleife zwischendurch beendet wird. Beenden kann man nur Do und For Schleifen. Wenn das 5. Hallo auch das letzte Hallo ist, könnte man das Beenden auch anders gestalten.

__________________

Bis denn dann
Jan


FAQ | relationale Datenbanken | Grundlagen | DBWIKI | Josef's Access Seite | Meine Homepage und Access | Abhängigkeiten | Suchen und Nachschlagen | Tab2Web |
SQL-Codes bitte formatieren und als Code posten. Danke!

Bitte keine Fragen als PN! Probleme gehören ins Forum und mit Feedback kann man sie auch lösen.
J_Eilers ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:09 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.