彷徨えるサラリーマン https://ameblo.jp/gypsy-snr/ グチやら、ニュースへの突っ込みやら、勝手気ままに書いてま～す。 ja go言語でexcelを読み込むーtealeg/xlsxライブラリ tealeg/xlsxライブラリを使ってExcelを読み込むとき、

大抵のサイトの説明では、サンプルを引用している。

 

例えば、こんなところ

http://pineplanter.moo.jp/non-it-salaryman/2017/06/20/go-read-excel2/

や、こんなところ

https://qiita.com/from_kyushu/items/cf3b4516bb0ab2e830bc

 

ほかにもいろいろあったけど、まあだいたい同じような感じ

そのソースはこちら

package mainimport (        "fmt"        "github.com/tealeg/xlsx")func main() {        excelFileName := "/home/tealeg/foo.xlsx"        xlFile, err := xlsx.OpenFile(excelFileName)        if err != nil {                ...        }        for _, sheet := range xlFile.Sheets {                for _, row := range sheet.Rows {                        for _, cell := range row.Cells {                                text, _ := cell.String()                                fmt.Printf("%s\n", text)                        }                }        }}

これを参考に作ってみたけど、ビルドでエラーになる

#　command-line-arguments

,プロpグラム名：行：カラム sheet1.Rows undefined (type *xlsx.Sheet has no field or method Rows)

 

要するに、Rowsというのは、フィールドにも定義されてないし、メソッドもないよ・・・

と言っている。

この説明が書かれたのは2017年でもう3年以上たっているので、変更されたのかと思って、sheet.goを見ると・・・

 

type Sheet struct {
    Name              string
    File                 *File
    Cols                *ColStore
    MaxRow           int
    MaxCol            int
    Hidden             bool
    Selected          bool
    SheetViews      []SheetView
    SheetFormat    SheetFormat
    AutoFilter        *AutoFilter
    Relations         []Relation
    DataValidations []*xlsxDataValidation
    cellStore          CellStore
    currentRow      *Row
}

確かにRowsなんてない・・・
ということで、MaxrowとMaxColを使って、ゴリゴリ回してみた。
それがこちら
package main

import (
    "fmt"
    "log"

    "github.com/tealeg/xlsx"
)

func main() {
    file, err := xlsx.OpenFile("test.xlsx")
    if err != nil {
        log.Fatal(err)
    }
    for _, sheet := range file.Sheets {
        for row := 0 ; row < sheet.MaxRow ;row++ {
            for col := 0 ; col < sheet.MaxCol ;col++ {
                v, err1 := sheet.Cell(row,col)
                if err1 != nil {
                    log.Fatal(err1)
                }
                fmt.Println(v)
            }
        }
    }
}
一応これで実行したら、ちゃんと動いたので、とりあえず記録しておくことにした。
 

 

]]> https://ameblo.jp/gypsy-snr/entry-12631624707.html Thu, 15 Oct 2020 10:21:17 +0900 joruriインストール後にやったこと2-phpのインストールと確認 PHPのインストール

# yum -y install php

 

インストール確認

/etc/httpd/conf.d/ の中に php.conf があればよい。

 

localhostにアクセスした時にphpinfoを表示する。

/etc/httpd/conf/httpd.conf の

以下の部分

   <IfModule dir_module>
       DirectoryIndex index.html index.php ←追加
   </IfModule>

/var/www/html/ に index.php を作成

その中身

   <?php
   phpinfo();
   ?>

にして、ブラウザから

  http://localhost

でphp情報が出ればOK

]]> https://ameblo.jp/gypsy-snr/entry-12499801084.html Wed, 31 Jul 2019 15:11:09 +0900 罫線を引いてautofitさせる・・ついでに1行目に色を塗る Sub Seikei1()
'
' Macro1 Seikei1
'　①格子状の罫線を引く
'　②表題の色を変える
'　③折り返して表示するを解除して、自動で列と行の幅を設定する
'
Dim LastRow As Long
Dim LastCol As Long
Dim i As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row  '最終行を求める
    LastCol = Cells(1, Columns.Count).End(xlToLeft).Column  '最終列を求める
    Range(Cells(1, 1), Cells(1, LastCol)).Interior.ColorIndex = 35 '黄緑にする
    Cells.WrapText = False  '「折り返して表示する」を解除する
   
    '格子状に罫線を引く
    Range(Cells(1, 1), Cells(LastRow, LastCol)).Select
    Selection.Borders.LineStyle = xlContinuous
   
    '列の幅を自動で調節する
    For i = 1 To LastCol
        Columns(i).EntireColumn.AutoFit
    Next i
   
    '行の幅を自動で調節する
    For i = 1 To LastRow
        Rows(i).EntireRow.AutoFit
    Next i
End Sub

 

]]> https://ameblo.jp/gypsy-snr/entry-12499761479.html Wed, 31 Jul 2019 13:13:18 +0900 joruriインストール後にやったこと1ーバーチャルホストの設定 Joruriのインストール手引きに従ってインストールした後

 

/etc/httpd/conf/httpd.conf 編集

#
#Listen 12.34.56.78:80
Listen 80
Listen 9000 これを追加（このポートを使えるように）

 

/etc/httpd/conf.d/vhosts.conf 編集

# apache 2.4
<IfModule mod_authz_core.c>
  <Directory />
    Require all granted
  </Directory>
</IfModule>

<VirtualHost *:9000> 基本的にココを変更しただけ
    ServerName default
    DocumentRoot /var/share/jorurigw/public
    Alias /_common/ "/var/share/jorurigw/public/_common/"
    setenv LANG ja_JP.UTF-8編集
    RackEnv production
</VirtualHost>

]]> https://ameblo.jp/gypsy-snr/entry-12498002010.html Fri, 26 Jul 2019 14:03:29 +0900 引っ越し ヤフーブログが終了（閉鎖）されるといことで、こちらに引っ越してきました。

引っ越しそばはありませんが(^^;)

]]> https://ameblo.jp/gypsy-snr/entry-12497618248.html Thu, 25 Jul 2019 09:35:22 +0900 SmartVisionで録画データがダビングできないとき とりあえず、メモ書き程度に残します。
スマートビジョンで録画しようとして、ディスクが入っているのに「ディスクが挿入されていません」となる場合
いろいろとググっても、ちゃんとした回答はなく、
やれ、再インストールしろだの、
ｃｐｒｍ対応の機器かどうか調べろだの、
挙句の果てにサポートへ相談しろ・・と。
はっきり言って、ＮＥＣのサポートでも解決しませんでした。
で、
自分で（本当の原因はわかりませんが）突き止めた対処方法を書いておきます。
まず現象としては以下のとおりです。
・今までダビングできていたのに、急に上記メッセージが出る。
・ＤＶＤへのアクセスは普通にできる
・・と、こういうことを考えると、ＳｍａｒｔＶｉｓｏｎのほうに問題がありそうですが・・
実は問題はWindowsのほうにあります。
犯人はセキュリティです。
以下設定変更します。（windows10の場合）
設定→更新とセキュリティ→windowsセキュリティ→ウィルスと脅威の防止→ランサムウェアの防止→コントロールされたフォルダアクセス　をオフにする。
これだけです。
 
windowsは更新の際、たまに新機能を追加しますが、この時影響されるのだと思います。
上記以外にも、影響されたことがありました。
「インターネットに接続されていません」というダイアログが出たり・・
 
Necのサポートデスクのかた・・もしこれをご覧になったらここをオフにしなくてもいいような回避方法を広報してください。
 
 
]]> https://ameblo.jp/gypsy-snr/entry-12497319778.html Sun, 30 Dec 2018 14:35:53 +0900 LX70 X/D解体 新しくWIN8機を買ったので、VISTA機を解体。
使えるものは再利用しようと、マグロの解体ショーならぬ、PCの解体・・
と言っても、使えるものだけ取り出すだけなので、最小限の解体ですが。
この機種、「分解」で探してもなかなか出てこなくて、半分はトライ＆エラーでした。
 

イメージ 1

ハードディスクを外す（交換）するなら緑の部分。
電源は青の部分なんだけど、電源のカバーを外すのであれば、緑と赤の部分も外さないといけない。
フックみたいにかかっているのよねこれが・・
メモリの交換なら、赤だけでも大丈夫。
イメージ 2
まずは、ハードディスクの部分。
両方の端のこんなネジがあるのでこの2つを外せば、カバーは外れます。
イメージ 3
メモリ等を交換するときはこのネジを外してカバーを取ります。左右あるので両方ともですね。
青いところ（電源ボックス）を外す時もこれを取らないといけないんですよねぇ。
イメージ 4
こんな感じ。
イメージ 5
裏カバーを外したところ・・・
赤いのがメモリ、青いのがCPUファンですね。なんとまあホコリもぐれ・・・
まあ、買ってから一度も外してないので、いたしかたないか・・・
 
イメージ 10
メモリを取り外し。
 

イメージ 6

電源ユニットを」外すときはここ・・左右２箇所ずつある。今回一度外したけれど、関係ないので、外したけどもとに戻した。(＾◇＾)
イメージ 7
赤い丸のところのネジを外せば、ハードディスクのユニット部分は簡単に外れます。
うえの写真は外したところ。
イメージ 8
ハードディスクのユニットからハードディスク本体を外すには丸のネジ（裏もあります）計４コを外します。
イメージ 9
外したトコ・・・・・・。
イメージ 11
ファンを取り外したところ・・・ヒートシンクとファンの間のホコリがすごいことになっていた。(+o+)
ホコリを吸い取って、シンクを外した・・・・
とり出したＣＰＵ・・・
イメージ 12
最近のＣＰＵを初めて見た・・ポチポチがない・・・
イメージ 13
と、いうことで、自分で再利用できるものを取り出した後。
メモリ・ＣＰＵ・ハードディスク・ファン＋シンク・・・・これを取り出した後は、リサイクルセンター行。(^^)/
 
]]> https://ameblo.jp/gypsy-snr/entry-12497319774.html Sun, 23 Feb 2014 20:52:14 +0900 ひっそりと ヒッソリと・・・・
 
スマホデビューしました。)^o^(
 
操作に戸惑っています。・・・・・・慣れるまでまた時間がかかりそう。
 
ちなみに、アクオスフォンXx・・・・新型です。
]]> https://ameblo.jp/gypsy-snr/entry-12497319758.html Mon, 11 Mar 2013 17:55:21 +0900 放置してました。 今年初めてが、今日・・・・
12月はまるっきり放置(^o^)
 
まあね、フェィスブックなんぞをやったり、飲みが続いたりで・・・
 
まあ、今年もボチボチ・・・
 
 
]]> https://ameblo.jp/gypsy-snr/entry-12497319757.html Tue, 22 Jan 2013 18:23:05 +0900 VBAで1004実行エラーなんて（怒） こんなコード、無いもんと一緒だ！
 
ふつうにループしている最中にこれで落ちる。
しかも、ステップ実行してみると、ふつうに終了するから、何が悪いのか、全然わからない。
いろいろとコードを変えて実行してみると、どうも、クリップボードに問題があるようだ。
 
VBAの中で、頻繁にカット＆ペーストすると、コード1004で落っこちる。
 
たとえばこんなの
 
　Do  Until  rs.EOF  = True
        If  ix > 38 then
                With  ActiveWorkbook.Sheets(1)
                       .Range("A1:CA1").Copy
                       .Range(Cells(ix,1),Cells(ix,79)).Paste
                End With
         End If
        With  ActiveWorkbook.Stheets(1)
                .Cells(ix,1).Value = rs.Fields("業務コード")
　　　　　　　　.Cells(ix.2).Value = rs.Fields("業務名")
　　　　End With
        rs.MoveNext
  Loop
 
要するに、最初の行のセル設定をそのままコピーして該当のセルに張り付けることで、面倒くさいセル設定を避けようとしたんだけど、ここがまずかったみたい。
 
でも、カット＆ペーストのところでは落っこちずに、シートへアクセスの内容を転記しようとしたところで落ちる。
これで、どれだけの日数を費やしたか・・・・
大体、90件目くらいで、必ず落ちる・・・・
わけわかんないよね・・・・これって
でもって、赤いところをコメントでつぶしたら、すんなり走るわけよ・・・・
 
しかたないので、赤い部分は、キチンとセル設定したよ。
（セルの結合とかも含めてね）
 
ほんと、疲れた・・・・・・・・
 
          
 
]]> https://ameblo.jp/gypsy-snr/entry-12497319753.html Wed, 28 Nov 2012 17:30:45 +0900