T43 1871-CTO fan 26R7860 replace with 26R8197

Hi all,
I have a 15" T43 1871-CTO (Product ID: 1871Y2G). I am very pleased with it. I bought it used two years ago. Now my fan is very loud and is causing me headaches. So I bought a replacement fan 26R8197 from IBM. When I opened the computer there is:
26R7859
FRU FAN SHORT
26R7860
Is this (26R7860) an original fan for this laptop? Is it possible that it should be 26R8197 from the start?
Also, screws don't look like the correct ones (according to the service manual).
Next questions:
- there are five black stickers (look like stickers) in the box. What should I do with them?
- about the grease? How can I tell that the grase is already applied on the heatsink?
Current FRU does not cover the GPU (that on the right is GPU, right?) which this new FRU can cover. Do I need to remove or do anything with these heatsink spare parts (FRUs)?
Thank you for your help.
Saso
Solved!
Go to Solution.

Welcome to the forum!
That "short" fan is not the original one. Take a look at the bottom picture on this page, that's what your setup should look like:
http://www.thinkwiki.org/wiki/Category:T43
IBM (at least around here) pre-applies thermal grease.
Good luck.
Cheers,
George
In daily use: R60F, R500F, T61, T410
Collecting dust: T60
Enjoying retirement: A31p, T42p,
Non-ThinkPads: Panasonic CF-31 & CF-52, HP 8760W
Starting Thursday, 08/14/2014 I'll be away from the forums until further notice. Please do NOT send private messages since I won't be able to read them. Thank you.

Similar Messages

T43 – Model 1871-FU1: Will not boot with blank screen. Only Fan is running. Any ideas?

T43 – Model 1871-FU1: Will not boot with blank screen. Only Fan is running. Any ideas?
Solved!
Go to Solution.

What lead_org is referring to is commonly known as "re-balling" which involves unsoldering the Southbridge chip from the planar, replacing all (6-700) solder balls with new ones and then re-attaching it under heat/pressure.
This is the place that you need:
http://www.theboardroom.info/index.html
Good luck.
Cheers,
George
In daily use: R60F, R500F, T61, T410
Collecting dust: T60
Enjoying retirement: A31p, T42p,
Non-ThinkPads: Panasonic CF-31 & CF-52, HP 8760W
Starting Thursday, 08/14/2014 I'll be away from the forums until further notice. Please do NOT send private messages since I won't be able to read them. Thank you.

Which Motherboards can i use to replace T43-1871-AB9

Hey again,
im in the market for a new motherboard as i am experiencing a southbridge failure. Now i have found several around but i am wondering what models i can use my current is the
T43-1871-AB9
Any help would be appreciated.
thanks a lot.

You can use any T43/p motherboard, they will fit in your base.
If you get one with ATi graphics, you'll need a different fan/heatsink, but that's about it.
Hope this helps.
Cheers,
George
In daily use: R60F, R500F, T61, T410
Collecting dust: T60
Enjoying retirement: A31p, T42p,
Non-ThinkPads: Panasonic CF-31 & CF-52, HP 8760W
Starting Thursday, 08/14/2014 I'll be away from the forums until further notice. Please do NOT send private messages since I won't be able to read them. Thank you.

T43 1871 motherboard replacement question

hey, i posted before about my USB going dead,
I am getting a PCMCIA card to remedy the situation for the time being, but for the long run, i have another possible solution to my problem.
Will an IBM T43p motherboard fit in a T43 1871 case? from an initial look it looks like it has the same ports and looks about the same size..
Also will be 1.73 centrino work in it?
Solved!
Go to Solution.

Yes, it will fit and PM 740 will work, however, you'll have to get a different fan/heatsink.
Please be advised that T43p boards tend to run very hot due to V3200 GPU, and you might be in for a rude awakening after an Intel-based unit. If your frame is a 14", it will run even hotter.
I'd strongly suggest getting another Intel-based board for your T43, but it's your call.
Good luck.
Cheers,
George
In daily use: R60F, R500F, T61, T410
Collecting dust: T60
Enjoying retirement: A31p, T42p,
Non-ThinkPads: Panasonic CF-31 & CF-52, HP 8760W
Starting Thursday, 08/14/2014 I'll be away from the forums until further notice. Please do NOT send private messages since I won't be able to read them. Thank you.

(T43-1871-AB9) Trying to Identify the problem......

Ok,
As in the subject of this thread, i have a (T43-1871-AB9) and i am experiencing some very strange intermitten problems.
Every so often my computer will freeze out of nowhere sometimes when the computer is doing nothing at all, and sometimes when the computer is under stress (IE : Playing a game).
I've already come to the conclusion my southbridge chip is no longer working as my onboard USB do not work anymore. I purchaced a PCMCIA card to remedy this problem.
I fear my Motherboard may be the problem. I have tried several different things to fix my problem including replacing ram. ( i was using 2; 1 gig dimms and now am using 1; 2 gig instead - i have installed this into my main slot under the keyboard.)
Sometimes after i freeze i an unable to start up my computer.. Sometimes it freezes at the bios splash screen, sometimes it stays black and sometimes it freezes at the "Windows 7 Utlimate" Pre boot loading screen.
Just for some background the only way i can get the computer to boot after that is to make a change... usually i add a secondary dimm to the "expansion bay" to boost it up to 3 gigs ( yes i am aware that i can only use 2, but this seems to remedy my problem.) When it happens again i remove the extra ram and it boots just fine... so... perhaps someone has a clue where my problem is and if i need to replace my motherboard...
thanks a lot..

You can't re-ball the Southbridge chip by yourself, special equipment is required.
The only place that I know of that offers that type of service is GPU Medics (formerly known as Superior Reball) but they've gotten a lot of mixed reviews. You'll have to do some research and decide for yourself.
And of course, a motherboard swap is always an option.
Good luck.
Cheers,
George
In daily use: R60F, R500F, T61, T410
Collecting dust: T60
Enjoying retirement: A31p, T42p,
Non-ThinkPads: Panasonic CF-31 & CF-52, HP 8760W
Starting Thursday, 08/14/2014 I'll be away from the forums until further notice. Please do NOT send private messages since I won't be able to read them. Thank you.

HP ProBook 5220m Fan not working with battery power but work fine with adapter plugged in

Hi,
Any one have this issue?
HP ProBook 5220m (Bios Version F50) Fan not working with battery power but work fine with adapter plugged in.
This issue was found in my replacement motherboard. the original mother do not have this issue.
The origianl mother to be replace is due to can't power on after a power failure recovery. I believe was due to power surge killed the motherboard's power controller circuitry.
Appreciate any one can provide clue for resolving the problem.
I have tried to install speedfan to try my luck, but it can't any fan in the application to configure. (Bios Version F50)

@wheng
‎Thank you for using HP Support Forum. I have brought your issue to the appropriate team within HP. They will likely request information from you in order to look up your case details or product serial number. Please look for a private message from an identified HP contact. Additionally, keep in mind not to publicly post ( serial numbers and case details).
If you are unfamiliar with the Forum's private messaging please click here to learn more.
Thank you,
Omar
I Work for HP

2011 27-inch i7 CTO Fan Speeds

I'm setting up a 27-in 3.4Ghz i7 - 16GB RAM - 2TB + 256GB SSD + 2GB GPU and wanted to know the fan speeds those with this configuration are experiencing.
My current read out is:
Optical: 1146 RPM
HDD: 1220 RPM
CPU: 938 RPM
Ive noticed most 2011 27-inch iMacs HDD RPMS are 1100 RPM ~ 1175 RPM

iMac (27-inch): AMD Radeon 6970M Video Card Replacement Program - Apple Support

T 60 Fan Heatsink replacement

Hi All This is my first post, so I hope I do it right.
I have a T 60 That needs a fan heatsink replacement. I have the part number from the fan as 41V9932RN. I think I have a standard screen but not sure. I finally found the spec on the Lenovo site but all it says is 14.1, I measured the screen and I get 14!/8. Type is 2077-46U. Am I correct that this is a standard screen? Thank you for your help
Solved!
Go to Solution.

Welcome to the forum!
Yes, your machine is one of the T60s with a "standard" 14.1" screen.
Cheers,
George
In daily use: R60F, R500F, T61, T410
Collecting dust: T60
Enjoying retirement: A31p, T42p,
Non-ThinkPads: Panasonic CF-31 & CF-52, HP 8760W
Starting Thursday, 08/14/2014 I'll be away from the forums until further notice. Please do NOT send private messages since I won't be able to read them. Thank you.

T500 Model 2242-CTO fan assembly problem

Perhaps I am clueless, but I am unable to find the specific part number for the T500 - 2242 CTO fan assembly. I do not want to order the wrong part, and the part descriptions on the Lenovo site are difficult to figure out. Can anyone help?
Thanks!!!

hey jhg1226,
welcome to the forums,
From what i found here : http://support.lenovo.com/en_US/product-and-parts/detail.page?DocID=PD000700
under the heading of " Thermal device and fan (Integrated) "
2242-CTO uses this part number for the fan : 45N5490 .
I hope that this is what you require.
WW Social Media
Important Note: If you need help, post your question in the forum, and include your system type, model number and OS. Do not post your serial number.
Did someone help you today? Press the star on the left to thank them with a Kudo!
If you find a post helpful and it answers your question, please mark it as an "Accepted Solution"!
Follow @LenovoForums on Twitter!
Have you checked out the Community Knowledgebase yet?!
How to send a private message? --> Check out this article.

T43 1871-FU1 Bios update problem

bought refurbished T43 1871-FU1 thinkpad with bios 1.23 and EC 1.03. I successfuly updated the bios to 1.29 using AdvantageAccess, but when I try to update EC to 1.05 in same way the screen will freeze at the update screen and stays this way until I force system to shutdown and reboot. Any ideas? TIA

I found a way to update the embedded controller of my T43 (1871).
Using Thankvantage system update nor updating through no diskkette version as on http://support.lenovo.com/us/en/products/laptops-and-netbooks/thinkpad-t-series-laptops/thinkpad-t43...
But
click START>RUN, then enter specify filename with the full path name where you stored Embedded Controller Program Update Utility with options -s -a -s. (E.g. C:\Temp\1YHJ05US.EXE -s -a -s)
Then press the Enter key. Windows will shut down automatically and the system BIOS program will be updated without any user interaction.
Did as I found on http://forum.thinkpads.com/viewtopic.php?f=2&t=23331by chriswendy (Posted: Wed Apr 12, 2006 5:00 pm).
EC updated now to 1.05 through switches -s -a -s

Problems with Photoshop CS2 I originally purchased this software several years ago. At time I was running Microsoft Windows XP. This computer recently was replaced with a Dell running Windows 8.I reloaded my CS2 on this computer & it ran fine with a few

Problems with Photoshop CS2
I originally purchased this software several years ago. At time I was running Microsoft Windows XP.
This computer recently was replaced with a Dell running Windows 8.I reloaded my CS2 on this computer & it ran fine with a few exceptions as follows;
when the software comes up initially I get a message that says “could not complete your request because of program error”. Hitting OK allows me to continue using the software .
When I try to activate a function using CTLR or ALT keys I get this message “required application failed to load and the product cannot continue. Please reinstall the application”. This causes the application to abort.
Reloading my CS2 continues to generate the same messages when I depress the CTLR or ALT keys.

Your original copy is obsolete and Adobe is offering a free replacement you are entitled to. Download and use that and that should clear it up for you.
https://helpx.adobe.com/x-productkb/policy-pricing/creative-suite-2-activation-end-life.ht ml
Download this copy of CS2 and use the serial number provided next to the download link.

When i go to sync my apps with my computer it tells me ''are you sure you want to sync apps ? all exsisting apps and there data on (iphone) will be replaced with the apps on this itunes library'' does this mean all my data will be lost if i continue ?

when i go to sync my apps with my computer it tells me ''are you sure you want to sync apps ? all exsisting apps and there data on (iphone) will be replaced with the apps on this itunes library'' does this mean all my data will be lost if i continue ?

Regarding your broken, previously authorized computer, here's how that works:
You would authorize your new computer -- maybe you've done that already. Then you will have two computers authorized. Apple allows you to have up to five computers authorized at any time. If you get to five, you can then go to your account details in iTunes and remove all authorizations.
Bear in mind this is not saying you can synch to more tham one library. Razmee209 and gdgmacguy's comments above are correct. But if Apple only allowed you to authorize one computer at a time, then having a broken computer would mean you could no longer use your Apple ID with iTunes.

HT4436 I have now downloaded all of my CD's to my itunes library and have since only purchased new music using itunes Store. This itunes library is stored on an old Dell Desktop that I am getting ready to replace with an iMac; how can I move the music? 8

I have now downloaded all of my CD's to my itunes library and have since only purchased new music using itunes Store. This itunes library is stored on an old Dell Desktop that I am getting ready to replace with an iMac; how can I move the music? 86GB
Is the music I downloaded from my CD's already in the iCloud or only the music I purchased on itunes?

This might help: http://www.macworld.com/article/1146958/move_itunes_windows_mac.html.

Find and replace with multiple files and with a watch folder

I am trying to create a watch folder that uses red_menace script to:
1. Have a folder that receives multiple xml files that run the script one by one.
2. then move the files to an output folder.
I tried modifying the set TheFIle to choose file -- the original text file to:
with multiple selections allowed
But that doesn't seem to work. I know i'm missing a step. Any help is much appreciated!
Thanks!
The way i'd like to setup things is having an input folder on the desktop (or just have the application on the desktop and I can drag the files onto it), and let it do it's thing. Once it's done have it export the xml files into an output folder.
Here's what i got so far:
on open
set TheFIle to choose file -- the original text file
set TheFolder to ("Macintosh HD:Users:user1:Desktop:out") -- the folder for the output file
set TheName to (GetUniqueName for TheFIle from TheFolder) -- the name for the output file
set TheText to read TheFIle -- get the text to edit
set Originals to {"KPCALDATE", "KPCALEVENT", "KPCALDAY", "KPCALBODY", "obituaries name", "" & return & "</cstyle></pstyle>" & return & "<pstyle name=\"obituaries text\"><cstyle>", "<pstyle name=\"obituaries text\"><cstyle name=\"Graphics Bold leadin\" font=\"ADV AGBook-Medium 2\">", "<pstyle name=\"Recipe Ingredients\"><cstyle>", " .com", " .net", " .org", " .edu", "www .", "www. ", "Ho- nolulu", "<pstyle name=\"kicker 12\"><cstyle allcaps=\"1\">fashion news</cstyle><cstyle allcaps=\"1\">" & return & "</cstyle></pstyle>" & return & "", "<component name=\"Headline 1\" type=\"Headline\">" & return & "<header>" & return & "<field name=\"Component name\" type=\"string\" value=\"Headline 1\"/>" & return & "<field name=\"Component type\" type=\"popup\" value=\"Headline\"/>" & return & "</header>" & return & "<body>" & return & "<pstyle name=\"hed STANDARD 36\"><cstyle>", "<pstyle name=\"obituaries text\"><cstyle allcaps=\"1\">", "<pstyle name=\"obituaries text\"><cstyle name=\"Graphics Bold leadin\">", "<pstyle name=\"tagline\"><cstyle>-", "-", "
Per serving:", "<pstyle name=\"Titlebar - mini, red\"><cstyle allcaps=\"1\">NATION & World </cstyle><cstyle allcaps=\"1\">Report</cstyle><cstyle allcaps=\"1\">" & return & "</cstyle></pstyle>" & return & "", "</cstyle></pstyle>"} -- the terms that can be replaced
set Replacements to {"subhed", "subhed", "subhed", "Normal", "obituaries text", ", ", "<pstyle name=\"obituaries text\"><cstyle name=\"Graphics Bold leadin\" font=\"ADV AGBook-Medium 2\">", "<pstyle name=\"Recipe Ingredients\"><cstyle>
", ".com", ".net", ".org", ".edu", "www.", "www.", "Honolulu", "", "<component name=\"Headline1\" type=\"Headline\">" & return & "<header>" & return & "<field name=\"Component name\" type=\"string\" value=\"Headline1\"/>" & return & "<field name=\"Component type\" type=\"popup\" value=\"Headline\"/>" & return & "</header>" & return & "<body>" & return & "<pstyle name=\"hed STANDARD 27\"><cstyle>", "<pstyle name=\"obituaries text\"><cstyle allcaps=\"1\">", "<pstyle name=\"obituaries text\"><cstyle name=\"Graphics Bold leadin\">", "<pstyle name=\"tagline\"><cstyle>", " ", "
Per serving:", "","" & return & "</cstyle></pstyle>"} -- the replacement terms
repeat with AnItem from 1 to count Originals
set TheText to (replaceText of TheText from (item AnItem of Originals) to (item AnItem of Replacements))
end repeat
try -- write a new output file
tell application "Finder" to make new file at TheFolder with properties {name:TheName}
set OpenFile to open for access (result as alias) with write permission
write TheText to OpenFile starting at eof
close access OpenFile
on error errmess
try
log errmess
close access OpenFile
end try
end try
end open
to GetUniqueName for SomeFile from SomeFolder
check if SomeFile exists in SomeFolder, creating a new unique name if needed
parameters - SomeFile [mixed]: a source file path
SomeFolder [mixed]: a folder to check
returns [text]: a unique file name and extension
set {Counter, Divider} to {"00", "_"}
-- get the name and extension
set {name:TheName, name extension:TheExtension} to info for file (SomeFile as text)
if TheExtension is missing value then set TheExtension to ""
set TheName to text 1 thru -((count TheExtension) + 2) of TheName
set NewName to TheName & "." & TheExtension
tell application "System Events" to tell (get name of files of folder (SomeFolder as text))
repeat while it contains NewName
set Counter to text 2 thru -1 of ((100 + Counter + 1) as text) -- leading zero
set NewName to TheName & Divider & Counter & "." & TheExtension
end repeat
end tell
return NewName
end GetUniqueName
to EditItems of SomeItems given Title:TheTitle, Prompt:ThePrompt
displays a dialog for multiple item edit (note that a return is used between each edit item)
for each of the items in SomeItems, a line containing it's text is placed in the edit box
the number of items returned are padded or truncated to match the number of items in SomeItems
parameters - SomeItems [list]: a list of text items to edit
TheTitle [boolean/text]: use a default or the given dialog title
ThePrompt [boolean/text]: use a default or the given prompt text
returns [list]: a list of the edited items, or {} if error
set {TheItems, TheInput, TheCount} to {{}, {}, (count SomeItems)}
if TheCount is less than 1 then return {} -- error
if ThePrompt is in {true, false} then -- "with" or "without" Prompt
if ThePrompt then
set ThePrompt to "Edit the following items:" & return -- default
else
set ThePrompt to ""
end if
else -- fix up the given prompt a little
set ThePrompt to ThePrompt & return
end if
if TheTitle is in {true, false} then if TheTitle then -- "with" or "without" Title
set TheTitle to "Multiple Edit Dialog" -- default
else
set TheTitle to ""
end if
set {TempTID, AppleScript's text item delimiters} to {AppleScript's text item delimiters, return}
set {SomeItems, AppleScript's text item delimiters} to {SomeItems as text, TempTID}
set TheInput to paragraphs of text returned of (display dialog ThePrompt with title TheTitle default answer SomeItems)
repeat with AnItem from 1 to TheCount -- pad/truncate entered items
try
set the end of TheItems to (item AnItem of TheInput)
on error
set the end of TheItems to ""
end try
end repeat
return TheItems
end EditItems
to replaceText of SomeText from OldItem to NewItem
replace all occurances of OldItem with NewItem
parameters - SomeText [text]: the text containing the item(s) to change
OldItem [text]: the item to be replaced
NewItem [text]: the item to replace with
returns [text]: the text with the item(s) replaced
set SomeText to SomeText as Unicode text -- TID's are case insensitive with Unicode text
set {TempTID, AppleScript's text item delimiters} to {AppleScript's text item delimiters, OldItem}
set {ItemList, AppleScript's text item delimiters} to {text items of SomeText, NewItem}
set {SomeText, AppleScript's text item delimiters} to {ItemList as text, TempTID}
return SomeText
end replaceText
Message was edited by: gamebreakers

When you use the open or adding folder items to handlers, you need to add the parameters for the file items passed to them.
I'll go ahead and post the applet/droplet version of my original script from the previous topic for reference:
<pre style="
font-family: Monaco, 'Courier New', Courier, monospace;
font-size: 10px;
margin: 0px;
padding: 5px;
border: 1px solid #000000;
width: 720px; height: 340px;
color: #000000;
background-color: #FFEE80;
overflow: auto;"
title="this text can be pasted into the Script Editor">
-- search and replace multiple items applet/droplet/folder action
-- the terms to replace - edit as needed
property EditableItems : {¬
"one", ¬
"two", ¬
"three", ¬
"four", ¬
"five", ¬
"six", ¬
"seven", ¬
"eight", ¬
"nine", ¬
"ten", ¬
"eleven", ¬
"twelve", ¬
"thirteen", ¬
"fourteen", ¬
"fifteen", ¬
"sixteen", ¬
"seventeen", ¬
"eighteen", ¬
"nineteen", ¬
"twenty"}
-- the folder for the output file(s) - change as needed
property TheFolder : (path to desktop)
property LastEditItems : EditableItems
on run
the applet/droplet was double-clicked
open (choose file with multiple selections allowed)
end run
on open TheItems
items were dropped onto the applet/droplet
parameters - TheItems [list]: a list of the items (aliases) dropped
returns nothing
repeat with AnItem in TheItems
ReplaceMultipleItems from AnItem
end repeat
end open
on adding folder items to this_folder after receiving these_items
folder action - items were added to a folder
parameters - this_folder [alias]: the folder added to
these_items [list]: a list if items (aliases) added
returns nothing
repeat with AnItem in these_items
ReplaceMultipleItems from AnItem
end repeat
end adding folder items to
to ReplaceMultipleItems from SomeFile
replace multiple text items in SomeFile
parameters - SomeFile [alias]: the file to replace items in
returns nothing
set TheName to (GetUniqueName for SomeFile from TheFolder) -- the name for the output file
set TheText to read SomeFile -- get the text to edit
set Originals to (choose from list EditableItems default items LastEditItems with prompt "Select the terms to replace:" with multiple selections allowed) -- the specific terms to replace
set LastEditItems to Originals
set Replacements to (EditItems of Originals with Title given Prompt:"Edit the following replacement terms:") -- the replacement terms
repeat with AnItem from 1 to count Originals
set TheText to (ReplaceText of TheText from (item AnItem of Originals) to (item AnItem of Replacements))
end repeat
try -- write a new output file
tell application "Finder" to make new file at TheFolder with properties {name:TheName}
set OpenFile to open for access (result as alias) with write permission
write TheText to OpenFile starting at eof
close access OpenFile
on error errmess
try
log errmess
close access OpenFile
end try
end try
end ReplaceMultipleItems
to GetUniqueName for SomeFile from SomeFolder
check if SomeFile exists in SomeFolder, creating a new unique name if needed
parameters - SomeFile [mixed]: a source file path
SomeFolder [mixed]: a folder to check
returns [text]: a unique file name and extension
set {Counter, Divider} to {"00", "_"}
-- get the name and extension
set {name:TheName, name extension:TheExtension} to info for file (SomeFile as text)
if TheExtension is in {missing value, ""} then
set TheExtension to ""
else
set TheExtension to "." & TheExtension
end if
set {NewName, TheExtension} to {TheName, (ChangeCase of TheExtension to "upper")}
set TheName to text 1 thru -((count TheExtension) + 1) of TheName
tell application "System Events" to tell (get name of files of folder (SomeFolder as text))
repeat while it contains NewName
set Counter to text 2 thru -1 of ((100 + Counter + 1) as text) -- leading zero
set NewName to TheName & Divider & Counter & TheExtension
end repeat
end tell
return NewName
end GetUniqueName
to EditItems of SomeItems given Title:TheTitle, Prompt:ThePrompt
displays a dialog for multiple item edit (note that a return is used between each edit item)
for each of the items in SomeItems, a line containing it's text is placed in the edit box
the number of items returned are padded or truncated to match the number of items in SomeItems
parameters - SomeItems [list]: a list of text items to edit
TheTitle [boolean/text]: use a default or the given dialog title
ThePrompt [boolean/text]: use a default or the given prompt text
returns [list]: a list of the edited items, or {} if error
set {TheItems, TheInput, TheCount} to {{}, {}, (count SomeItems)}
if TheCount is less than 1 then return {} -- error
if ThePrompt is in {true, false} then -- "with" or "without" Prompt
if ThePrompt then
set ThePrompt to "Edit the following items:" & return -- default
else
set ThePrompt to ""
end if
else -- fix up the given prompt a little
set ThePrompt to ThePrompt & return
end if
if TheTitle is in {true, false} then if TheTitle then -- "with" or "without" Title
set TheTitle to "Multiple Edit Dialog" -- default
else
set TheTitle to ""
end if
set {TempTID, AppleScript's text item delimiters} to {AppleScript's text item delimiters, return}
set {SomeItems, AppleScript's text item delimiters} to {SomeItems as text, TempTID}
set TheInput to paragraphs of text returned of (display dialog ThePrompt with title TheTitle default answer SomeItems)
repeat with AnItem from 1 to TheCount -- pad/truncate entered items
try
set the end of TheItems to (item AnItem of TheInput)
on error
set the end of TheItems to ""
end try
end repeat
return TheItems
end EditItems
to ReplaceText of SomeText from OldItem to NewItem
replace all occurances of OldItem with NewItem
parameters - SomeText [text]: the text containing the item(s) to change
OldItem [text]: the item to be replaced
NewItem [text]: the item to replace with
returns [text]: the text with the item(s) replaced
set SomeText to SomeText as text
if SomeText contains OldItem then
set {TempTID, AppleScript's text item delimiters} to {AppleScript's text item delimiters, OldItem}
try
set {ItemList, AppleScript's text item delimiters} to {text items of SomeText, NewItem}
set {SomeText, AppleScript's text item delimiters} to {ItemList as text, TempTID}
on error ErrorMessage number ErrorNumber -- oops
set AppleScript's text item delimiters to TempTID
error ErrorMessage number ErrorNumber
end try
end if
return SomeText
end ReplaceText
to ChangeCase of SomeText to CaseType
changes the case or capitalization of SomeText to the specified CaseType using Python
parameters - SomeText [text]: the text to change
CaseType [text]: the type of case desired:
"upper" = all uppercase text
"lower" = all lowercase text
"title" = uppercase character at start of each word, otherwise lowercase
"capitalize" = capitalize the first character of the text, otherwise lowercase
returns [text]: the changed text
set SomeText to SomeText as text
if CaseType is not in {"upper", "lower", "title", "capitalize"} then return SomeText
return (do shell script "/usr/bin/python -c \"import sys; print unicode(sys.argv[1], 'utf8')." & CaseType & "().encode('utf8')\" " & quoted form of SomeText)
end ChangeCase
</pre>
Edit: how does the choose from list dialog handle those big strings? I'm guessing not very well - is that why you avoided using them?
Message was edited by: red_menace

What happened to my mail access on home page, it just vanishes after stat-up and is replaced with ads ? How do I fix it?

It's always worked until this past week, nothing changed by user that I know of. I've checked pop-up blocker to no avail. Using Avira free security, it updated a few days ago, did a restore after it was updated to before the update, didn't help either. Want let me open Hughes net mail in Fire Fox at all. Can access it from Explorer but hat Explorer, it's slower than Fire Fox. Any help is appreciated as I've run out of ideas.

I am not entirely sure what problems you are reporting.
# Home Page are you able to set that as required or not ?
#Webmail
#* I am not clear, are you able to open that with Firefox ?
#* I understand you are able to open it with Internet Explorer
Are you saying that your webmail is set as one of your home pages, but that it is replaced with something else ?
Do other websites and searches work ok in Firefox or are you also having other problems in Firefox use ?

T43 1871-CTO fan 26R7860 replace with 26R8197

Similar Messages

Maybe you are looking for