traveh's questions

Aqui está o makefile:

.PHONY: all clean

CC = gcc
CFLAGS = -g -m32 -std=c17
BIN = bin

ALG_SRCS = $(wildcard alg/*.c)
COMMON_SRCS = $(wildcard *.c)
ALG_OBJS = $(patsubst alg/%.c, $(BIN)/%.o, $(ALG_SRCS))
COMMON_OBJS = $(patsubst %.c, $(BIN)/%.o, $(COMMON_SRCS))
ALG_EXES = $(patsubst alg/%.c, $(BIN)/%, $(ALG_SRCS))

all: $(ALG_EXES)

$(BIN)/%: $(BIN)/%.o $(COMMON_OBJS) | $(BIN)
    $(CC) $(CFLAGS) -o $@ $^ -lncursesw

$(BIN)/%.o: %.c | $(BIN)
    $(CC) $(CFLAGS) -c $< -o $@

$(BIN)/%.o: alg/%.c | $(BIN)
    $(CC) $(CFLAGS) -c $< -o $@

$(BIN):
    mkdir -p $(BIN)

clean:
    rm -rf $(BIN)

Exemplo de execução:

$ make
mkdir -p bin
gcc -g -m32 -std=c17 -c alg/basic.c -o bin/basic.o
gcc -g -m32 -std=c17 -c graph.c -o bin/graph.o
gcc -g -m32 -std=c17 -c grid.c -o bin/grid.o
gcc -g -m32 -std=c17 -c main.c -o bin/main.o
gcc -g -m32 -std=c17 -o bin/basic bin/basic.o bin/graph.o bin/grid.o bin/main.o -lncursesw
gcc -g -m32 -std=c17 -c alg/colors.c -o bin/colors.o
gcc -g -m32 -std=c17 -o bin/colors bin/colors.o bin/graph.o bin/grid.o bin/main.o -lncursesw
rm bin/main.o bin/graph.o bin/basic.o bin/colors.o bin/grid.o

Eu não pedi para que os arquivos de objeto fossem removidos, nem chamei "clean". Por que isso rm bin/main.o bin/graph.o bin/basic.o bin/colors.o bin/grid.oainda acontece?

Estou tentando escrever um script VBA que embaralha todos os itens multi-lista de nível 2 dentro de uma linha de tabela do Microsoft Word. Estou usando a versão mais recente do MS Word (Office 365).

Eu quase acertei, mas meu script reinsere as linhas, mas adiciona um item de lista extra. Consegui remover o número do item de lista do último parágrafo (a última linha), mas não consigo me livrar do parágrafo em si.

Tentei selecionar o último parágrafo e removê-lo (o que exclui todo o conteúdo da linha). Tentei para.Range.Delete, mas isso não parece fazer nada.

Sub Func()
    Dim tbl As Table
    Dim curRow As Row
    Dim para As Paragraph
    Dim paras() As String
    Dim cnt As Integer
    Dim i As Integer, j As Integer
    Dim temp As String

    If Not Selection Is Nothing And Selection.Tables.Count > 0 Then
        Set tbl = Selection.Tables(1)
        Set curRow = Selection.Rows(1)
    Else
        MsgBox "Please place the cursor inside a table."
        Exit Sub
    End If

    ' Count the number of list level 2 items
    cnt = 0
    For Each para In curRow.Range.Paragraphs
        If para.Range.ListFormat.ListLevelNumber = 2 Then
            cnt = cnt + 1
        End If
    Next para
    
    ' Collect the items in an array and remove them from the list
    ReDim paras(1 To cnt)
    cnt = 0
    For Each para In curRow.Range.Paragraphs
        If para.Range.ListFormat.ListLevelNumber = 2 Then
            cnt = cnt + 1
            paras(cnt) = para.Range.Text
            para.Range.Text = ""
        End If
    Next para

    ' Shuffle the array
    Randomize
    For i = 1 To cnt - 1
        j = Int((cnt - i + 1) * Rnd + i)
        temp = paras(i)
        paras(i) = paras(j)
        paras(j) = temp
    Next i

    ' Insert shuffled items back as level 2 list entries
    For i = 1 To cnt
        curRow.Range.InsertAfter paras(i)
    Next i
    
    Set para = curRow.Range.Paragraphs(curRow.Range.Paragraphs.Count - 1)
    para.Range.ListFormat.RemoveNumbers
    ' para.Range.Delete - doesn't do anything
    
End Sub