qd2024

»Ø¸´ 14# hfxiang

qd2024

»Ø¸´ 11# 77Æß


    лл

qd2024

»Ø¸´ 14# hfxiang


    лл

qd2024

»Ø¸´ 13# qixiaobin0715
·Ö¸îºóÎļþÀïÓв»È·¶¨ÂÒÂë Äܽâ¾öÂð

    Module4 unit1
Doctor: How can I help you?
Daming: I fell ill. I’ve got a stomach ache and my head hurts.
Doctor: How long have you been like this?
Daming: Since Friday. I've been ill for about three days!
Doctor: I see. Have you caught a cold?
Daming: I don't think so.
Doctor: Let me take your temperature…Hmm, there's no fever. What kind of food do you eat?
Daming: Usually fast food.
Doctor: Do you have breakfast?
Daming: No, not usually.
Doctor: “That's the problem! Fast food and no breakfast.�That's why you've got a stomach ache.
Daming: What about the headache?
Doctor: Do you do any exercise?
Daming: Not really. I haven't done much exercise since I got my computer last year.
Doctor: “You spend too much time in front of the computer.�It can be very harmful to your health.
Daming: OK, so what should I do?
Doctor: Well, don't worry. It's not serious. First, stop eating fast food and have breakfast every day. Second, get some exercise, such as running. And I'll give you some medicine. Take it three times a day.
Daming: Thank you, doctor.

====

Module3 unit2
“Scientists think that there has been life on the earth for hundreds of millions of years.�However, we have not found life on any other planets yet.
The earth is a planet and it goes around the sun. Seven other planets also go around the sun. None of them has an environment like that of the earth, so scientists do not think they will find life on them. The sun and its planets are called the solar system, and our solar system is a small part of a much larger group of stars and planets, called the Galaxy or the Milky Way. There are billions of stars in the Galaxy, and our sun is only one of them.
Scientists have also discovered many other galaxies in the universe. They are very far away and their light has to travel for many years to reach us. So how large is the universe? It is impossible to imagine.
Scientists have sent spaceships to the planet Mars to take photos. They have even sent spaceships to travel outside the solar system. However, no spaceship has travelled far enough to reach other stars in our Galaxy.
Scientists have always asked the questions: with so many stars in the universe, are we alone, or is there life out there in space? Have there been visitors to the earth from other planets? Why has no one communicated with us? We do not know the answers... yet.



=====

Module3 unit1
Daming: Hi, Tony. What are you up to?
Tony: Hi Daming. I've just made a model spaceship for our school project.
Daming: I haven't started yet because I'm not sure how to make it. Can you help me?
Tony: Sure, no problem. Have you heard the latest news? Scientists have sent a spaceship to Mars. The journey has taken several months.
Daming: Has it arrived yet?
Tony: Yes, it has arrived already. That's why it's on the news.
Daming: So have they discovered life on the Mars?
Tony: No, they haven't yet.
Daming: Are there any astronauts in the spaceship?
Tony: No, there aren't.
Daming: “Why not? Astronauts have already been to the moon.�
Tony: Yes, but no one has been to Mars yet, because Mars is very far away, much farther than the moon. Lots of scientists are working hard in order to send astronauts to Mars one day.
Daming: That's interesting! How can I get information on space travel?
Tony: You can go online to search for information.
Daming: I will. Thank you, Tony!

qd2024

»Ø¸´ 13# qixiaobin0715


    ·Ö¸îºóµÄTXTÎļþ£¬ºóÃ滹ÓнøÒ»²½´¦Àí£¬ÊÔÁ˺ܾ㬷¢ÏÖ Ö»ÓÐUTF-8²Å¿ÉÒÔ Ã»ÓÐÂÒÂë лл °ïÎÒ¿´¿´

aloha20200628

Ò»¡£lz¿ÉÏÈÓüÇʱ¾½«Ô­Îļþ´æΪANSI±àÂë
¶þ¡£ÒÔÏÂÅú´¦Àí½Å±¾´úÂëÒà´æΪANSI±àÂë

@set @v=1 /*
@echo off
set "tF=" &set/p "tF=Ô­Îļþ£º"
if not defined tF exit/b
(cscript.exe -e:jscript "%~f0" %tF%)
exit/b
*/
var v=WScript.arguments;
var fso=new ActiveXObject('scripting.filesystemobject');
var fr=fso.opentextfile(v(0));
var alllines=fr.readall().split('\r\n'); fr.close();
var n, nL=alllines.length, outF='';
for (n=0; n<nL; ++n)
	if (alllines[n].indexOf('¡ï') != -1) {
		if (outF != '') fw.close();
		outF=alllines[n].replace(/[¡ï\?]/g, '');
		outF+='.txt';
		fw=fso.opentextfile(outF, 2, true);
	}
	else fw.write(alllines[n]+'\r\n');
WSH.quit(0);
¸´ÖÆ´úÂë

qd2024

»Ø¸´ 21# aloha20200628


    ·Ö¸îºóµÄTXTÎļþ£¬ºóÃ滹ÓнøÒ»²½´¦Àí£¬ÊÔÁ˺ܾã¬
    Ö»ÓÐUTF-8±à¼­²Å¿ÉÒÔ

лл

qixiaobin0715

½«Ô´ÎļþºÍÅú´¦ÀíÎļþͳһUTF-8±àÂ룺

@echo off &@cls&chcp>nul 65001
findstr /n /rb "Module[0-9]*.unit[0-9]" 1.txt>1.log
for /f "delims=:" %%a in (1.log) do set _%%a=true
del 1.log
for /f "tokens=1* delims=:" %%i in ('findstr /n .* 1.txt') do (
    if defined _%%i set "filename=%%j.txt"
    set "str=%%j"
    setlocal enabledelayedexpansion
    echo,!str!>>!filename!
    endlocal
)
pause
¸´ÖÆ´úÂë

aloha20200628

Óëlz·ÖÏíÒ»ÏÂÎҵĵ÷ÊÔ¹ý³Ì¡·
Ò»¡£ÏµÍ³»·¾³ÊÇwin8.1¼òÖаæ
¶þ¡£¸´ÖÆlzµÄÔ­Îĵ½¼Çʱ¾£¬ÓÃANSI±àÂë´æÅÌΪa.txt
Èý¡£±¾È˵ÄÅú´¦Àí½Å±¾´úÂëÓüÇʱ¾ÒàÑ¡ANSI±àÂë´æÅÌa.cmd
ËÄ¡£a.txtÓëa.cmdÔÚͬһĿ¼
Îå¡£ÔËÐÐa.cmd£¬ÍÏÈë»ò¼üÈëa.txt
Áù¡£½á¹ûÊÇÔÚa.txtĿ¼ÖÐÉú³É4¸ö*.txtÎļþ£¬ÍêºÃ¸´¿ÌlzµÄÐèÇóЧ¹û£¨Ô­ÎÄÖеÄ!...!¶ÎÂä²»»á¶ªÊ§£©¡£
      ÇëÎÊlzµÄµ÷ÊÔ·½·¨ÓëÉÏÊöÓкβ»Í¬£¿

qixiaobin0715

»Ø¸´ 24# aloha20200628
Â¥Ö÷µÄÐèÇóÊÇ£¬·Ö¸îºóµÄÎļþ±àÂëΪUTF-8

qixiaobin0715

»Ø¸´ 22# qd2024
ºóÐø»¹ÐèÒªÈçºÎ´¦Àí£¿

hfxiang

»Ø¸´ 10# qd2024

°ÑWordÎĵµÒÔGB2312±àÂëÁí´æΪ¡°×îаËÄ꼶ÍâÑаæÓ¢Óïϲá¿ÎÎÄ.txt¡±£¬¾­Windows10Ï·´¸´²âÊÔ£¬ÈçÏÂgawk£¨ http://bcn.bathome.net/tool/4.1.3/gawk.exe £©½Å±¾ÄÜʤÈΣ¨ÎÞÂÒÂ룩£º

gawk -vRS="Module[0-9]+ unit[0-9]+" "F_n{print F_n\"\n\"$0>F_n\".txt\"}{F_n=RT}" ×îаËÄ꼶ÍâÑаæÓ¢Óïϲá¿ÎÎÄ.txt
¸´ÖÆ´úÂë

terse

powershell Ö±½Ó´ÓwordÎĵµµ¼³ötxt ÕâÀïµµÃûΪ a.docx

<# : batch portion (begins PowerShell multi-line comment block)
@echo off & setlocal
powershell -noprofile -NoLogo "iex (${%~f0} | out-string)"
pause
exit 
#>
$word = New-Object -ComObject Word.Application
$file = (ls a.docx).FullName
$doc = $word.Documents.Open($file)
$text = $doc.Content.Text
$pattern =[regex] '(?i)(Module\d+\s+unit\d+)[\r\n]*(.+?)(?=Module\d+\s+unit\d+|$)'
$paragraphs = [regex]::matches($text,$pattern)
$doc.Close()
$word.Quit()
$paragraphs.ForEach({[IO.File]::WriteAllText( $_.Groups[1].Value+ '.txt',$_.Groups[2].Value,[Text.Encoding]::Default)})
¸´ÖÆ´úÂë

qd2024

»Ø¸´ 26# qixiaobin0715


     ÎÒÓÃÁíÍâµÄ´úÂë ¸øµ¥´Ê¼ÓÖÐÎÄ ÁíÒ»¸öÒªÇóU8

ÏÖÔÚ¿ÉÒÔÁË

qd2024

»Ø¸´ 28# terse


    лл ÎÒ²âÊÔһϠ¸Ðл