Supportnet / Forum / Datenbanken

Hallo Wollte schon lange mal fragen welche Zeichenkombination man im Suportnet benutzen muß um ein Hochkomma darstellen zu können? Danke struppi

Hallo Struppi,

für das Hochkomma sieht HTML die folgende Maske vor:

& prime;

... wobei das Leerzeichen zwischen & und prime; entfernt werden muss, ansonsten wäre die o.g. Zeile selbst zum ′ mutiert. Es sieht zwar etwas schräg aus, aber es ist definitiv das Hochkomma.

Gruss
PotzBlitz

Es geht leider nicht anders, da das Forum ja über ein bestimmtes Programm läuft. Diese Programmiersprache interpretiert das Apostroph als Sonderzeichen, nämlich zum Trennen von Strings. Um das zu verhindern, wird es im Text gefiltert.

Himmel hilf, krieg ich denn meine alte EMail-Adresse denn nie los? Kaum lösche ich Cookies, schon ist sie wieder da...

Danke.. gleich mal probieren:
′_′_′_′_′_′ das ist ja prime!:-)
gruß struppi

Grüß Dich, Struppi :-))

es geht noch etwas einfacher (hat sich schon bewährt).

Den Accent ´aigu´ oder `graph` auf der Tastatur mit anschließender Leertaste.

^``~´´^
´ ° | ° ` --> Struppi ? ;-)
` ~ ~ ´

Gruß
sicci

Der Accent ist allerdings kein Apostroph. Und so genau sollte man doch sein, oder?

vorschlag :

änderung von
CStr(Replace(Request.Form("message"),"'",""))

in
CStr(Replace(Request.Form("message"),"'","'"))

Nö, aths,

find ich gar nicht. Wäre bei den eingschränkten Möglichkeiten der Form der SN-Postings kleinlich, oder?

Viel wichtiger fänd ich eine gescheite Möglichkeit zum Einstellen von Code in ordentlicher Form, denn dessen Lesbarkeit wird durch die SN-Form stark eingeschränkt ..

s´grüßt
sicci

wobei auffällt das man ' schreiben muß da er scheinbar bei jeder stufe des abschickens das ' in ' umwandelt und dann beim speichern ein error kommen kann.
also vorsicht, sonst kann man neu schreiben.

Hallo Sicci,

... @@@
@@@@@
@...´°|°`...@
@!....Ö....!@
@...`---´...@
.@...|..|....@
____________
Kaiserin SICCI

Stehender Beifall zum letzten Beitrag:-)
Dummerweise muß ich vorhandene Code immer erst umwandeln damit Kommentarzeilen nicht mit den Befehlen verschmelzen. Hab schon überlegt ob ich nicht ein Script schreibe, das den Code extra fürs Supportnet umwandelt.
@Hoheit...hochachtungsvoll..
Euer struppi;-)

Hihihiiiilfe ! - ich muß meinen Namen ändern, sonst krieg ich die aufsteigende Röte nicht mehr weg ......

aber, wenn ich´s mir so überleg:

Struppi, darf ich Sie speziell (natürlich auch einige andere noch anzuschreibende hochgeehrte S(N)chreiberlinge) zum nächsten Hof-Workshop für SN-relevante Tehmen einladen?

Den Abschluß bildet die Krönung und Aufnahme bei Hofe aller Teilnehmer, womit auch die Diskussionen um member-points ein Ende haben werden, denn es wird ja dann die aussagekräftigeren Krönchen geben.

;-)))))))))))))
demutsvoll
sicci

Das ich das noch erleben darf, Pseudografik im 21 Jahrhundert ;o).
Ne mal im Ernst, das mit dem Hochkomma funzt nicht bei mir. Ich sehe hier nur die Vierecke (also nicht darstellbare Zeichen). Muß ich halt weiter mit ´ vorliebnehmen?

Gruß
Eure Durchlauchtigkeit
Jens

Hallo
Hab mal ein VB-Script geschrieben mit dem man das Zeichen ′ umwandeln kann. Hier muß auch noch im Code das Leerzeichen zwischen & und prime; gelöscht werden!!
Den Code in einen Texteditor einfügen, Leerzeichen zwischen & und prime; löschen und das ganze als Irgendwas.vbs speichern.
Einfach Textdatei auf das Script ziehen und es entsteht die gewandelte Version.
---------------------------------------

set args = WScript.Arguments
if args.count = 0 then
msgbox "Zum codieren muß eine Textdatei auf das Script gezogen werden"
WScript.Quit
else
datei = args(0)
end if
Set fso = CreateObject("Scripting.FileSystemObject")
set copy = fso.OpenTextFile(datei,1)
set Ifile = fso.Getfile(datei)
Pfad = Ifile.ShortPath
daten = copy.ReadAll
copy.close
for i = 1 to len(daten)
zeichen = mid(daten,i,1)
if Zeichen = chr(39) then
zeichen ="& prime;" ′<HIER LEERZEICHEN LÖSCHEN!
end if


text = text & zeichen

next
Set file = fso.CreateTextFile(Pfad & "PRIME.txt",1)
file.write text
file.close
---------------------------------------
viel Spaß
struppi

Grüezi Struppi

Sagenhaft, es funktioniert. Ich weiss zwar nicht weshalb, aber es funktioniert tatsächlich.
Meine Ehrfurcht vor Deinen VB-Fähigkeiten steigt in abgrundtiefe Höhen. Ich überlege mir, ob ich Dir künftig Sie sagen soll, oder ob ich Sie weiterhin duzen darf.

Hier ein Test, geschrieben in Word, auf Dein VB-Skript gezogen und dann hierher kopiert.

Sub Suchen_AfterUpdate()
‘Einen allfälligen Filter löschen
DoCmd.ShowAllRecords
End Sub


In Ehrfurcht erstarrt, grüsst Dich
Köbi

Hallo Köbi
Ist ja schön das es Dir gefällt.
Probier das mal:

set shell = createObject("Wscript.Shell")
set word = createObject("word.Application")

 with word
   .visible = false
   .Documents.Add
   set Document = .ActiveDocument
   .selection.paste
 end with
Document.select
Daten = word.WordBasic.Selection

Daten = Replace(Daten,chr(39),"& prime;") ′Hier wieder Leerzeichen löschen
Daten = Replace(Daten,chr(32),"& nbsp")   ′Hier auch Leerzeichen löschen
 

word.ActiveWindow.ActivePane.selection = Daten
word.ActiveWindow.ActivePane.selection.copy 
word.quit
set Document = Nothing
set word = nothing
shell.sendkeys("N")
set shell = Nothing
---------------------------------------
Diesen Code auch als VBS speichern.
Jetzt kannst Du einen beliebigen Text mit strg + c in den Zwischenspeicher kopieren. Danach führst Du das Skript aus. Jetzt sollte die formatierte Version im Zwischenspeicher sein und kann direkt ins SN eingefügt werden (Diesmal auch mit erzwungenen Leerzeichen! wie Du an den Einrückungen oben sehen kannst)
gruß struppi

Sub Suchen_AfterUpdate()
‘Einen allfälligen Filter löschen und
‘den mit dem Steuerelement übereinstimmenden Datensatz suchen.
DoCmd.ShowAllRecords
Me.RecordsetClone.FindFirst "[BuchNr] = " & Me![Suchen]
Me.Bookmark = Me.RecordsetClone.Bookmark
Me.Suchen.Value = Null

End Sub

Hoppla
da ist mir doch der Test zu schnell entwischt.

Wie Ihre Merkwürden, struppi, sicher bemerkt haben, funktioniert auch diese Version.
Meine Wenigkeit fühlt sich zutiefst beglückt, Ihrer Hochwohlgeboren zu dieser ausserordentlichen Leistung zu gratulieren und den untertänigsten Dank meiner unwürdigen Person und aller SN-Untertanen auszusprechen.
Dieses Forum erhält durch die mentale und schriftliche Präsenz Ihrer Merkwürden Struppi einen Glanz und ein Auszeichnung, die es über ähnliche Foren hoch erhaben macht.

Ich schliesse mit dem Ihnen, hochwohlgeborene Merkwürden Struppi, gebührenden Dank, und verbleibe als ergebenster Diener

Köbi

Hallo Struppi,

wenn du so weitermachst, dann wirst du noch sämtliche Zeichen des Zeichensatzes ersetzen. :-)

Bevor du dir jetzt aber diese Mühe machst, biete ich dir und allen anderen Supportnet-Mitgliedern ein kleines Programm namens TextMask an, dass ich mir vor einiger Zeit zum Schreiben von Forenbeiträgen gebastelt habe. Damit lassen sich in einem beliebigen Text bequem rd. 150 Zeichen des ASCII-Zeichensatzes in HTML-verträgliche Masken umwandeln. Das ist übrigens auch das Geheimnis meiner bisherigen, korrekt eingerückten Code-Beispiele.

Download und Screenshot gibts hier:
http://wald.heim.at/schwarzwald/520600

Zugangsdaten:
Name: Supportnet
Kennwort: software

Der Server ist ausgesprochen langsam, wie ich im Nachhinein feststellen musste. Bis ich einen neuen Webspace-Provider ausfindig gemacht habe, dürfte das aber erstmal reichen. Bei einem neuen Server wird die neue Adresse dann in meiner Visitenkarte genannt.

Abschliessend sollte noch erwähnt werden, dass TextMask die Laufzeitversion von Visual Basic 6 benötigt.

Gruss
PotzBlitz

Hallo Köbi
Potzblitz noch einmal!! Gerade sitz ich hier vor meinem HTML-Buch und überlege was man noch für tolle Zeichen erzeugen kann, da raubt mir der @Potzblitz schon wieder die Show.! :-(
Ich mach gleich nicht mehr mit :°-(!
:-(Mmmmm...
OK!OK!...Dann lad ich das halt runter!!
Aber ich benutze es nicht!! Strafe muß sein!
:-)))))))))))
gruß struppi

Struppi: Was du für Zeichen erzeugen kannst, kannst du unter ►http://www.friedels-home.com/Unicode/Unianleitung.htm◄ nachsehen.

Grüezi

Ja, ja, Euer Merkwürden Struppi. Da werden doch die Relationen wieder hergestellt. Zuerst schlägt der PotzBlitz zu und dann stört der Friedel noch den Frieden.
Meine grenzenlose Bewunderung reduziert sich wieder auf den normalen gutbürgerlichen Durchschnitt, ☺
Ich glaube, ich bleibe weiterhin beim respektvollen Du und lasse die Schleimerei. Da kannst Du schwarz werden ☻

Mein Staunen bleibt aber weiterhin. Natürlich werde ich auch dem PotzBlitz sein Wunderprogramm herunterladen. Aber ich verspreche, ich werde es erst brauchen wenn es nötig ist.

Gruss an alle
Köbi

Hallo Struppi,

schon seit einiger Zeit hatte ich mir überlegt, ob ich das Programm nicht sowieso mal den Supportnet-Mitgliedern zum Download anbieten sollte. Das war jetzt also kein Versuch, dir die Show zu stehlen, sondern nur eine Frage der Zeit, und die war jetzt dank deines Beitrages "Hochkomma im SN" gerade günstig. :-)

Wer über VB6 verfügt, kann sich auch demnächst noch den dazugehörigen Quellcode runterladen. Ich mache vorher nur noch ein paar Kommentarzeilen reinsetzen und dann lade ich es hoch. Wer weiss, vielleicht gibts auch mal eine Access-Umsetzung. VB und VBA sind ja glücklicherweise sehr miteinander verwandt und speziell bei diesem Projekt zu fast 100% kompatibel.

Gruss
PotzBlitz

Grüezi

Struppi hat seine Version für die korrekte Darstellung des Hochkommas im SN überarbeitet und mich zu Testzwecken als Versuchskaninchen missbraucht.

Hier nun die Bestätigung, dass es klappt. Die folgende Prozedur wurde in Word (ab)geschrieben, mit Struppis Skript umgewandelt und schwupp di wupp........

Function YMDgone(argdate As Date)

′ ergibt die Differenz zwischen dem beim Aufruf übergebenen argdate und
′ dem aktuellen Systemdatum in Jahren, Monaten und Tagen
′ Aufgerufen wird die Funktion mit z.B.: YMDgone([Geburtsdatum])

   Dim Ygone As Integer, Mgone As Byte, Dgone As Byte
   If IsNull(argdate) Or argdate > Date Then Exit Function
   Ygone = DateDiff("yyyy", argdate, Date) + Int(Format(Date, "mmdd") < Format(argdate, "mmdd"))
   Mgone = Int((DateDiff("m", argdate, Date) + Int(Format(Date, "dd") < Format(argdate, "dd")))) Mod 12
   If Day(argdate) <= Day(Date) Then
      Dgone = Format(Date, "dd") - Format(argdate, "dd")
   Else
      Dgone = Day(DateSerial(Year(argdate), Month(argdate) + 1, 0)) - Day(argdate) + Day(Date)
   End If
   YMDgone = Ygone & " Jahr" & IIf(Ygone = 1, " ", "e ") _
   & Mgone & " Monat" & IIf(Mgone = 1, " ", "e ") _
   & Dgone & " Tag" & IIf(Dgone = 1, " ", "e")
   
   End Function

Nun existieren also zwei Versionen. Jene von Struppi und jene von PotzBlitz.
Damit dürfte künftig mindestens die Darstellung von Code im SN korrekt sein. Vom Inhalt zu reden, getraue ich mich allerdings nicht.:-))

Gruss und besten Dank an struppi und PotzBlitz.
Köbi

Komisch, bei mir werden immer noch so komische Kästchen angezeigt, woran liegt das ??? Hab ich ne falsche Schrift eingestellt?

Gruß
TG

Hallo TruckingGrizzly,

das deutet in der Tat drauf hin, dass du nicht die richtige Schriftart hast. Welches Betriebssystem hast du denn? Das letzte Mal habe ich die "komischen Kästchen" bei Windows 95 gesehen...

Gruss
PotzBlitz

Ich habe Win98, wahrscheinlich eine der ersten Versionen(04.10.1998). Wollte mir schon seit langem WinME zulegen, weiss aber nicht, ob ich die Sondertasten für mein DexxaKeyboard unter ME definierbar sind. Sonst läuft ja auch alles relativ stabil...

Gruß
TG

Hallo TruckingGrizzly,

die genannte Version ist die erste Ausgabe von Windows 98. In dieser Version dürfte noch die normale Arial-Schriftart vorhanden sein, die hier im Supportnet verwendet wird. Bei späteren Windows-Versionen kamen Schriftarten mit einem grösseren Zeichensatzumfang dazu (Arial mit 267 KB und Arial Unicode mit 23 MB!).

Ob man bei deinem Windows die neueren Schriftarten nachrüsten kann, weiss ich leider nicht. Im schlimmsten Fall wirst du solange noch Kästchen sehen, wie du noch Windows 98 Erste Ausgabe drauf hast. :-(

Gruss
PotzBlitz

Wo hast du das her? Hast du einen Link, wo in etwa steht:
1. Version vom xx.xx.xxxx
2. Version vom yy.yy.yyyy

Gruß
TG

Speziell diese Info hatte ich noch im Hinterkopf. Im Internet gibts aber genug Listen mit den verschiedenen Windows-Versionen und deren Versionsnummern, z.B. bei Microsoft selbst:

http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q158238

oder noch umfangreicher:
http://www.phm.lu/Documentation/Windows/Versions.asp

Gruss
PotzBlitz

• Suche in Access Datenzugriffseite
• MS Works-Kalender lässt sich nicht öffnen, bricht mit Fehlermeldung ab
• Automatische Datumeingabe in Access
• Access berichte filter
• Access Untertabelle