PlanetSwitch Planet3DS PlanetVita PSP.de PlanetiPhone Classics Forum Handheld-Wiki

PGN-ID:[?] (Nicht eingeloggt)
Login
Registrieren
PlanetDS PlanetGameboy N-Page.de
portablegaming.de  

Zurück   portablegaming.de > PlaystationPortable Foren > Multimedia (PSP)


Multimedia (PSP) Du willst nicht nur Spielen sondern auch Filme, Musik und Photos auf deiner PSP abspielen? Hier ist der richtige Ort dafür.

Antwort
 
LinkBack Themen-Optionen Thema durchsuchen
Alt 27.01.2006, 12:37   #1
 
Registriert seit: 24.01.2006

guidops hat die Renommee-Anzeige deaktiviert

Standard Textdarstellung im Browser II

Ich habe mein Word Makro nochmal überarbeitet, um auch bei normaler Textgrösse die optimale Darstellung zu erzeugen. Außerdem sollte der Anzeigemodus auf "Smart-Fit" eingestellt werden, das sonst nur die ersten 60 Seiten angezeigt werden. Außerdem wird alle 8 Seiten der Seitenumbruch neu ausgerichtet. Viel Spaß damit:

Sub Umwandeln_TXT_TO_PSP()
Dim Zeile As String
Dim i
Dim leer
Dim x
Dim Durchgang
Dim d
Dim Gleich
Dim Seite
Dim ZeilenZähler
Dim AusgleichsZähler
Dim Wechsel

Selection.HomeKey unit:=wdStory

While x = 0
Anfang:
Selection.HomeKey unit:=wdLine
Selection.EndKey unit:=wdLine, Extend:=wdExtend
Zeile2 = Zeile
Zeile = Selection
If Zeile2 = Zeile Then Gleich = Gleich + 1
If Gleich = 20 Then
Selection.HomeKey unit:=wdStory
GoTo Anfang2
End If
If Len(Zeile) < 60 Then
Selection.EndKey unit:=wdLine
If Asc(Selection) <> 13 Then
Selection.TypeParagraph
Else
Selection.MoveDown unit:=wdLine
End If
GoTo Anfang
End If
Gleich = 0

For i = 60 To 1 Step -1
If Mid(Zeile, i, 1) = " " Then

Selection.HomeKey unit:=wdLine
Selection.MoveRight unit:=wdCharacter, Count:=i - 1
Selection.Delete
Selection.TypeParagraph
GoTo Ende
End If
Next
Ende:
Wend

Anfang2:
Selection.HomeKey unit:=wdLine
Selection.EndKey unit:=wdLine, Extend:=wdExtend
Zeile2 = Zeile
Zeile = Selection
If Zeile2 = Zeile Then
Gleich = Gleich + 1
Else
Gleich = 0
End If

If Gleich = 20 Then
Selection.HomeKey unit:=wdStory
End
End If

If ZeilenZähler = 0 Then
Seite = Seite + 1
Selection.HomeKey unit:=wdLine
Selection.TypeText Text:="........................" + Str(Seite) + "........................"
Selection.TypeParagraph
AusgleichsZähler = AusgleichsZähler + 1
Else
Selection.HomeKey unit:=wdLine
Selection.MoveDown
End If
ZeilenZähler = ZeilenZähler + 1

If AusgleichsZähler = 8 Then
If ZeilenZähler = 19 Then
ZeilenZähler = 0
AusgleichsZähler = 0
End If
GoTo Anfang2
Else
If ZeilenZähler = 18 Then ZeilenZähler = 0
End If
GoTo Anfang2
End Sub
guidops ist offline   Mit Zitat antworten
Sponsored Links
Alt 27.01.2006, 14:10   #2
 
Registriert seit: 16.06.2005

stonie10 hat die Renommee-Anzeige deaktiviert

stonie10 eine Nachricht über ICQ schicken stonie10 eine Nachricht über AIM schicken stonie10 eine Nachricht über MSN schicken stonie10 eine Nachricht über Yahoo! schicken
Standard RE: Textdarstellung im Browser II

Hallo guidops,

das ist ja ein nettes Script was du da geschrieben hast, ich habs auch schon ausprobiert, allerdings sehe ich nicht den Sinn in so einem Skript. Wenn ich doch einen Text habe, dann kopier ich ihn 1:1 auf meine PSP, schalt Smart-Fit ein und fäddich.
Daher weiß ich nicht so recht, was du mit diesem Skript machen willst, falls ich irgendwas übersehen haben sollte, sag büdde Bescheid ^^
War aber bestimmt ne Menge Arbeit...

Greetz,
stonie10
stonie10 ist offline   Mit Zitat antworten
Alt 30.01.2006, 10:11   #3
 
Registriert seit: 24.01.2006

guidops hat die Renommee-Anzeige deaktiviert

Standard RE: Textdarstellung im Browser II

hast natürlich recht, mit smar-fit passt der text, aber was ist mit der seitennumerierung? gerade bei längeren texten macht es doch sinn, sich hieran zu orientieren? oder wie willst du sonst eine textstelle wiederfinden???
gp
guidops ist offline   Mit Zitat antworten
Alt 30.01.2006, 17:53   #4
 
Benutzerbild von kayines
 
Registriert seit: 15.09.2005

kayines hat die Renommee-Anzeige deaktiviert

Standard

ich raff nicht was das bringen soll beim ersten wusste ich es auch nicht
ich mein selbst ne kleine html offline seite ist einfacher als das was du gemacht hast
versteh michnicht falsch das ist alles super und toll und überhaupt. aber wer benutzt das denn
__________________
"... revenge is like the sweetes joy next to getting pussy ..."
by 2Pac aka Makaveli in "Hail Mary"
kayines ist offline   Mit Zitat antworten
Alt 30.01.2006, 21:30   #5
 
Registriert seit: 15.04.2005

P-Sky hat die Renommee-Anzeige deaktiviert

Idee

Ich möchte an dieser Stelle nochmal auf mein kleines Text2Html-Tool hinweisen...
Hinweis

Ich bitte auch um Feedback.
P-Sky ist offline   Mit Zitat antworten
Alt 30.01.2006, 22:41   #6
 
Benutzerbild von kayines
 
Registriert seit: 15.09.2005

kayines hat die Renommee-Anzeige deaktiviert

Standard

ich kann mit html schon richtig gut umgehen
deshalb brauch ich nicht sowas aber das programm scheint gut zu sein
__________________
"... revenge is like the sweetes joy next to getting pussy ..."
by 2Pac aka Makaveli in "Hail Mary"
kayines ist offline   Mit Zitat antworten
Alt 31.01.2006, 08:55   #7
 
Registriert seit: 24.01.2006

guidops hat die Renommee-Anzeige deaktiviert

Standard RE: Textdarstellung im Browser II

Hier nochmal eine Kurzbeschreibung, wie dieses word-makro zu verwenden ist:

1. in Word den Visual-Basic-Editor öffnen mit Alt+F11
2. auf der linken Seite rechtsklick auf "Module"
3. einfügen-modul
4. in das neu entstandene Fenster (rechts )den rot markierten Code einfügen
5. wieder in word die txt-datei laden
6. alle zeilenumbrüche entfernen (ersetzen-funktion)
7. menü extras makro makros "Umwandeln_TXT_TO_PSP" ausführen
guidops ist offline   Mit Zitat antworten
Alt 31.01.2006, 19:58   #8
 
Registriert seit: 15.04.2005

P-Sky hat die Renommee-Anzeige deaktiviert

Standard

Das ist aber umständlich...
P-Sky ist offline   Mit Zitat antworten
Alt 01.02.2006, 07:39   #9
 
Registriert seit: 24.01.2006

guidops hat die Renommee-Anzeige deaktiviert

Standard

wenn man das makro einmal gespeichert hat, kann man es ja jederzeit aufrufen, man kann sich ja auch ein eigenes icon in die symbolleiste ziehen, um dann den befehl auf knopfdruck auszuführen
guidops ist offline   Mit Zitat antworten
Alt 01.02.2006, 12:53   #10
 
Benutzerbild von Leopardchen
 
Registriert seit: 14.03.2004
Alter: 45
Spielt gerade: Xenoblade Chronicles

Leopardchen ist ein wunderbarer AnblickLeopardchen ist ein wunderbarer AnblickLeopardchen ist ein wunderbarer AnblickLeopardchen ist ein wunderbarer AnblickLeopardchen ist ein wunderbarer AnblickLeopardchen ist ein wunderbarer AnblickLeopardchen ist ein wunderbarer AnblickLeopardchen ist ein wunderbarer AnblickLeopardchen ist ein wunderbarer AnblickLeopardchen ist ein wunderbarer Anblick

Leopardchen eine Nachricht über Skype™ schicken
Standard

Ist wirklich eine praktische Idee wenn man z.B. vorhat ein paar ebooks auf der PSP zu lesen und sich dann vergewissern moechte auf welcher Seite man eigentlich gerade liest.

Vielleicht ist das hier einfach nur nicht die richtige Zielgruppe.
Leopardchen ist offline   Mit Zitat antworten
Alt 05.02.2006, 18:50   #11
 
Registriert seit: 15.04.2005

P-Sky hat die Renommee-Anzeige deaktiviert

Idee

Es gibt nun eine neue Version meines Text2Html Konverters für die PSP, nämlich die Version 1.1.

Geändert wurde:
  • Unterscheidung von Dateinamens-Präfix und Dokument-Name (neue Eingabe-Zeile)
  • etwas veränderte Navigation am Seiten-Ende
Angehängte Dateien
Dateityp: zip Text2HtmlPSP 1.1.zip (9,5 KB, 73x aufgerufen)
P-Sky ist offline   Mit Zitat antworten
Antwort

  portablegaming.de > PlaystationPortable Foren > Multimedia (PSP)

Lesezeichen


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)
 
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche

Forumregeln
Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are an


Ähnliche Themen
Thema Autor Forum Antworten Letzter Beitrag
DS Browser Trunks1990 Onlinefeature (Nintendo DS) 3 30.05.2007 17:45
Browser Problem langer hans© PC/Mac 13 25.06.2006 18:01
DS Web Browser Ralf_Möller Onlinefeature (Nintendo DS) 1 12.02.2006 14:09
PSP Browser tom007 Sonstiges (PSP) 3 05.04.2005 23:38
your favourite Browser? Ollifant PC/Mac 44 24.11.2004 17:31


Alle Zeitangaben in WEZ +2. Es ist jetzt 09:06 Uhr.


Powered by vBulletin® Version 3.8.9 (Deutsch)
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.0
Template-Modifikationen durch TMS
PortableGaming.de © bk 2000 - 2010

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231