10/15/2019

Compute


  • [0] Galaxy Book Flex 13.3?:  1.15k., Ice Lake, 63WhLPDDR4x?
  • [2] "HP Elite Dragonfly" 13.3? : 1.14k. (2.5lbs.), 8thGenWiskeyLake, WIFI6nanoSIM, $1150, 24hr. four-cell 56Wh. & 1W FHD (400nits). --Old; HP teased that a refreshed iteration next year may feature 10thGen Ice Lake.
  • [1] "LG gram 14" 2-in-1 (model 14T90N--2020): 1.15k. (2.53lbs.), 10thGen, $1500, 20hr. ?-cell 72Wh, . --?GB of RAM; LTE?, , eSIM?. prnewswire.com/news-releases/new-lg-gram-lineup-proves-that-portability-performance-and-battery-life-can-coexist-300972820.html  "That's not bad going at all, although the use of DDR4 instead of LPDDR4X may raise some eyebrows.   .... it'll only support up to 16GB of RAM, but in exchange, LG reckons it'll last over 20 hours on 1 charge."
  • "HP spectre x360" 13.3 : 1.30/.27k. (2.88lbs.), 22hr. ?Wh,
  • "Fujitsu Lifebook" 14 : . 
pl: allegro.pl/laptopy-uszkodzone-4180,  mediamarkt.pl,  saturn, twenga-solutions.com/en/insights/ecommerce-poland-facts-figures-2016
de: new: idealo.de , used: heinzsoft-shop.de
tabletmonkeys.com/new-tablets



C: > Users > Owner > My Documents > Visual Studio 2010 > WebSites > WebSite1 

7/07/2019

Schemata : Religio Proto-Indo-European Est Ab Origine

  • Aborigine European-identity insight : Proto-Indo-European (3500 B.C.), originally, at the beginning, had the same supreme god ("lord god"). All of these 9 branches of Indo-European languages, etymologically, reference the same oldest supreme, "shinning/daylit/heaven/sky-father", god/deva/dewos/theos/divinethe same proto-IE root stem word meaning "to shine" (deity, wikipedia.org/wiki/Dyeus) (But English "day" is from a different root!) : Dag-da "day/shining-divinity" (Celtic) | Týr father  (Teutonic) | Ju-piter (Latin) | Zeû[s] Pater, europa ("wide-eyed" thus all seeing) was the word used to refer to Zeus ; later used to name the continent. (Hellenic) | Deivos, later called Rod. (Slavic) | Dievas (Baltic) |  Tiwaz (Anatolian | "Dyeus Pita" (Vedic Sanskrit) | Daeva (Avestan). (Suffix us/os/os/as/az/óss "meaning "god".)      ...All these "daylit" names are dialectical variants of the same word.
    Or, as the later, Iron Age, Julian the Apostate, the last non-Christian emperor of the Roman Empire (Constantinople), writing on Jupiter allegorically wrote, "...the Sun is the parent of us all... ...[like] 'The One,'... ...the light of the Sun bears the same relation to things visible as Truth does to things intelligible. ...this Whole... ... ...One indeed is the Creator of all things... ... ...the source... ... ...soul... ... ...the 'Invincible Sun,'..." (tertullian.org/fathers/julian_apostate_1_sun.htmᛋ 
  • In Slavic, Norse, and Baltic mythologies, the world was represented by a sacred tree, usually an oak.  "True" etymology is "tree" (Celtic, Teutonic, Baltic). ("The original meaning of the root was doubtless 'to be firm, solid,' and from it is derived not only the family of English TREE but also that of English TRUE. Note that the semantic evolution has here been from the general to the particular, from 'solid' to 'tree' (and even 'oak' in some dialects), and not the other way around.") In the native religion of Baltic Latvia, the word "faith" means tree (as does the same root for Celtic "druid") ;  their ancient symbol is Austras Koks "sun-tree" (Baltic) (and their other symbol swastika 卍 ).  Akin to the Irminsul (Teutonic) meaning large-column (akin to Yggdrasil) columns devoted to the supreme sky-god, ref. Widikund 970 A.D. ; "Jupiter Columns" (Latin; and Kalpavriksha (Sanskrit) tree-of-life/"world tree" or the Ashvattha bodhi tree (Rig Veda and Upanishad;  and axis mundi (Latinmeaning pillar of world ;  Maypole (Teutonic, Baltic). 
         “To the Ancient Egyptians, the Tree of Life represented the hierarchical chain of events that brought everything into existence.”
  • Heilbringer/Hælend—healer/holier/savior/son of god (from whole, holy/Hālig, heal, heil/hail/wassail/hello/hi, heal, health (Teutonic)) :  Krishna (Sanskrit), Mitra (Avestan Parsi), Odin/Wōdan/*Wōðanaz ("lord of frenzy") (Teutonic) stem meaning "raging"wot (god), word, whisper, water, wet, wise, wit, and witch/wicca/wizard are all from this stem ; related to vātēs (Latin) and fáith (Celtic) both meaning "seer, prophet", Dio-nysus (Hellenic) etymology is "deity of (world-)tree" the axis mundi.
    • (Thor slays serpent. Indra slays serpent.)  Calvert Watkin's formula, "Hero slays [gwhen] dragon [snake, worm]."  (—The dragon/snake, spouting fire, is the world tree/axis mundi/the One/Apeiron (Hellenic)/ground of being/undifferentiated/"the allfather"/Pan/Zhuangzi's "obliterating [of pairs of opposites] unity with the Dao".  —Slays the dragon—slays the ego—slays the "thou shalt" (Law) says Nietzsche's Zarathustra—overcoming Eliot's "Wasteland" of inauthentic life, a word lifted from Celtic grail legend’s Parsifal hero’s journey.  ..."The hero as archetypal scapegoat or eniautos daimon [sun king/year king].")  (Sigurd understood birds’ speech after eating Fafnir’s heart, and Odin transformed himself into a serpent in order to obtain the mead of poetry, in Norse carvings the snake merges into the tree, etc.) 
      • Wod, Wut, and Wodan/Odin means inspiration, ecstasy (ex-stasis)/fury, rage, madness/insanity.  —"...menos came from the heavens, heroes owe their great deeds to it" :  menos (Hellenic) | manas (Sanskrit) | mania (Latin), wut (Teutonic).  Virtus, Audacia, Wut, Woths, Ódhr, Furor, Dásacht, Thyás, and Ferg : the Indo-European sacred fury. The substantial original equivalence of the concept of the Virtus (Sanskrit) and the Wut (Teutonic), remarked by Roman authors themselves (who deified Virtus as the opener of the gates of divine glory to their military commanders) to describe the magical and sacred charisma venerated in the field of martial arts among the Celtic and Teutonic tribesmen. Comparing Latin, Hellenic, Teutonic, Celtic, and Sanskrit terms, the various Indo-European expression of the sacred fury as a driving, transfiguring and mystical force in which the warrior took over human and extra-human traits, etymologically closely related to the invocation of divine light and the "storm" in the warrior sacrifice.
      • "All Indric religious systems have as their ultimate purpose life-transcendence (moksha) because all assume that sentient existence is a false perception of reality (maya), the facade behind which lies The One (tat ekam), brahman, who, formless, and because formless eternal, is the sole reality." 
    • ātman (Sanskrit)—to breath (pneuma and psychē—to breath, thymos—to fume (Hellenic), ghost/Geist—to breath (Teutonicspiritusflame, anima (Latin), soul—"of sea" (Teutonic, Baltic), dúch—to breath (Slavic).  ...Ātman is the Kantian "first principle" ;  and is identical with the transcendent self Brahman.  ...Aristotle (384 B.C.) defined the soul, or Psūchê, as the "first actuality" ("Actus Primus") of a naturally organized body, and argued against its separate existence from the physical body. ...Fukuyama (Hegel as interpreted by Kojève as interpreted by Fukuyama) argues that the desire of identity groups for recognition/dignity/respect (thymos—"the seat of judgments of worth", the “master concept”)—the obsessive particularism of ethnic identification—is the key threat to liberalism.  ...I/iche/ego is the soul said Kant ;  later, (ground-of-) being, self, identity have been referents to soul.  ...Ancient Egypt (whose most ancient DNA was European, 2018 cemetery study) god Thoth created the world by the force of his word.  Along with this Thoth concept, most of the Torah's stories were "appropriated" from Egypt, Hellenes, Sumer, Parsi, and Canaan by the Judean elites while writing the Torah in Babylon (then, as it is written in the Torah, when they returned from Babylon, they mysteriously found it, the scroll, hidden in the wall of the ruins of the old temple).  Even Moses name and his law was copied from an Egyptian story.  And, Samson, ark/flood, garden/Eden, etc. were copied from other host races. 
      • Dharma (Sanskrit), darna (Baltic), and harmonia (Hellenic)all 3 come from the same root word (ar-) meaning "to fit together" ("reconciliation of opposites").
      • Karma from root kwer means to do (Sanskrit), wyrd from root wert means to turn or rotate and Örlög meaning ur-law (Teutonic) | logos meaning law/coda/word (Hellenic), dán loaned from Latin don (Celtic), and the Fates/Moreia from root bha means voice (Hellenic). 
  • mythos/religioheidinn sidr ("heathen custom/rite")/ethnikos/pagan/gens-tile
    • Ásatrú (wikipedia.org/wiki/Aesir-Asura_correspondence) is a form of ancestor-worship.  (As of 2007, Ásatrú is a religion officially recognized by the governments of Iceland, Norway, Denmark, and Sweden.  (While Romuva is recognized by Lithuania—rom (Baltic) equals ram (Sanskrit) and Dievturība is recognized in Latvia ;  and numerous pagan Slavic sects in Slavic speaking countries.) : 
      • (Ása-trú refers to) Æsir (Teutonic) is the plural of ássóss "god", or anses "half-gods".  Word-stem from Proto-Indo-European *h₂énsus "life force (cf. Avestan aŋhū "lord ;  lifetime", ahura "godhood", Sanskrit ásu "life force".  It is widely accepted that this word is further related to *h₂ens- "to engender" (Hittite hass- "to procreate, give birth", Tocharian B ās- "to produce").  
  • "Indo-Aryans [the earliest Hindus], like the Greeks and Romans, maintained a sacred fire [altar means fire] in the household that represented the family and was never supposed to be extinguished unless the family [male] line itself was extinguished. In all of these cultures, the fire was worshiped as a deity that represented the health and well-being of the family—not just the living family, but also the family's dead ancestors stretching back over many generations. Religion and kinship are closely connected in tribal societies. Ancestor worship is particularistic... You have duties only to your ancestors... 'The funeral obsequies could be religiously performed only by the nearest relative... They believed that the dead ancestor accepted no offerings save from his own family; he desired no worship save from his own descendants.' Moreover, each individual has a strong interest in having male descendants, since it is only they who will be able to look after one's soul after one's death. As a result, there is a strong imperative to marry and have male children; celibacy in early Greece and Rome was in most circumstances illegal. The result of these beliefs is that an individual is tied both to dead ancestors and to unborn descendants, in addition to his or her living children. As Hugh Baker puts it with regard to Chinese kinship, there is a rope representing the continuum of descent that 'stretches from Infinity to Infinity passing over a razor which is the Present. If the rope is cut, both ends fall away from the middle and the rope is no more. If the man alive now dies without heir, the whole continuum of ancestors and unborn descendants dies with him... His existence as an individual is necessary but insignificant beside his existence as the representative of the whole.' ...Belief in the reality of dead ancestors binds individuals together on a far larger scale than is possible in a family... The 'community' is not only the present members of the lineage, clan, or tribe; it is the whole rope of descent from one's ancestors to one's unborn descendants." (Fukuyama) ᛟ 
  • Teutsch/Deutsche/Týr/Tíw/Thing/Mannus ᛏ (Teutonic) all cognate to Manu (Sanskrit). —And Manu's twin/hermaphrodite : Yemo, Yama (Sanskrit), Yima (Avestan), Ymir (Norse), possibly Remus (Roman) (< earlier *Yemos (Old Latin)).
  • thunder god : Thor/Donnar ᚦ uses axe (Teutonic) | Perun uses axe (Slavic) | Perkūnas ("lord of oaks") uses axe (Baltic) | Indra uses axe (Sanskrit). —Cognates :  Fjörgynn/Thor (Norse), rain god Parjanya (Sanskrit), Perkūnas (Balt), and Perun/Perúnú (Slav).
  • Sun goddess (Celtic, Hellenic, Latin, Teutonic, Avestan Parsi, Sanskrit, Hittite). And moon god husband (Slavic, Teutonic, Baltic).
  • "horse twins" : (Baltic, Teutonic, Hellenic, Latin, Ashvins : sunrise and sunset via chariot Sanskrit). (the solar chariot) ("Indo-European linguistic connections between Norse Sól, Sanskrit Surya, Common Brittonic Sulis, Lithuanian Saulė, Latin Sol, and Slavic Tsar Solnitse.")
  • 3 seasons—3 holi-day feast-days : 
         1.)  Easter—an Ôstara/Easter fertility goddess : In three traditions (Sanskrit, Hellenic, Baltic), the Dawn is the "daughter of heaven", *Dyḗus. —Dawn goddess : Uṣás (Rigveda Sanskrit), Ušå (Avesta), Eos (Hellenic), Aurora (Roman) is a reflection of Eos (Greek), Ēostre (Anglo-Saxon), Ôstarmânôth (High Deutsch), Aušra (Lithuanian) was still acknowledged in the sixteenth century.
         2.)  Midsummer solstice.
         3.)  Maruts (Sanskrit)/Wild Hunt/Einherjar, Yule ⊕ (Teutonic). 
  • ∴ There is a single Proto-Indo-European religion.  ∵ One clade (Y Haplogroup) conquered and then mixed with the conquered.  —In Europe, Pontic-Steppe R1a/b men (descendants of eastern Cro-Magnon Hunter-Gatherers), Aryans, conquered Europe's original I1/I2 men (descendants of western Cro-Magnon Hunter-Gatherers).
  • "Absence of evidence is not evidence of absence." (proverb)

5/09/2017

Average January Temperature

world-climates.com/continent-climate-europe/
Average January Temperature:
Riga: -5.
Odessa: -1. / Lviv: -4. / Kiev: -5.
Krakow: -3.
Kosice: -2.6 / Bratislava: -0.6
Prague: -1.
Ljubljana: +0.1
Berlin: +0.5 / Freiburg: +2.5
Luxembourg: 0.0 holiday-weather.com/luxembourg/averages/
Brussels: +3.15
Portland: -6.
Lincoln: -6.

1/18/2016

ads

feed: http://www.programmabilities.com/feeds/posts/default?orderby=UPDATED

 sitemap: webmasters.stackexchange.com/questions/96421/how-to-add-sitemap-to-my-blogspot-blog :  http://www.programmabilities.com/atom.xml?redirect=false&start-index=1&max-results=500

https://my-newest-project-with-sergey.firebaseapp.com/


https://www.amazon.com/a-warm-mirror-neuron-on-a-memory/dp/B00GQFT6QM/?tag=programmabi0e-20

Booking.com
my quantcast quantified adchoices:



7/05/2015

Rentier


4/18/2015

Bucket List:

Bucket List:  (Red living) 

  • England:   Conrad, Woolf, Hobbes, Orwell, Huxley, T.S.Eliot, H.Pinter, Maugham, Boole, Marx, Carlyle (London)L.Carroll,
  • Ireland:     Yeats, Joyce (& France?), 
  • Scotland:  James Clark Maxwell, 
  • Italy:         E.Pound, Machiavelli, Gramsci, 
  • France:     Sartre, Derrida, Louis-FerdinandCéline, Proust, Saussure, Foucault, Alen deBenoise, RanaudCamus
  • Deutcsh:   Frege,
  • USA:        Rosenfels, C.ShannonJ.London, Pierce, Dreiser, Julian.Jaynes, Nabokov, Robinson JeffersD.Reed, HardinMacDonaldLakoff, G.Johnson

6/02/2014

Notes

FYI:
  • The 'magnetic pole' of the earth is caused by the rotation of the liquid iron inside the earth.  -- If that iron was solid, then there would be no 'magnetic pole'. 
  • All of earth's water was brought to earth via icy meteors.  This water was created by the explosion of dieing suns (the only time when Hydrogen fuses with Oxygen).

1/14/2013

Diet

"There was a theory, increasingly well supported, that eating is what killed you. They found that rats on extremely restricted diets, rats who ate very few calories, lived impressively long. They saw the same results with other animals, up to and including chimpanzees. They suspected, but could not prove, the same was true of humans. Every little bite of food was another step towards death."

Read more: digitaljournal.com/article/341150#ixzz2Htq0xcah


barrons.com/articles/why-edward-thorp-only-owns-berkshire-hathaway-1521547200

ketones via low-carb diet (for example: meat or fish with salad, but no sugar, grains, rice, starchy vegetables)

9/19/2008

IIS hosting

TODO:
  1. From a PC use the Windows Professional's IIS to host an .aspx page that uses SQL Server Express 2005.
    1. boutell.com/newfaq/creating/hostmyown.html
    2. Include some notes & directions howto:
      1. Open up the IIS window on the PC by doing so: >My Computer >Manage >Services and Applications >IIS
      2. >Local Disk E: >Inetpub >ftproot (Go here to check the stuff that gets hosted (Thus FTP to here).)
      3. Then go to http://localhost/ in a browser's address bar to view the test .aspx page
      4. Etc...
  2. Take the dynamic IP of our IIS and put it in the browser's address bar to test. (Ex. http://192.168.254.2/Default.aspx)
  3. Get a static IP from DynDNS.com and add it to the IP input field in mydomainname.com's GoDaddy dashboard. Thus mydomainname.com with GoDaddy will point to the IP of our IIS server hosting PC.
  4. We are getting an error when our page includes a database stuff: aspspider.com/resources/Resource170.aspx
  5. Add mydomainname.com to here domains.live.com (What this service does, I do not know yet.)
Much later TODO:
  1. Set up a mail-server on the said IIS (or activate it if one is included with it)
  2. Take the DNS settings from Hotmail and add them so email messages to mydomainname.com's domain name get sent to his said domain name (ex. bob@mydomainname.com).
  3. MX (Mail Exchange) records are used in DNS records (or Zone files) to specify how email should be routed.
Extras
  1. With IIS7 Rewrite module a website can have a .htaccess file. See hanselman.com/blog/ASPNETMVCAndTheNewIIS7RewriteModule.aspx.

7/11/2008

VB: Regular Expressions, etc...

Regex.IsMatch("subject", "regex") ' Checks if the regular expression 
' matches the subject string.

VB: using Controls collection

' Clears textbox controls' content on the form using 
' Controls collection.
Dim intX As Integer
Do While intX < text = "" intx =" intX">

ViewState("UrlReferrer")

Sub Page_Load()
    If Page.IsPostBack = False Then
        ' Store URL Referrer to return to home page.
        ViewState("UrlReferrer") = Me.Request.UrlReferrer.ToString()
    End If
End Sub

Sub CancelBtn_Click()
    ' Redirect back to the home page.
    Me.Response.Redirect(CType(ViewState("UrlReferrer"), String))
End Sub

ASP confirm

 gt-a-s-p:button id="ConfirmOnClick" runat="server" onclientclick="return
confirm('You\'re sure you want to do this?');" text="Launch Airstrike"> lt/ a-s-p:button> 

ASP .NET set focus to a control (javascript)

body onload="javascript:document.forms[0].txtFirst.focus();"

7/10/2008

check for DbNull

Check for DbNull:
<_a s p :Label runat="server" ID="Label6" Text='< % # IIF(Typeof(
Eval("ShippedDate")) IS DbNull,"No Date",Eval("ShippedDate")) % >' />
or
<_%# ((Convert.IsDBNull ... I am telling ASP to give the picture a height value only if the value in the database is not NULL. I could've done this in the SQL instruction, but I decided to do it inside the Datalist.
<_%# ((Convert.IsDBNull(DataBinder.Eval(Container.DataI tem, "height"))) ? "" : "height = " + DataBinder.Eval(Container.DataItem, "height")) %> 
Or maybe this for NULLs?: <_%# Eval("First", "{0}, ") %_>
Or check for NULL in T-SQL:
ISNULL(check_expression, replacement_value) If 1st is NULL, return 2cnd.

7/03/2008

Search Stored Procedures

This searches all the Stored Procedures in 1 SQL Server database for the said string. I tested it in Query Analyzer and it found all the Stored Procedures that had occurrences of my "lq_Campaign" in 1 database:
SELECT ROUTINE_NAME, ROUTINE_DEFINITION
FROM INFORMATION_SCHEMA.ROUTINES
WHERE ROUTINE_DEFINITION LIKE '%lq_Campaign%'
AND ROUTINE_TYPE='PROCEDURE'

Here is another way

Below query you can searcg any table, stored procedure or views what ever has that expression as a column or object name.

SELECT * FROM SYSOBJECTS WHERE ID IN (SELECT ID FROM SYSCOMMENTS WHERE TEXT LIKE ‘%PRODUC%’)

The query produced all the object names--where ever it finds expression like ‘PRODUC‘.

Model View Controller

  • Primary goal is to separate the things that change from the things that do not.
  • Model is the data representation.
  • View is the presentation of the model.
  • Controller responds to events and modifies the model.
  • Model notifies the views to update the presentation.

5/09/2008

SQL Server 2005 Reports: tips

SSRS:
  • Page Header:
    • TextBox via Expression...: =Globals.ReportFolder & Globals.ReportName
  • Page Footer:
    • Page Footer: TextBox via Expression...: =Format(Globals!PageNumber) & " of " & Format(Globals!TotalPages) & " pages"
    • ="Printed by " & User!UserID & " on " & DateTime.Now.ToString()
    • ="Execution Time: " & IIF(System.DateTime.Now.Subtract(Globals!ExecutionTime).TotalSeconds < 1, "0 seconds", ( IIF(System.DateTime.Now.Subtract(Globals!ExecutionTime).Hours > 0, System.DateTime.Now.Subtract(Globals!ExecutionTime).Hours & " hour(s), ", "") & IIf(System.DateTime.Now.Subtract(Globals!ExecutionTime).Minutes > 0, System.DateTime.Now.Subtract(Globals!ExecutionTime).Minutes & " minute(s), ", "") & IIf(System.DateTime.Now.Subtract(Globals!ExecutionTime).Seconds > 0, System.DateTime.Now.Subtract(Globals!ExecutionTime).Seconds & " second(s)", "")) )
  • Body:
    • TextBox via Expression...: =Format(Sum(Fields!Account.Value), "C0") (Works if column is numeric data type.)
    • Alternate rows by adding the following to the row via Properties > BackgroundColor expression of your detail row: =IIF(RowNumber(Nothing) Mod 2, "White", "Gainsboro")

3/28/2008

SSIS > VS Export wizard: table to Excel

After using the SSIS > VS Export wizard for table to Excel, you must add DROP TABLE Query to the Event Handlers tab or else it will error the second time it is reRun. SSIS

SSIS > VS Import wizard for Excel to table:

  • Be sure to only checkmark Results$.
  • Be sure to Select Delete table option.
  • Be sure to Change Results$ name to Destination table name.
  • If there is an error, it is often because a row in Excel has a NULL but the table column is NOT NULL (so add a blank to the Excel field).

3/07/2008

ReplaceCommasWithPipes.vbs

' Currently this VBScript is set to replace-commas-with-pipes for every file that is 
'in the folder where this VBScript sits:
' Before run it do the following:
' 1. Open VBScript in text editor
' 2. Set the parameters:
'        cFolder_Name = "." ' current directory
'        cOnlyOneFile = False ' set to True if I want to process only one file with name set below
'        cOnlyFileName = "thisfile.csv"
' 3. Place the VBScript into the target folder
' 4. Run it by double-click
' Notes: http://groups.google.com/group/microsoft.public.excel.misc/browse_thread/thread/79ddd204ebb88287/be5d195da9241df9%23be5d195da9241df9
' -------------------------------------------------------
On Error Resume Next

const cFolder_Name = "."  ' current directory
const cOnlyOneFile = False ' False, So all files in the folder.
const cOnlyFileName = "thisfile.csv" ' Uses this if the above was True (only wanted to process 1 file).

Set oFSO = CreateObject("Scripting.FileSystemObject")

' Get folder:
Set oFolder = oFSO.GetFolder(cFolder_Name)
If oFolder Is Nothing Or Err.Number <> 0 Then
  MsgBox "Can't get a folder for search files. " + vbCRLF + "Please check the folder name." + vbCRLF + Err.Description, vbCritical, "Fatal error!" ' I will probably comment this out when this VBScript runs automatically as a scheduled job.
End If

Set oFiles = oFolder.Files
If Err.Number <> 0 Or oFiles Is Nothing Then
  MsgBox "Can't get a list of files of folder." + vbCRLF + "" + vbCRLF + Err.Description, vbCritical, "Fatal error!"                               ' I will probably comment this out when this VBScript runs automatically as a scheduled job.
End If

Cnt = CInt(0)
For Each oFile In oFiles
  If oFSO.GetExtensionName(oFile.Name) = "csv" Then ' Checks for "csv" file extension.
    If (cOnlyOneFile And (oFile.Name = cOnlyFileName)) Or (Not cOnlyOneFile) Then
      Call ReplaceSymbols(oFile.Name) 
      Cnt = Cnt + 1
    End If
  End If
Next

Senmail()

MsgBox "Replacing is done. Total number of files had been processed: " + CStr(Cnt), vbExclamation, "Message..."                                    ' I will probably comment this out when this VBScript runs automatically as a scheduled job.
' cleanup
Set oFiles = Nothing 
Set oFSO = Nothing

' Find-and-replace:
Sub ReplaceSymbols(oFileName) ' AKA "File.Name".
  If oFSO.FileExists(oFileName) Then 
    Set oTextFile = oFSO.OpenTextFile(oFileName, 1, False) 
    sFileContents = oTextFile.ReadAll 
    oTextFile.Close 

    Set oRegEx = CreateObject("VBScript.RegExp") 
    With oRegEx 
      .Global = True 
      .IgnoreCase = False 
      .Pattern = "," ' Or vbTab or "|" etc...
      sFileContents = .Replace(sFileContents, "|") 
'      .Pattern = "\|"                               ' reverse replacing
'      sFileContents = .Replace(sFileContents, ",") 
    End With 

    Set oNewFile = oFSO.CreateTextFile(oFileName, True) ' Maybe oNewFile is not needed--it just could have been called oTextFile.
    oNewFile.Write sFileContents 
    oNewFile.Close 
  End If
End Sub


' NOTE: This first way would only work on my PC, not on the other user's PCs; so I must use the second snippet, Senmail(), at the bottom. NOTE: If I made the changes marked "future testing" this might work.
' Send email to Jon Doe. --If the PC this runs on is not set right, this email will not get sent. 
'Set oMessage = CreateObject("CDO.Message") 
'oMessage.From     = "Generated automatically for AWARE " ' NOTE: If future testing: Comment this out.  
'oMessage.To       = "jon.doe@jd.com,jon.doe2@jd.com"       ' NOTE: If future testing: Should be ";".                                      
'oMessage.Subject  = "AWARE: Extracts done."       
'oMessage.Sender   = "jon.doe@jd.com"                       ' NOTE: If future testing: Comment this out.                                               
'oMessage.TextBody = "AWARE: Commas replaced with pipes." 
'oMessage.Send

' NOTE : Is using MS Outlook API to send e-mails. So check If MS Outlook installed on a workstation before a using of this script.
Sub Senmail()
  Set objOutlook = CreateObject("Outlook.Application")
  Set objOutlookMsg = objOutlook.CreateItem(0)
  With objOutlookMsg
' This line caused it not to even popup warning, so leave it off:   .From     = "jon.doe@jd.com "   ' "Generated automatically for AWARE "
     .To = "jon.doe@jd.com; jon.doe2@jd.com; jon.doe3@jd.com; jon.doe4@jd.com"   
     .Subject = "AWARE: Extracts done."
' This line caused it not to even popup warning, so leave it off:   .Sender   = "jon.doe@jd.com"   ' NOTE: jon.doe2's email is automatically inserted here because it is sent from here Outlook.
     .Body = "AWARE: Commas replaced with pipes. [Note: This message was generated and sent automatically.]"
     .Send
  End With
  Set objOutlookMsg = Nothing
  Set objOutlook = Nothing
End Sub

header adsense code