[VB6]read utf-8 txt file

txt檔案內容
1,安,安安,45483
2,安,安安,45483
3,安,安安,45483




Dim objStream As New ADODB.Stream
Dim txtFile() As String
Dim txtLine() As String
Dim dir As String: dir = "C:\"
Dim fName As String: fName = "test.txt"
Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "utf-8"
objStream.Open
objStream.LoadFromFile (dir & fName)
Dim strData As String: strData = objStream.ReadText()
Dim count As Integer: count = 0
txtFile = Split(strData, Chr(13) & Chr(10))
For count = 0 To UBound(txtFile) - 1
txtLine = Split(txtFile(count), ",")
Next


no module named sklearn.cross_validation

install the scikit-learn

CentOs 7.X

sudo yum -y install gcc gcc-c++ numpy python-devel scipy

pip install --user --install-option="--prefix=" -U scikit-learn

no module named numpy

sudo yum install numpy scipy python-matplotlib ipython python-pandas sympy python-nose

centOS 7.X install ipython

sudo -E easy_install ipython

新作業系統無法連到舊作業系統的網路磁碟(透過排程)

WIN2012連WIN2003的網路磁碟

如果排程設定用"特定帳號"執行 就要切換到那個帳號登入 才能找到網路磁碟


網路磁碟的權限登入帳號 測試無影響 應可不用特別設定

底下是大部分搜到的另一解決方式

gpedit.msc

電腦設定_Windows設定_安全性設定_本機原則_安全性選項
網路上有說明主機和客戶端都要改

重開機或cmd 執行gpupdate /force

(LM & NTLM 安全性較差 建議如果環境NTLMv2可以跑 就不用改此設定)

WINSERVER2012使用內建FTP的防火牆設定

參考了官方設定
http://technet.microsoft.com/zh-tw/library/dd421710(v=ws.10).aspx
發現透過內建的ftp.exe還是會被擋


最後找到一個辦法 將C:\Windows\system32\ftp.exe
加到允許的應用程式即可(控制台\所有控制台項目\Windows 防火牆\允許的應用程式)

IIS更換元件被佔用(IIS Worker Process)

打開IIS Manager 找應用程式集區(Application pool)，更新的應用程式pool先停止，更換元件後再重新啟動