四国の片田舎の小さな工場で商品設計を担当してきた老デザイナです。
プログラマではありませんので参考程度に・・・。
Q、また、いったん身に着けるとそんなに変わっていかない技術でしょうか?
A、手法やコードテクニックは、5年単位で激変すると思います。
必死こいてDDE通信を駆使してクライアント・サーバーシステムを開発したら瞬く間に陳腐化しました。
「エーイ!クソ!」と思ってDAOに転進したら時代はADOになってしまいました。
そして、今また、VB6.0が過去のものになろうとしています。
そういう意味では、常に自らの技術の陳腐化との戦いだと思います。
例えば、区切子で区切られた文字列を切り取る CutStr関数も、今と昔では書き方が違います。
Forと Insertを使うプログラマは、今日では皆無だと思います。
そして、Split を使う手法もいずれ別のそれにとって代わられるでしょう。
しかし、古いCutStr関数を書けるCOBOLの経験は決して無駄にはならないと思います。
要は、自らの技術に固執しないで5年単位で大胆に自己否定し続けることではないでしょうか?
Private Function CutStr(ByVal Text As String, _
ByVal Separator As String, _
ByVal N As Integer) As String
Dim strDatas() As String
strDatas = Split("" & Separator & Text, Separator, , 0)
CutStr = strDatas(N * Abs(N <= UBound(strDatas))))
End Function
[イミディエイト]
? CutStr("太郎/次郎/花子", "/", 2)
次郎
? Trim(CutStr("太郎 and 次郎 and 花子", "and", 2))
次郎
Private Function CutStr(ByVal Text As String, _
ByVal Separator As String, _
ByVal N As Integer) As String
Dim I As Integer
Dim J As Integer
Dim K AS Integer
Dim L AS Integer
Text = Text & Separator
L = Len(Separator) - 1
For I = 1 To N
J = K + 1
K = Instr(J, Text, Separator, vbTextCompare) + L
Next I
IF K > J Then
CutStr = Mid$(Text, J, K - J - L)
End If
End Function
Q、この技術はCOBOL(5年)を経験したものであれば独学できますでしょうか
A、可能だと思います。
四国の片田舎の小さな工場ですから、近くには、相談できるプログラマは皆無。
それでも、何とか、UNIX版、Windows版のクライアント・サーバーシステムを開発してきました。
やってやれないことはないと思います。
お礼
ご回答ありがとうございます AC+SQL一本に絞り、社内SE等で活躍できるとのこと がんばってみます