我們歡迎您!! …為服務大台北地區技師朋友,省公會台北辦公室成立了,開辦帶案技師各項業務掛件審查等服務,可在辦公室前臨時停車掛件,或通知會務至門口取件,交通便捷,請多加利用。台北辦公室位於台北市復興南路2段160巷8號1樓,近『科技大樓捷運站』,步行約 3 分鐘。…

如無法檢視此頁面,請點選我

土木技師電子報336 技師電子報於2000年9月21日創刊

本期編撰:徐適康
本期出刊:96年8月14日

臺灣省土木技師公會 發行

編者的話
 
   最近聽廣播,受訪問的專家建議,每個家庭收入之支配,可將收入分為六份,其中三份做為日常開銷,二份做為投資理財基金,另外一份做為能力提升進修基金,可見隨時充電,實為現代人生活中不可或缺的一部份。 
技術交流
 
   在Autocad做圖中常需將分析或整理完成之x,y資料會成圖形,如地層剖面圖或分析線狀圖,但先決條件須將視算表之資料依據所需之格式丟出,以下為一於excel中以vba將資料丟出支小程式,提供各先進參考指正。

 

Sub sort1()
' sort1 巨集表
' user 在 1999/7/8 錄製的巨集
' 快速鍵: Ctrl+
location1 = "a1"
filename1 = Range(location1).Value '檔名
location1 = "b1"
path1 = Range(location1).Value '路徑
i = 2
location1 = "a" & i
g1 = Range(location1).Value

Do Until g1 = "" Or Len(g1) < 1
location1 = "a" & i
filename2 = Range(location1).Value
aaa = path1 & "\" & filename1 & "P" & filename2 & ".p"
Open aaa For Output As #1 '開檔
g2 = "newro"
Do While Len(g2) > 4
i = i + 1
location1 = "a" & i
g2 = Range(location1).Value
location1 = "b" & i
bb = Str(Range(location1).Value)
location1 = "c" & i
cc = Str(Range(location1).Value)
If Len(g2) < 4 Then Exit Do
lcc = Len(g2)
lcca = InStr(g2, "+")
lccp = InStr(g2, "-")
If lcca > 0 Then
gg1 = Val(Mid(g2, 1, lcca - 1)) * 1000
gg2 = Val(Mid(g2, lcca + 1, lcc - lcca))
gg = Str(gg1 + gg2)
Else
gg1 = Val(Mid(g2, 1, lccp - 1)) * 1000
gg2 = Val(Mid(g2, lccp + 1, lcc - lccp))
gg = Str(gg1 - gg2)
End If
Print #1, g2; Space(10 - Len(g2)); bb; Space(10 - Len(bb)); cc; Space(10 - Len(cc)); gg '資料輸出
Loop
Print #1, "END"
Close #1
g1 = g2
Loop

公會公告  more...
台灣省土木技師公會 函之『檢送本會薪傳獎助學金申請辦法』乙案...

台灣省土木技師公會 函之『公告各縣市辦事處處長、副處長選舉相關事宜』乙案-96.08.02

北京奧運建築暨天津投資環境參訪團 ...

技師報 557 期  more...
社論-別讓選舉利益綁架民眾權益
引領臺灣紫斑蝶安全遷徙
省土木技師公會拜會 高速公路局李局長

活動通知  more...
栗縣96年度水土保持法規教育宣導暨水土保持服務團組訓
九十六年度國內自強活動-藤枝寶來荖濃溪泛舟知性之旅二日遊<中區>
鋼筋混凝土建築耐震評估與補強技術研討會
汽電共生廠鍋爐飛灰防治與爐管過熱防阻設計技術研討會-報名截止日期:96年8月17日(一)

社團活動  more...
登山社-大嶺古道(北興宮步道-麗山橋步道)
高爾夫球社-2007年8月季賽-200708-
棋橋社-96年度活動通知 活動時間:每月第四個週六14:00~18:30
第七屆土木技師盃攝影比賽

標案公告  more...

國史館國史館委託辦理「市定古蹟—臺灣總督府交通局遞信部」結構安全檢測工作<更正>

臺北縣永和市公所本市大新街店街環境景觀改造工程委託規劃設計監造

行政院農業委員會水土保持局第二工程所軟埤坑步道及環境改善工程及食水嵙周邊境改善工程等二件委託測設及監造技術服務

桃園縣龍潭鄉公所龍潭鄉公墓公園殯儀禮廳、納骨堂暨墓區排水溝等改善工程委外設計監造服務案

行政院農業委員會水土保持局第一工程所丁子蘭坑溪整治工程

交通部運輸研究所布袋港水深地形監測及地形變遷調查分析與漂流浮標流況調查

彰化農田水利會新分南圳渡槽災修工程(0607豪大雨復建)委託設計監造服務

雲林縣二崙鄉公所二崙鄉壘球場周邊設施興建工程委託規劃設計監造

雲林縣二崙鄉公所二崙鄉景觀設施改善工程委託規劃設計監造

雲林縣二崙鄉公所運動公園景觀改善工程委託規劃設計監造

嘉義縣布袋鎮公所嘉義縣布袋鎮體育公園球場及設備整建工程工程測設規劃設計

苗栗縣後龍鎮公所後龍鎮福寧、龍坑、南港、中和、埔頂等里道路排水及擋土牆改善工程委託設計及監造
內政部營建署太魯閣國家公園管理處『鐘樓、瓊樓結構補強及周邊設施整修工程』規劃設計監造服務<更正>
行政院農業委員會水土保持局第一工程所97年度區域性水土保持處理與維護工作先期規劃(一所)委託規劃技術服務
 臺北縣立海山高級中學96年度校舍整修工程委託技術服務公開評比案
高雄市政府工務局新建工程處七賢橋改建工程委託規劃設計及監造技術服務
苗栗縣政府96年度苗栗縣橋樑基本資料普查及目視安全檢測作業
 嘉義縣布袋鎮公所龍宮溪排水系統(大寮地區)-東港里村落圍堤改善工程<第一期A標>測設監造及預算編
行政院農業委員會水土保持局第一工程所97年度區域性水土保持處理與維護工作先期規劃(一所)委託規劃技術服務

 
回頁首▲
發  行 人:林永裕
執行單位:資訊委員會  輔導理事:梁詩桐、高 原  督導監事:余 烈
資訊委員會:廖祐新(主委)、鄭得志(副主委)、朱泰明(副主委)、林忠行、黃武雄、吳季鋼、宋明生、王啟河、
      林文隆、黃仁達、姚嘉偉、黃國艦、陳國星、潘其芬、周榮隆、張文隆、施滄洲、林摩西、
      唐雨耕、張志彰、謝百鉤、徐適康、陳柏伸、陳建權、劉長齡、朱弘家、林育信

版權所有,未經確認授權,請勿轉貼節錄

    Top   Back