Jump to content

Fredledingue

Member
  • Posts

    1,274
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    Lithuania

Everything posted by Fredledingue

  1. Yes Metapad is the closest to Notepad. I have tested a dozen of notepad replacements and Metapad and Notepad2 are what you are exactely what asking for.
  2. No, w9x refers either to w98, w98se or w95. My suggestions: -Windows Gape 2.0 -Windows 98 2.0 or Windows 98 X (when refering to any uSP) -Windows XX (because it has two X in the name, it means that it's better than XP that has only one X in its name) but the most appropriate is of course Windows 2098 20 standing for the uSP version and 98 for win98. When uSP 2.1 will be released it will be Windows 2198, etc...
  3. I always listen music and watch videos on my PC but I never use Windows Media Player. I think I have even deleted wmplayer.exe from the directory. So the 9nth version, you can keep it were you know!
  4. The only software I couldn't install was brennig's image viewer. But now Brennig's is payware so I don't care and don't use it
  5. Office XP is working very well and even almost fats, on my w98se system. It's even better, and less taking resources than Office97.
  6. No, it was old self-burn audio cd that had something defective, on a rare occasions... (1/50). Yes. Thanks MGDx, I have saved these infos in my Tips archive!
  7. In fact Metapad is Notepad with the file size limit fixed. Practicaly (cuz of course it's another program). But I realy don't understand why some poeple would like to come back witht the old bad Notepad unless wof solid bug reasons. Restoring Notepad is the simpliest thing to do. During the installation, rename Notepad.exe by Notepadold.exe, put Metapad in the Windows folder, rename Metapad.exe by Notepad.exe. During the uninstallation, just do the reverse actions: Delete Notepad.exe and rename Notepadold.exe by Notepad.exe. It shouldn't take more than 50 charachters in a batch script. __________________________________________________ request A fix for CD-drive error crashes. For example, trying to copy I-dont-know-why defectuous cd, Nero and CD-ex both freeze up and the computer stop responding. Because two programs get this bug, I think it's rather system wise.
  8. The script read the htm file line by line. Each line is processed as the variable t . The parts of the script below apply for each line, through a loop. This is the part that deals with htm code (after and before it's just interface stuffs) Here parts of htm code are merely replaced by something that kills it. It's the equivalent of "edit --> replace --> replace all" in Word. For example I replace <NOSCRIPT by <br . t=Replace(t,"<NOSCRIPT","<br") t=Replace(t,"<noscript","<br") t=Replace(t,"</NOSCRIPT","<br") t=Replace(t,"</noscript","<br") t=Replace(t,"text/css","text(slash)css") t=Replace(t,"@import url","(at)import(space)url") t=Replace(t,"TEXT/CSS","TEXT(slash)CSS") t=Replace(t,"@IMPORT URL","(at)IMPORT(space)URL") t=Replace(t,".css","(dot)css") t=Replace(t,".js","(dot)js") t=Replace(t,".vbs","(dot)vbs") t=Replace(t,".CSS","(dot)CSS") t=Replace(t,".JS","(dot)JS") t=Replace(t,".VBS","(dot)VBS") this is just counting lines (not important now) below you will see DelLineCount that counts the lines that has been dropped. LineCount = LineCount +1 this is removing scripts from the page; detecting when a script code ends ( </script ) '-------remove script----- If IsScript = True Then DelLineCount = DelLineCount +1 If InStr(t,"</script")>0 Or InStr(t,"</SCRIPT")>0 Then IsScript = False End If and when it start ( <script ) (for programing reasons, I decided to put the end before the start... Else If InStr(t,"<script")>0 Or InStr(t,"<script")>0 Then DelLineCount = DelLineCount +1 If InStr(t,"</script")=0 And InStr(t,"</SCRIPT")=0 Then IsScript = True End If Else this is detecting href='javascript and then dropping the line that contain it. If InStr(t,"href='javascript")>0 Then DelLineCount = DelLineCount +1 Else this checks if the image in a reference exists (and therefore was saved with the page and therefore the link to it should remain) It detect src=" and src= Once in lowercase, once in uppercase. If the file exists, it add img before src= if it's not present. Because htm code can be split and wrapped in many fashions, the script may find that an image doesn't exists because the link to it is on the next line. So at the next line it must add img. '--------remove missing images------ If InStr(t,"src=""")>0 Then u=InStr(t,"src=""")+5 v=Mid(t,u) w=InStr(v,"""") img = Left(v,w-1) If Fso.FileExists(path & "/" & img) Then If InStr(t,"<img ")=0 And InStr(t,"<IMG ")=0 Then t= ">" & Replace(t, "src=""", "<img src=""") End If NewHtm = NewHtm & VbCrlf & t Else DelLineCount = DelLineCount +1 DelImgCount = DelImgCount +1 End If img = "" Else If InStr(t,"SRC=""")>0 Then u=InStr(t,"SRC=""")+5 v=Mid(t,u) w=InStr(v,"""") img = Left(v,w-1) If Fso.FileExists(path & "/" & img) Then If InStr(t,"<img ")=0 And InStr(t,"<IMG ")=0 Then t= ">" & Replace(t, "SRC=""", "<IMG SRC=""") End If NewHtm = NewHtm & VbCrlf & t Else DelLineCount = DelLineCount +1 DelImgCount = DelImgCount +1 End If img = "" Else '------- If InStr(t,"src=")>0 Then u=InStr(t,"src=")+4 v=Mid(t,u) w=InStr(v,".") img = Left(v,w+3) If Fso.FileExists(path & "/" & img) Then If InStr(t,"<img ")=0 And InStr(t,"<IMG ")=0 Then t= ">" & Replace(t, "src=", "<img src=") End If NewHtm = NewHtm & VbCrlf & t Else DelLineCount = DelLineCount +1 DelImgCount = DelImgCount +1 End If img = "" Else If InStr(t,"SRC=")>0 Then u=InStr(t,"SRC=")+4 v=Mid(t,u) w=InStr(v,".") img = Left(v,w+3) If Fso.FileExists(path & "/" & img) Then If InStr(t,"<img ")=0 And InStr(t,"<IMG ")=0 Then t= ">" & Replace(t, "SRC=", "<IMG SRC=") End If NewHtm = NewHtm & VbCrlf & t Else DelLineCount = DelLineCount +1 DelImgCount = DelImgCount +1 End If img = "" Else This delete ><img when there is no src= (when src= might be on the next line,) '------ If InStr(t,"><img")>0 Then t= Replace(t,"><img","") t= replace(t,"<nobr","<a") NewHtm = NewHtm & VbCrlf & t Else If InStr(t,"><IMG")>0 Then t= Replace(t,"><IMG","") t= replace(t,"<NOBR","<A") NewHtm = NewHtm & VbCrlf & t I hope that you understand a little bit of what I wrote...
  9. I'm writing a software (actualy a vb script) to clear htm documents from: -scripts -reference to scripts -missing/unsaved images -etc The main goal is to clear completely the page from reference triggering the internet connection but also of any useless garbage. What are the code that I should or shouldn't delete? I want to do a script that process line by line as it's faster than character by character... Copypaste the code into notepad and save it as cleanhtm.vbs to try it. I think my method is quiet radical, but of course some page behave wierd after cleaning, while I still didn't notice any loss of usefull data so far. There are resulting in sometimes appearing bit of loss code in page view... On a few pages it didn't remove all the auto-connecting references... 'Clear garbage from htlm files 'Written by ***Fredledingue*** fredledingo@yahoo.com '----------------------------------------------------------- Const ForReading = 1, ForWriting = 2, ForAppending = 3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Const OPEN_FILE_FOR_APPENDING = 8 Title = "HTLM Cleaner 1.0" '--------browse for a folder--------- 'On Error Resume Next set oShell = CreateObject("Shell.Application") Set oF = oShell.BrowseForFolder(0, "Select the folder where the htlm files are located" , 0, "My Computer") path = oF.Items.Item.path If Err.Number > 0 Then MsgBox "Action canceled.",,Title wscript.quit End If Set fso = CreateObject("Scripting.FileSystemObject") Set Folder = fso.getfolder(Path) Set Files = folder.files '------Check if Dirty_htm exists, and if not create it-------------- DirtyHtm = path & "\Dirty_Htm" If Fso.FolderExists(DirtyHtm) Then MsgBox "The original files will be saved in the folder """ & DirtyHtm & """",,Title Else Fso.CreateFolder(DirtyHtm) MsgBox "A folder """ & DirtyHtm & """ was created to save the original files.",,Title End If '------------Ask to confirm for each file------- If (MsgBox("Confirm for each file?", vbYesNo, Title) = vbYes) Then AskToConfirm = True Else AskToConfirm = False End If '-------------Process files----------------- For Each File in files FileName = file.name FilePath = file.path GoAhead = False If fso.GetExtensionName(FilePath)="htm" Or fso.GetExtensionName(FilePath)="html" Then '------confirm----- If AskToConfirm = True Then If (MsgBox("Nettoyer """ & FileName & """ ?", vbYesNo, Title) = vbYes) Then GoAhead = True End If Else GoAhead = True End If '---------process the file line by line------------- If GoAhead = True Then NewHtm = "<!--version modified by Fredledingue's html cleaner -->" & VbCrlf LineCount = 0 DelLineCount = 0 DelImgCount = 0 IsScript = False AlreadyDone = False Set f = fso.GetFile(FilePath) Set ts = f.OpenAsTextStream(ForReading, Tristatefalse) Do Until ts.AtEndOfStream t = ts.ReadLine If t = "<!--version modified by Fredledingue's html cleaner -->" Then AlreadyDone = True Exit Do End If t=Replace(t,"<NOSCRIPT","<br") t=Replace(t,"<noscript","<br") t=Replace(t,"</NOSCRIPT","<br") t=Replace(t,"</noscript","<br") t=Replace(t,"text/css","text(slash)css") t=Replace(t,"@import url","(at)import(space)url") t=Replace(t,"TEXT/CSS","TEXT(slash)CSS") t=Replace(t,"@IMPORT URL","(at)IMPORT(space)URL") t=Replace(t,".css","(dot)css") t=Replace(t,".js","(dot)js") t=Replace(t,".vbs","(dot)vbs") t=Replace(t,".CSS","(dot)CSS") t=Replace(t,".JS","(dot)JS") t=Replace(t,".VBS","(dot)VBS") LineCount = LineCount +1 '-------remove script----- If IsScript = True Then DelLineCount = DelLineCount +1 If InStr(t,"</script")>0 Or InStr(t,"</SCRIPT")>0 Then IsScript = False End If Else If InStr(t,"<script")>0 Or InStr(t,"<script")>0 Then DelLineCount = DelLineCount +1 If InStr(t,"</script")=0 And InStr(t,"</SCRIPT")=0 Then IsScript = True End If Else If InStr(t,"href='javascript")>0 Then DelLineCount = DelLineCount +1 Else '--------remove missing images------ If InStr(t,"src=""")>0 Then u=InStr(t,"src=""")+5 v=Mid(t,u) w=InStr(v,"""") img = Left(v,w-1) If Fso.FileExists(path & "/" & img) Then If InStr(t,"<img ")=0 And InStr(t,"<IMG ")=0 Then t= ">" & Replace(t, "src=""", "<img src=""") End If NewHtm = NewHtm & VbCrlf & t Else DelLineCount = DelLineCount +1 DelImgCount = DelImgCount +1 End If img = "" Else If InStr(t,"SRC=""")>0 Then u=InStr(t,"SRC=""")+5 v=Mid(t,u) w=InStr(v,"""") img = Left(v,w-1) If Fso.FileExists(path & "/" & img) Then If InStr(t,"<img ")=0 And InStr(t,"<IMG ")=0 Then t= ">" & Replace(t, "SRC=""", "<IMG SRC=""") End If NewHtm = NewHtm & VbCrlf & t Else DelLineCount = DelLineCount +1 DelImgCount = DelImgCount +1 End If img = "" Else '------- If InStr(t,"src=")>0 Then u=InStr(t,"src=")+4 v=Mid(t,u) w=InStr(v,".") img = Left(v,w+3) If Fso.FileExists(path & "/" & img) Then If InStr(t,"<img ")=0 And InStr(t,"<IMG ")=0 Then t= ">" & Replace(t, "src=", "<img src=") End If NewHtm = NewHtm & VbCrlf & t Else DelLineCount = DelLineCount +1 DelImgCount = DelImgCount +1 End If img = "" Else If InStr(t,"SRC=")>0 Then u=InStr(t,"SRC=")+4 v=Mid(t,u) w=InStr(v,".") img = Left(v,w+3) If Fso.FileExists(path & "/" & img) Then If InStr(t,"<img ")=0 And InStr(t,"<IMG ")=0 Then t= ">" & Replace(t, "SRC=", "<IMG SRC=") End If NewHtm = NewHtm & VbCrlf & t Else DelLineCount = DelLineCount +1 DelImgCount = DelImgCount +1 End If img = "" Else '------ If InStr(t,"><img")>0 Then t= Replace(t,"><img","") t= replace(t,"<nobr","<a") NewHtm = NewHtm & VbCrlf & t Else If InStr(t,"><IMG")>0 Then t= Replace(t,"><IMG","") t= replace(t,"<NOBR","<A") NewHtm = NewHtm & VbCrlf & t '------ Else NewHtm = NewHtm & VbCrlf & t End If End If End If End If End If End If End If End If End If '---------------------------- Loop ts.Close If AlreadyDone = True Then Msg = Msg & """" & FileName & """: " & VbTab & "File already cleaned." & VbCrlf Else Msg = Msg & """" & FileName & """: " & VbTab & DelLineCount & " on " & LineCount & " (" & DelImgCount & " images missing)" & VbCrlf '--------Move original file to Dirty_htm----- f.Move DirtyHtm & "\" & FileName '--------write to file----------- Set objOutputFile = fso.CreateTextFile(path & "\" & FileName, True) objOutputFile.Write NewHtm objOutputFile.Close '--------------------------------- End If '-------refers to "If AlreadyDone = True" End if '------refers to "If GoAhead = True" End If '-----refers to "If fso.GetExtensionName(FilePath)="htm"..." Next MsgBox "Result:" & VbCrlf & Msg,, Title '---------End of Script-----------------
  10. I never got any error or slowdown with my fat32 partitions... but of course i'm not alone in the world and ntfs is probably better. (Ijust didn't want make this thread dying...)
  11. try on these pages http://www.station-drivers.com/page/promise.htm http://www.station-drivers.com/page/iwill.htm I think you must install the drivers before installing w98... maybe via a boot disk... from another forum: (translated) 1) Take motherboard installation CD 2) Find directory for Serial ATA 3) Copy the 5 files on a floppy: SI3112R.inf SI3112R.mpd SI3112R.sys SIISUPP.vxd TXTSETUP.oem 4) If you don't have the CD, here is an address found on google: http://home.arcor.de/bluestormxs/S-ATA-Treiber/ 5) In the BIOS, put in First boot: CDROM (to launch installation) and in Second boot: SCSI (apparetly the DD in Serial ATA needs it...) 6) Turn the PC on, with the installation CD 7) Type 'F6' at the beginning of the installation, when it asks if you want to instal the pilotes SCSI 8) Insert the floppy when it ask to...
  12. GSPK You mean... a hack of a hack of M$ updates?
  13. Prathapml Yep, but did you realy see a perceptible difference between the two system in the way files are opening and editing? (other than on the scale of a milisecond?) I feel that the only difference is only when you transfer large amount of data from one disc to another....
  14. Ok, Un4given, but if someone posted it here, it will avoid me to search, you understand. But of course when I need something I do a google search + some forum search and one or two specialised website search and usualy I find what I need. Thought, it takes me from 10 minutes to 2 hours...
  15. Ivanov, you'r kidding or what? Windows Explorer has the worse bug I'v ever seen: delete or move a few files and it get so slow that it became unusable. You have to restart your computer. It's total sh*t. ______________ Xplorer2 Lite is free, but you have to find the link at the home page site. ______________ ZTree: I can't believe this is a commercialware! _______________
  16. The ones that come with your camera CD if any.The goals are: -get some video data files transfered from your camera to the computer. -get an idea of what you want to do with these video: create standard DVD, compress to DivX, publish to the internet, create PowerPoint demo, save snapshots, etc -get a software that can read (depends on the format, container and codecs), edit it and eventualy convert it to the appropriate format It's not related to video editing/rendering. But I will certainly not recommand Adobe Premiere. Doom.net Doom9
  17. W98 system are compatible with SATA, provided the good drivers are installed during the w98 installation. Of course if you don't get them...
  18. Does anybody know the code for detecting if their is a CD-rom in the drive (ready to do something like copying files to the HD...)
  19. Delete Internet Explorer Temporary files (from IE) as windows explorer and IE are connected. Sometimes it can fix such problem. Just an idea.
  20. Notepad2 is a good replacement too. Personaly I still prefer Metapad and metapad is also smaller, but Petr should check if it has the font display problem or not. Check also the opening speed for large files (+-1Mb)...as it can differ dramaticaly from one program to another.
  21. eidenk You want to make the SP bloat to 100Mb or what? Freebies and media stuffs are a good idea, but they should come as a separate download. Also such packs is often populated by obsolete codecs and softwares. That's why the Nemo codec pack project was abandonned. No, I beleive SP should focus on "invisible" system improvement. Instead of including hundreds of freebies, an htm file with links to their download location, and some description would be nice. __________________________ Gape I wanted to say that poeple on the verge of running SP should be told of making sure: -they get the original w98se installation CD-rom (if not they shouldn't even consider trying SP) -they get all their hardwares'driver installation disc -they get a bootable floppy -they backed up crucial datas on an external device (CD-R) -maybe some other "paranoia" stuffs Then after running the pack, be asked to check for conflict and system performance. (You remeber the problem I had with the IDE?)
  22. This shows how to read line by line (without hiting an error at the end) and show a msg box when the line include "Don't reverse". '--------read from file----------- Set f = fso.GetFile("temp.txt") Set ts = f.OpenAsTextStream(ForReading, Tristatefalse) Do Until ts.AtEndOfStream rr = ts.ReadLine If InStr(rr,"Don't reverse") >0 Then MsgBox rr End If Loop
  23. Suggestion: -enable overburning (in the advanced option of standard Nero, not the cd toys) -use another brand of CD-R
  24. Thank you very much for your explanation MGDx.
  25. I agree with Gape that Notepad can be an exception. Notepad comes with windows, after all. The original Notepad is realy out of age, and Metapad is very good choice as it looks very much like Notepad. It should comes as an option however since some geek may have replaced their Notpad.exe file already. Maybe you should add a warning at the end telling to check if all the devices and stuffs works properly and to reinstall the drivers if not. With some explaination on how to do it.
×
×
  • Create New...